Also, das sieht mal echt kompliziert aus!
Es gibt in VBA auch die funktionen "Mid", "Left", "Right" um zum Beispiel etwas was zwischen 2 Zeichen steht wie z.B. "Z " und "/" zu separieren und in eine Variable zu schreiben.
Oder du verwendest 2x die Split-Funktion
'Sting aus Zelle auslesen und ("Z" mit "Leerzeichen") abkappen. Anschließend String in Integerformat wandeln
Temp_Wert = CInt(Split(Split(Sheets("Tabelle1").Cells(1, 1).Value, "Z ")(1), "/")(0))
um aus dem Beispiel-String "Z 19/100" eine 19 zu extrahieren.
"By the Way" solltest du den von dir beschriebenen Abgleich machen wollen:
else if 1. Ziffer = Z ' "Z" kann nur ein String sein also muss auch die Variable Ziffer vom Typ String sein
dann entferne "Z" und "/"
in Inger umwandeln
if 1. Ziffer ungleich 2 dann (neue Zahl+19*10^Länge)*0,1^(Länge+2)+2 ' hier brauchst du dann für 1.Ziffer eine neue Variable vom Typ Integer um mit einer Zahl zu vergleichen. Diese muss dann aber einen anderen Namen haben.
Wenn du aber die zu separierende Zahl immer zwischen "Z " und "/" steht, ist es belanglos ob vor "Z " noch eine '4 oder '2 steht.
Diese werden ignoriert!
Probiere mal die doppelte Split-Funktion aus. ich denke diese bringt dir das gewünschte Resultat.
Gruß
Andreas
|