Datumsvormatierung nach Verkettung mit VBA Script

18/03/2009 - 10:06 von Thom | Report spam
Hallo liebe NG

Ich habe folgende Situation. In der Zelle A1 starte ich ein Makro. Dieses
fügt drei andere Zellen mittels "Verkettung" in die Zelle A1. Eines der
Zellen die zusammengeführt werden enthàlt ein Datum. Nach der Verkettung auf
A1 gibt es mir das Datum als Zahlenwert aus:

Beispiel:
Ergebnis in A1= Hallo Datum 39890

B1= Hallo
C1= Datum
D1= 18.03.2009

Hier das Makro das ich dazu benutze (nicht lachen)

ActiveCell.FormulaR1C1 = "=+RC[-1]&"", ""&RC[18]&"", ""&RC[14]&""""&""% """

Hat mit jemand einen Tipp?

Danke im Voraus.

Gruss Thom
 

Lesen sie die antworten

#1 Wolfgang Habernoll
18/03/2009 - 12:30 | Warnen spam
Hallo

"Thom" schrieb im Newsbeitrag
news:
Hallo liebe NG

Ich habe folgende Situation. In der Zelle A1 starte ich ein Makro. Dieses fügt drei
andere Zellen mittels "Verkettung" in die Zelle A1. Eines der Zellen die
zusammengeführt werden enthàlt ein Datum. Nach der Verkettung auf A1 gibt es mir das
Datum als Zahlenwert aus:

Beispiel:
Ergebnis in A1= Hallo Datum 39890

B1= Hallo
C1= Datum
D1= 18.03.2009

Hier das Makro das ich dazu benutze (nicht lachen)

ActiveCell.FormulaR1C1 = "=+RC[-1]&"", ""&RC[18]&"", ""&RC[14]&""""&""% """

Hat mit jemand einen Tipp?



durch die Verknüpfung wird die Celle als Txt formatiert. Versuche es mal so,
achtiveCell ist hier A1

ActiveCell.FormulaR1C1 = "=RC[1]&"", ""&RC[2]&"", ""& TEXT(RC[3],""TT.MM.JJJJ"")"

wichtig ist der Teil um das Datum als solche darzustellen.
TEXT(RC[3],""TT.MM.JJJJ"")" wozu Datum als %? aber das kannst du ja noch selbst
anfügen.


mfG
Wolfgang Habernoll

[ Win XP Home SP-2 , XL2002 ]

Ähnliche fragen