Private Sub CommandButton2_Click()
Sheets(ListBox1).Range("A6") = Label1.Caption
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub Userform_Initialize()
Dim objSheet As Object
With ComboBox1
.Clear
For Each objSheet In ThisWorkbook.Sheets
.AddItem objSheet.Name
Next
End With
With ListBox1
.Clear
.Font.Size = 12
.ColumnCount = 3
.ColumnWidths = ("3,0cm;3,0cm;0,0cm")
End With
End Sub
Private Sub UserForm_Activate()
Dim i As Integer
With Me.ListBox1
.MultiSelect = fmMultiSelectMulti
.ListStyle = fmListStyleOption
.ListIndex = -1
End With
End Sub
Leider geht es noch nicht.