Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

vba prob bei wertumwandlung

Forumthread: vba prob bei wertumwandlung

vba prob bei wertumwandlung
13.06.2008 10:32:32
haustein
hallo gemeinschaft
benötige hilfe bei der umwandlung von zahlen
mein wert sieht wie folgt aus
03.07.2003
jetzt möchte ich ein vba code bauen, wo jetzt 03 und 07 vertauscht werden, so das es dann so aussieht
07/03/2003 - mit einfachen umformatieren komme ich nicht weiter

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vba prob bei wertumwandlung
13.06.2008 11:08:10
harry
Hallo haustein,
Benutzerdefiniertes Format: MM/TT/JJJJ
Gruß
harry

AW: vba prob bei wertumwandlung
13.06.2008 11:15:38
haustein
mir hilft die umformatierung nichts - ich möchte es als text feld haben - also richtig vertauscht

AW: vba prob bei wertumwandlung
13.06.2008 11:14:00
eres
Verstehe zwar nicht, wieso Du nicht mit der benutzerdefinierten Formatierung arbeiten willst, aber muss ich ja auch nicht.
Hilft Dir dies: (vorausgesetzt Dein 03.07.2003 steht in A1)
Range("A1") = "'" & Format(Month(Range("A1")), "00") & "/" & Format(Day(Range("A1")), "00") & "/" & Year(Range("A1"))
Gruss
eres

Anzeige
AW: vba prob bei wertumwandlung
13.06.2008 12:07:00
haustein
hi, und wie machst du dass dann mit einer schleife - habe probs mit dem ansprechen der rangebereiche

AW: vba prob bei wertumwandlung
13.06.2008 12:24:00
fcs
Hallo haustein,
ich kanns mal wieder nicht glauben was da passiert. Aber da der Schrägstrich "/" ein funktionales Zeichen in Excel ist, muss durch ein vorgeschaltetes Zeichen dafür gesorgt werden, dass das "/" als Text interpretiert wird.
Die "einfache" Format-Anweisung mit Datum im US-Format wird so umgesetzt, dass das Datumstrennzeichen bei der Rückgabe des Werts wieder durch das Datumstrennzeichen der Systemeinstellung erstzt wird. :-( hmm

'ExcelVersion: 2003 SP2
'Systemeinstellungen: Deutsch
Sub aaTest()
'DE-Datum in US-Datum als textstring umwandeln
Dim strUS_Datum As String, strDE_Datum
strDE_Datum = "31.12.2003"
'      strUS_Datum = Format(datDatum, "MM/DD/YYYY") 'funktioniert nicht / wird durch . ersetzt
'Eine der 3 nachfolgenden Versionen geht
strUS_Datum = Format(CDate(strDE_Datum), "mm\/dd\/yyyy")
strUS_Datum = Format(CDate(strDE_Datum), "mm""/""dd""/""yyyy")
strUS_Datum = Format(CDate(strDE_Datum), "[$-407]mm\/dd\/yyyy")
End Sub
Sub abTest()
'Zellformatierung Datum im US-Format
Cells(3, 1).NumberFormat = "[$-407]MM\/DD\/YYYY"
End Sub


Gruß
Franz

Anzeige
AW: vba prob bei wertumwandlung
13.06.2008 12:43:21
haustein
vielen dank und schönes wochenende
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18