Hallo liebe Leute,
die Suche im Archiv hat mir schon oft weitergeholfen, nur diesmal nicht.
Ich habe ein Tabellenblatt, wo in der ersten Spalte die Positionnr ist und in den Darauffolgenden die Details. Generiert wurde die Liste von mir per VBA aus einer txt-datei. Handelt es sich um viele Details, wird in der nachfolgenden Zeile weiter geschrieben, etwa nach diesem Muster:
1 text 1 text 2 text 3
text 4
text 5
text 6
2 text 7 text 8 text 9
usw.
Das Ziel meines Teilskriptes ist die Bestimmung der Zellen zwischen 1 und 2, was in diesem Beispiel 3 wären:
For i = 7 To Zeilenanzahl
'Anzahl der leeren Zellen in Spalte A zwischen jedem Eintrag bestimmen
zähler1 = 0
For j = i + 1 To Zeilenanzahl
If InStr(Range("A" & j).text, " ") größer 0 Then
zähler1 = zähler1 + 1
MsgBox "Zähler +1"
End If
If zähler1 größer 0 Then
MsgBox zähler
End If
Next j
.
.
.
Next i
Die I-Schleife soll durch die ganze Tabelle laufen und die J-Schleife mit der Variablen zähler1 jedes Mal den Abstand zurück geben, nur krieg ichs einfach nicht auf die Reihe, weiß jemand Rat?
Achja, in den Zellen dazwischen befindet sich nicht NICHTS, sondern Leerzeichen, verursacht durchs Einlesen