VBA- Umgang mit Monatsnamen

29/05/2012 - 08:12 von Hans Alborg | Report spam
Hallo Leute,

ich pack das nicht, mit VBA ordentlich mit dreibuchstabigen
Monatsbezeichnungen umzugehen. Die Suchmaschine hat nix gebracht.
Also sieht mein Code zZt. so aus:

If SuchMonat1 = "Jan" Then SuchMonat1 = "Januar"
If SuchMonat1 = "Feb" Then SuchMonat1 = "Februar"
If SuchMonat1 = "Màr" Then SuchMonat1 = "Màrz"
If SuchMonat1 = "Apr" Then SuchMonat1 = "April"
If SuchMonat1 = "Jun" Then SuchMonat1 = "Juni"
If SuchMonat1 = "Jul" Then SuchMonat1 = "Juli"
etc...

Der SuchMonat1 stammt aus einem Dropdown-Feld.
Normalerweise ist der Suchmonat z.B. "Juni", also ausgeschrieben. Aber es
gibt dann z.B. auch "Mai+Jun", also die Suche über 2 Monate. Und dann muß
ich VBA "einfach" erkennen lassen was "Jun" bedeutet und daß beim Auftauchen
des "+" über zwei Monate gesucht wird.
Mit sowas: = Format(wsakt.Cells(2, Da), "mm") o.à. klappt das wohl nicht
bzw. nur mit englischen Kürzeln (also nicht "Màr").

Wie kann ich die Luft aus meinem Code oben rauslassen?

TIA,

Hans
 

Lesen sie die antworten

#1 Claus Busch
29/05/2012 - 09:29 | Warnen spam
Hallo Hans,

Am Tue, 29 May 2012 08:12:23 +0200 schrieb Hans Alborg:

If SuchMonat1 = "Jan" Then SuchMonat1 = "Januar"
If SuchMonat1 = "Feb" Then SuchMonat1 = "Februar"
If SuchMonat1 = "Màr" Then SuchMonat1 = "Màrz"
If SuchMonat1 = "Apr" Then SuchMonat1 = "April"
If SuchMonat1 = "Jun" Then SuchMonat1 = "Juni"
If SuchMonat1 = "Jul" Then SuchMonat1 = "Juli"
etc...



kannst du mal erklàren, was du erreichen möchtest? Willst du dann über
den gesuchten Monat etwas berechnen oder willst du in echten
Datumswerten suchen? Ist bei dir "Jan" und auch "Januar" ein String oder
ist es ein wirkliches entsprechend formatiertes Datum? Wenn es ein
String ist und du in richtigen Datumswerten suchen möchtest, musst du
den String in die entsprechende Zahl wandeln, also Jan bzw Januar = 1
oder = 01.01.2012 formatiert als MMM oder MMMM


Mit freundlichen Grüßen
Claus Busch
Win XP Prof SP3 / Vista Ultimate SP2
Office 2003 SP3 /2007 Ultimate SP3

Ähnliche fragen