|
Hallo zusammen,
irgendwie komm ich nicht richtig weiter...
ich befülle eine Tabelle durch ein VBA Macro. Es gibt eine Userform mit einem Feld Datum und einem Feld Aufwände.
VBA Code Datum:
Dim Tag As String
Tag = TextBox_Datum.Text
Dim monat As String
monat = Format(Date, "MM")
Dim jahr As String
jahr = Format(Date, "YYYY")
Summe:
Cells(last, 9).Value = TextBox_Aufwand
Die Werte werden also "stumpf" aus einer Textbox in eine Zelle getragen.
Alle Werte kommen in eine Tabelle.
Doch leider habe ich mit den Werten ein Formatproblem....
Das Datum wird manchmal mit führender 0 eingetragen und manchmal nicht. Wenn ich die Tabelle dann kopiere und einfüge (nur Werten). Kommt dies dabei raus
Links einfach nur kopiert. Rechts als "Werte" eingefügt
|
2.01.2019 |
2.01.2019 |
|
3.01.2019 |
3.01.2019 |
|
04.01.2019 |
43469 |
|
7.01.2019 |
7.01.2019 |
|
10.01.2019 |
10.01.2019 |
|
14.01.2019 |
14.01.2019 |
|
15.01.2019 |
15.01.2019 |
|
24.01.2019 |
43489 |
|
2.01.2019 |
2.01.2019 |
und so ein ähnliches Porblem hab ich bei den Aufwänden.
ich befülle eine Zelle aus einer Textbox. Die Spalte ist komplett als Zahl mit 2 Dezimalen formatiert.
Resultat:
|
7,00 |
|
7,75 |
|
5,00 |
|
2,00 |
|
7,00 |
|
7,00 |
|
2,5 |
|
5,00 |
|
4,00 |
|
1,00 |
|
4,00 |
|
2,00 |
|
2,00 |
|
3 |
|
2 |
|
1 |
|
5 |
|
2 |
|
2 |
|
1 |
|
1 |
|
1 |
|
2 |
|
2 |
|
1,5 |
Ganz viele Werte bekomme das grüne Fähnchen, wo mit anzeigt wird, dass ich die Spalte doch als Zahl formatieren soll...
ich hoffe ich konnte es gut genug beschreiben.
Hat jemand eine Idee woran dies liegt und wie es beheben kann?
Vielen Dank
Nils
|