Workbook ansprechen nur mit variable!

[HZ25]

Hallo Leute,

ich wollte in meinem Projekt alle Sheets und Workbooks nur noch mit Variablen ansprechen, allerdings klappt es nicht so recht!
Fehler: Objekt unterstützt Eigenschaft nicht

Bisher hab ich es so gemacht, das funktioniert natürlich.


Dim WKB1 As String, SH1 as string

WKB1 = Application.ActiveWorkbook.Name
SH1 = Workbooks(WKB1).Worksheets("Data")

Workbooks(WKB1).Sheets(SH1).Cells(200, 1) = 0


Ich wollte es nun so machen, da kommt dann besagter Fehler, weiß jemand wie ich das so zum laufen bekomme?

Dim wbTool As Workbook
Dim shAuswahl As Worksheet

Set wbTool = Application.ActiveWorkbook
Set shAuswahl = wbTool.Worksheets("Sverweis-Auswahl")

wbTool.shAuswahl.Cells(200, 1) = 0



Gruß

[maninweb]

Hallo,

shAuswahl.Cells(200, 1) = 0 reicht aus, denn Du hast ja jetzt einen Zeiger auf das Arbeitsblatt gesetzt.

Gruß

[HZ25]

Hi,

ja klar, manchmal ist das Brett vor dem Kopf sehr voluminös :)


Danke und Gruß

[Ego]

Hallo H...,

die Deklaration ist "falsch" (zumindest für das Worksheet). Richtig ist:

Dim WKB1 As Workbook, SH1 as Worksheet

und da die Objekte jetzt schon Workbook und Worksheet sind:

WKB1 = Application.ActiveWorkbook

SH1 = WKB1.Worksheets("Data")

SH1.Cells(200, 1) = 0