Hallo allerseits,
ich habe in VBA eine Userform erstellt, die mir alle Tabellenblätter in einer Listbox auflistet. Jetzt würde ich gern für alle in der Listbox ausgewählten (also nur die angeklickten) Tabellenblätter den Wert aus der Textbox1 in die Zelle B23 jedes Tabellenblattes schreiben lassen.
Des Weiteren würde ich gern einen Fehler bekommen wenn in Textbox1 und 2 kein Wert drin steht. Ich hoffe ihr könnt mir weiterhelfen, anebi mein mickriger Code:
Private Sub UserForm_Activate()
Dim i As Single
For i = 1 To Worksheets.Count
With Me.ListBox1
.AddItem Worksheets(i).Name
End With
Next i
End Sub
Private Sub CommandButton1_Click()
Sheets(ListBox1.List).Select = Auswahl
ThisWorkbook.Worksheets(Auswahl) = Cells("23,B").Value
End Sub
Private Sub TextBox1_Change()
If tetxbox1.Value = "" Then
MsgBox ("Sie müssen eine Uhrzeit eingeben")
End If
End Sub
|