Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1440to1444
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Wert ausTextbox in mehrere Zellen+Tabellenblätter

Wert ausTextbox in mehrere Zellen+Tabellenblätter
24.08.2015 10:20:13
Dan
Hallo,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert ausTextbox in mehrere Zellen+Tabellenblätter
24.08.2015 10:31:57
Werner
Hallo Dan,
Versuch mal
With Sheets(Array("W001.1", "W001.2", "W001.3", "W001.4", "W001.5"))
.Range("A2").Value = UserForm1.TextBox1.Text
End With
Konnte es aber nicht testen.
Gruß Werner

AW: Wert ausTextbox in mehrere Zellen+Tabellenbl.
24.08.2015 10:46:38
Dan
Hallo Werner,
hat leider nicht geklappt...
LG, Dan

Wert ausTextbox in mehrere Zellen+Tabellenblätter
24.08.2015 10:35:11
Rudi
Hallo
Dim sh As Worksheet
For Each sh In Sheets(Array("W001.1", "W001.2", "W001.3", "W001.4", "W001.5"))
sh.Range("A2") = TextBox1
Next sh

Gruß
Rudi

AW: Wert ausTextbox in mehrere Zellen+Tabellenbl.
24.08.2015 10:47:17
Dan
Hallo Rudi,
hat prima funktioniert, danke!
LG, Dan
Anzeige

363 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige