Wieder die Variablen
31.05.2013 01:14:22
tco99
Hallo zusammen,
ich habe doch noch mal ein Problem.
Hier bekomme ich es nicht hin, eine Variable richtig zu verwenden. So lautet der Code:
Sub Test()
Dim aRow, i As Long
Dim Worksheet As String
Dim UserForm As Object
Worksheet = "Rohling"
Set UserForm = Rohling
Application.EnableEvents = False
UserForm.ObjektAuswahl.Clear
aRow = [Rohling!A65536].End(xlUp).Row
UserForm.ObjektAuswahl.AddItem "neuen Eintrag hinzufügen"
For i = 2 To aRow
UserForm.ObjektAuswahl.AddItem Sheets(Worksheet).Cells(i, 1) & ", " & Sheets(Worksheet). _
Cells(i, 2)
Next i
UserForm.ObjektAuswahl.ListIndex = 0
Application.EnableEvents = True
End Sub
Mein Problem ist, dass ich in folgender Zeile das "Rohling1" gegen die Variable "Worksheet tauschen möchte, es aber nicht klappt:
aRow = [Rohling!A65536].End(xlUp).Row
Ich habe es bereits so probiert:
aRow = [Worksheet"!A65536"].End(xlUp).Row
aRow = Worksheet["!A65536"].End(xlUp).Row
aRow = Worksheet & ["!A65536"].End(xlUp).Row
Wie müsste es lauten?