Excel-Problem VBA

Moelle_M_ller_cbf823 · 13. November 2019 um 04:05

Private Sub CommandButton1_Click()
Dim strAddr As String
strAddr = Sheets(Liste).Cells(Sheets(„Liste“).Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Address
Range(strAddr).Value = TextBox1.Value
strAddr = Sheets(Liste).Cells(Sheets(„Liste“).Cells(Rows.Count, 2).End(xlUp).Row + 1, 2).Address
Range(strAddr).Value = TextBox2.Value
Unload Me
End Sub

Dies hier ist mein Code bis dato, doch er schafft es nicht die textboxen in die andere Tabelle „liste“ zu übernehmen. Wer kann helfen?

Anonym_bd531a696cec · 13. November 2019 um 04:05

Ich kann da leider nicht helfen.

G_nter_19ab76 · 13. November 2019 um 04:05

Bitte erkläre mir folgende Fragen: Welche Subprozeduren sind noch dabei? Welche Fehlermeldungen? Wie lauten die Tabellennamen bzw. Namen der Tabellenblätter? Um das zu vereinfachen: Stelle auch mal die Dateien mit den Textboxen als Anlage zur Verfügung.
Danke und Gruß
Günter