Textbox-Inhalt in Zelle abbilden
17.07.2022 20:35:44
Michael
mich beschäftigt seit einigen Stunden folgendes Problem:
Ich versuche mittels folgendem Code den Text aus Textboxen in ein 2. Sheet welches das fertige Rechnungsformular werden soll einzufügen.
Private Sub rechnungshinzufügenbutton_Click()
Dim rechnungseinfügungsreihe As Long
rechnungseinfügungsreihe = Sheets("Sheet2").Cells(Rows.Count, 2).End(xlUp).Row + 1
Sheets("Sheet2").Cells(rechnungseinfügungsreihe, 2) = TextBox1.Value
Sheets("Sheet2").Cells(rechnungseinfügungsreihe, 3) = TextBox2.Value
Sheets("Sheet2").Cells(rechnungseinfügungsreihe, 4) = TextBox3.Value
End Sub
Vielen Dank und schöne Grüße,
Michael
Anzeige