Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Cells(MyRow, 1).Value = Me.TextBox1.Text | Herbers Excel-Forum


Betrifft: Cells(MyRow, 1).Value = Me.TextBox1.Text von: reinhardt springer
Geschrieben am: 11.01.2010 12:35:26

Hallo,
ich habe eine Datei, die mir über eine Userform Daten in verschiedene Tabellenblätter einträgt.

' Werte übertragen
Cells(MyRow, 1).Value = Me.TextBox1.Text 'Datum
Cells(MyRow, 2).Value = Me.ComboBox1.Text 'km

Mein Problem:
Im Tabellenblatt möchte ich Summen nehmen, welche sich nicht bilden lassen, da der Eintrag
als Text in die Zelle "links" erfolgt.
Oder eine Formel MAX(A1:A100) das letzte Datum nicht anzeigt. Erst wenn ich "handschriftlich" das
Datum eintrage, rechnet die Formel, und der Wert steht wieder rechts in der Zelle.

Hierfür brauche ich dringend einen Tip!

Gruß Reinhardt.

  

Betrifft: AW: Textboxen machen ja auch nur Text von: JoWE
Geschrieben am: 11.01.2010 13:02:40

Hallo Reinhardt,

' Werte übertragen
Cells(MyRow, 1).Value = cDate(Me.TextBox1.Text) ' Achtung! Fehleingabe abfangen
Cells(MyRow, 2).Value = cLlng(Me.ComboBox1.Text) 'Achtung! Feheingabe abfangen

Gruß
Jochen