Office: (Office 2007) Komma getrennte Zahlen aus einer Zelle auslesen.

Hallo,

ick komme leider bei einem Problem nicht weiter.
Habe mir ein Marko geschrieben, dass mir die Zahlenfolge in einer Zelle auslesen soll, die durch Komma Zeichen getrennt ist.

Leider wird mir immer die zweite Zahl in der Zahlenkette falsch angezeigt!

Kann mir hierzu jemand eine Hilfestellung geben?


Ausgelesen wird in diesem Beispiel eine Zeichenkette in Sheet1 Zelle A1
Eintrag in Zelle A1 ist 100,2,3,666,10,100,22,345,12,567,

Hier der Code:

Sub Test()

Dim Komma As Boolean
Dim Start_Flag As Boolean
Dim End_Flag As Boolean
Dim ErsterEintrag As Boolean
Dim EndPunkt As Byte
Dim StartPunkt As Integer
Dim i, Counter As Byte

Komma = False
Start_Flag = True
End_Flag = False
Counter = 0


For i = 1 To Len(Range("A1"))

If Right(Left(Range("A1"), i), 1) = "," Then
Komma = True: EndPunkt = i: End_Flag = True
Else
Counter = Counter + 1
End If

'Wird nur für den ersten Datensatz benötigt*************************************

If i = 1 Then ErsterEintrag = True: StartPunkt = 1

If ErsterEintrag = True And End_Flag = True Then
Debug.Print Left((Range("A1")), EndPunkt - StartPunkt): ErsterEintrag = False: End_Flag = False
End If

'*******************************************************************************

If ErsterEintrag = False And End_Flag = True Then
Debug.Print Mid((Range("A1")), i - Counter, Counter): Komma = False: End_Flag = False: Counter = 0
End If


Next i


End Sub

Ergebnis im Direktfenster:
100
00,2 >>> müsste 2 sein
3
666
10
100
22
345
12
567

Mit freundlichen Grüßen,
Eagle

:)

 

Hallo Eagle,

nach der Ausgabe des ersten Wertes wird der Zähler (Variable "Counter") nicht zurückgesetzt:
Code:

Gestatte mir dazu noch eine Anmerkung: Wenn du darauf verzichtest, mehrere Programmzeilen mittels Doppelpunkt in eine Zeile zu schreiben und statt dessen für jede Programmzeile eine eigene Zeile verwendest, wird dein Code gleich übersichtlicher und möglicherweise hättest du den Fehler dann selbst bemerkt:


Code:

Code:

Hier fällt der Unterschied zwischen den beiden If-Bereichen, nämlich das fehlende Counter = 0 im ersten Bereich, viel besser auf.

Übrigens: Die Variable "Komma" ist in dem Code überflüssig. Die ist wohl von einem früheren Programmansatz übriggeblieben.

Gruß Ingolf

 

Hi,

das ganze geht auch etwas einfacher:
Code:

Zumindest wenn man eine halbwegs aktuelle Version von Excel verwendet.

 

Ingolf, Styrkar


vielen Dank für eure schnelle Hilfe.
In Zukunft werde ich die die Tips von Ingolf beherzigen.

Werde in diesem Fall ganz klar die Lösung von Styrkar meiner Lösung vorziehen.

Leider tue ich mich immer noch total schwer mit den Array Funktionen.
Daher oft diese Umwege :-)

Nochmal vielen Dank!!!

Gruß,
Christoph