Hallo,
wenn ich eine CeckBox anklicke, wird in einer bestimmten Tabelle die letzte leere Zeile gesucht, um dort einen neuen Eintrag zu schreiben.
If CheckBox1 = True Then
Sheets("tabelle").Select
[B4].Select
While ActiveCell ""
ActiveCell.Offset(1, 0).Select
Wend
userform1.Show
End If
TextBox1.Value = ActiveCell
TextBox1.Value = ActiveCell.Offset(0, 1)
In der UserForm1 werden Daten eingegeben.
Ich möchte jetzt, dass die Ausgabe in den TextBoxen folgende Formatierung haben:
Format([A1], "#,##0.00 €")
Da ich aber keine Zelle (z.B.A1) habe, weiss ich nicht, wie ich das Problem lösen soll.