Hallo!
Also wenn ich das richtig deute, willst du alle Blätter in der Listbox haben, dort ein Blatt auswählen und dieses bearbeiten!?
Dannggf. so. In der UF mit der Listbox das beim Initializeeintragen :
Private Sub UserForm_Initialize()
Dim blatt As Object
For Each blatt In ActiveWorkbook.Worksheets
Me.ListBox1.AddItem blatt.Name
'oder
'Me.listbox1.AddItem blatt.cells(6,1).value
Next blatt
End Sub
Dann sind alle Blätter drin.
Dann wählst du ja einen User aus und klickt auf den Commandbutton. Dort dann so:
Private Sub CommandButton1_Click()
Dim blattname As String
Dim lZeile As Long
If Me.ListBox1.ListIndex > -1 Then
blattname = Me.ListBox1.List(Me.ListBox1.ListIndex)
Else
MsgBox "Abbruch, da kein User gewählt", , "keinUser"
Exit Sub
End If
lZeile = 13
Do While Trim(CStr(Worksheets(blattname).Cells(lZeile, 1).Value)) <> ""
lZeile = lZeile + 1 'Nächste Zeile bearbeiten
Loop
VG
|