Office: Variant-Variable konvertiert Datum

Hallo Wissende,
folgendes Problem.
Ich bekomme von einer Funktion ein Array aus Strings zurück.
Der Rückgabewert muss aber zwingend vom Type Variant sein.

Jetzt fängt aber VBA an zu denken, sobald ein Element ein Datum ist, wandelt er es in Double um.
Bsp.:
Ausgangsdaten: "Ein String","05.04.2006","Noch ein String"
Übergebene Daten:
VVar(0) : "Ein String" VarType: vbString
VVar(1) : 38812 VarType: vbDouble ' das war mal "05.04.2006"
VVar(2) : "Noch ein String" VarType: vbString

Tja leider nützt mir die 38812 nichts - ich brauche den Text "05.04.2006".
Nun könnte man versuchen das zurückzuwandeln.
Allerdings weiß ich nicht, ob im Text "05.04.2006" oder z.B. "5.4.06" stand.

Ich denke fast meine Frage ist hoffnungslos: kann ich VBA zwingen im Variant nur strings zu übergeben.

:)

 

Hi Steffen,

Zwingend? Ich halte VarTypen immer für die ungünstigste Lösung. Zum einen könntest Du überlegen, die eingelesenen Werte nicht erst einmal generell in Strings umzuwandeln. Bsp.: aVar(0) = cstr(25)
Beim Auslesen dann mit IsNumeric oder IsDate könnten die Daten ja entsprechend ausgewertet und mit den Typumwandlungsfunktionen ] CDate, CDbl, etc.] wieder zurück verwandelt werden. Oder, Du erstellst Dir einen benutzerdefinierten Typ. Bsp.:

Code:

Dein Array bekommt dann diesen Typ zugewiesen:
Code:

...und einlesen dann so:

Code:

 

Hallo Ralf,
Dank für die Antwort.
Aber zwingend heißt zwingend *wink.gif*.

Die VBA-Funktion DDERequest liefert nun mal variant (lt. Dokumentation eine Matrix) zurück, da kann man nichts ändern.

Tja und die Rückkonvertierung geht eben nicht, da ich nicht weiß in welchem Format das Datum vorlag (das ist ein beliebiger Text und da kann ein Nutzer halt auch ein Datum in beliebiger Form reinschreiben).

 

Hi Steffen,

ich nehme mal an, es geht um Parameter 3 (Data). Versuche mal folgendes:

CVar(Cstr(Datenwert))

 

Hallo Steffen,

mal ein Beispiel zum nachvollziehen der Zell Formatierung

in einer leeren Blatt gibst Du mal ein Datum ein dam wird automatisch die Zell Formatierung auf "*14.03.2001" gesetzt also eine Datums Zell Formatierung.

Die Leer Zelle ist Immer Mit Standart Formatiert.

also musst Du nur die Zell Formatierung In das Zell Format Datum umändern dann Siehst Du das Datum als Datum nicht Als Zahl.

Wenn Du die Zahlen Siehst dann ist die Zell Formatierung Auf Standart nicht Auf Datum.


Beispiel Für Zelle A1

Range("A1").Select
Selection.NumberFormat = "m/d/yyyy"

Gruß Peter9

 

\@Peter:
leider hilft mir das nicht weiter, da es nicht um das Formatieren von Zellen geht, sondern um normale Variable.

@Ralf:
Es geht um DDERequest, ich hatte den Beitrag im Nachhinein geändert .

Eine Rückkonvertierung ist nicht möglich. Nachfolgendes Beispiel zeigt, was im Prinzip passiert: Code:

Aus dem Datumswert lässt sich der String nicht mehr herstellen.

[edit]
Also ich hab mir die ganze Sache noch mal durchdacht.
Also das sendente Programm nimmt scheinbar die entsprechenden Typanpassungen vor (nicht VBA "denkt" sondern das andere Programm).
Da ich darauf keinen Einfluss habe, dürfte mein Problem leider nicht zu lösen sein. *mad.gif*
Trotzdem Dank für's mitdenken
[/edit]

 

Hallo Steffen,

zu dein ersten dann sollte erstmal die Formatierung Stimmen

deine geänderte Sache sehe ich mir mal nachher an

gruß Peter9

Code:

 

hallo Steffen,

so das müsste auch gehen.

Code:

Gruß Peter9

 

Hallo Peter,
danke für deine Mühe, aber das Problem ist, dass das was DDERequest zurückgibt von mir nicht beeinflusst werden kann.
DDERequest ist die Aufforderung an ein externes Programm Daten an Excel zu schicken. (mein Code war nur Simulation)
VBA verlangt zwingend eine Variantvariable und das externe Programm "nutzt das hemmungslos aus", um die einzelnen Komponenten verschieden zu formatieren. sh. erster Beitrag.