Datum nach übernahme aus UserForm in Zahl umwandeln

Question

Guten Morgen und noch ein frohes Neues!

Ich hab da mal wieder was!

Ich habe eine Excel-Datei mit einer UserForm, über die unteranderem ein Datum in die Tabelle eingetragen wird.

Nun möchte ich das Datum in der Tabelle als Zahl angezeigt bekommen, um darauf eine Zuordnungsformel zu erstellen.

Nur wenn das Datum aus der UserForm kommt, lässt es sich nicht mehr in eine Zahl umwandel!

Gebe ich die Zahl erneut per Hand ein funzt es!

Gibts da ne Möglichkeit das Datum in der Tabelle (Saldo) "zu Aktivieren",
um dieses dann in eine Zahl umzuwandeln?

Hier noch mal die Datei


Danke schon mal im voraus

Benjae

Answer 1

Hallo Benjae,

eine Textbox enthält das was der Name schon sagt Text. Möchtest Du was anderes Haben mußtDu eine Umwandlungsfunktion benutzen
Range("C1")=Cdate(Textbox1)

Gruß Hajo

Answer 2

Danke Hajo,

könntest du mir noch sagen wo ich den Range Befehl einsetzen muss damit es funzt?

Gruß Benjae

Answer 3

Hallo Benjae,

ich hatte angenommen das ist klar. Diu schreibst doch irgendwo die Textbox in die Zelle und genau da.

Gruß Hajo

Answer 4

Hallo Hajo,

das Funtz net bei mir!(oder ich find den Einstieg nicht)

Liegt das an Excel 97, ich weiß nicht genau an welcher Stelle?!
Gehe doch richtig in der Annahme das ich das in den VBA-Code der UserForm schreiben muss, oder?

Wenn du die Musse hättest, dir die Datei anzuschauen, und mir doch noch mal weiter zu helfen...

Danke und gruß Benjae

Answer 5

Hallo Benjamin,

ich sehe keine Datei und auch keinen Code. Da kann ich wenig helfen.

Gruß Hajo

Answer 6

Hallo Hajo,

in der Themen-Eröffnung ganz oben unter Datei.

Gruß Benjae

Answer 7

Hallo Benjamin,

ich welcher UserForm wird wo ein Datum eingegeben?
Ich vermute mal im OK Code muss es rein.

Gruß Hajo

Answer 8

Hi,

@Hajo
Das Datum bekommt die TextBox1 über "UserForm_Activate" ohne Zutun des Anwenders.

@Benjae
Ändere bei den OK-Buttons der beiden Forms den Code von:

'Eintrag aus TextBox1 (Datum) in erste freie Zelle übertragen
Cells(letzte_Zeile, 1) = TextBox1

in:

Cells(letzte_Zeile, 1) = CLng(CDate(TextBox1))

CDate: Umwandlung des Textes in ein Datum
CLng: Umwandlung des Datums in eine Zahl (long)

Damit erhälst Du dann (in den als "Standard" formatierten Spalten A) statt 09.01.2009 die Zahl 39822. Ist es das, was Du wolltest?

Bye

Answer 9

Hi,

Ups. So wolltest Du die Zahl wohl nicht sehen. Wohl doch eher als echtes Datum in der Form xx.yy.zzzz. Zumindest glaube ich Deinen Hinweis auf Pal.Saldo-Datum so zu verstehen. In diesem Sheet ist die Spalte A übrigens als "Datum" formatiert.

Wenn dem so ist, dann sollte die oben vorgeschlagene Zeile aussehen wie folgt:

Cells(letzte_Zeile, 1) = CDate(TextBox1))

Oder Du schreibst nochmal, welches Format Du nun wo genau zu sehen wünschst.

Bye

Answer 10

Hallo malSchauen ,
in den zwei UserFormen ist keine TextBox1 enthalten.
In welchen Spalten (Paletten Eingang / Ausgang) soll das Datum als Zahl eingetragen werden?

Gruß
fedjo