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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen