ich bin mal wieder auf eure Hilfe angewiesen:
Ich möchte eine TextBox(UserForm1) den eingegebenen Text in Zelle A2 über mehrere Bestimmte Tabellenblätter einfügen lassen.
Der 2. Teil mit der ComboBox1 funktioniert komischer Weise...
Mein VBA-Code sieht bis jetzt so aus:
Private Sub CommandButton1_Click()
'Textbox1 kopieren und in Tabellenblätter einfügen:
Range("A2").Select
Sheets(Array("W001.1", "W001.2", "W001.3", "W001.4", "W001.5")).Select
Range("A2").Value = TextBox1.Value
Sheets("W001.1").Select
'ComboBox1 kopieren und in Tabellenblätter einfügen:
UserForm1.ComboBox1.SetFocus
UserForm1.ComboBox1.Copy
MyData.GetFromClipboard
On Error Resume Next
ComboBox1.Text = MyData.GetText(1)
Range("A1").Select
Sheets(Array("W001.1", "W001.2", "W001.3", "W001.4", "W001.5")).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("W001.1").Select
Range("A1").Select
Unload UserForm1
End Sub
Vielen Dank!
LG, Dan