Herbers Excel-Forum - das Archiv
TextBox Formatierung bei ActiveCell
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Betrifft: TextBox Formatierung bei ActiveCell
von: André
Geschrieben am: 26.12.2006 22:25:28
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.
Betrifft: Doppelt
von: Close
Geschrieben am: 27.12.2006 08:43:22