Guten Morgen,
ich sitze seit gestern an einem Problem. Ich habe eine Spalte die soll mit Hilfe einer For Each Schleife durchlaufen werden. Wenn sich ein "-" in einer Zelle befindet soll die Zellenummer der Zelle über der Zelle mit dem Inhalt "-" in ein Array gespeichert werden. Das soll n mal passieren bis alle 'Zellen abgearbeitet sind.
Zur Zeit schreibt er mit immer nur die letzte Zeile in das Array und sind die Zellen aus den Bereichen davor. Auf dem Beispiel Screenshot:
Er soeichert nur die Zeile 33 in das Array es soll aber auch die 26 gespeichert werden.
Danke für eure Hilfe im Vorraus. Gruß
Link zum Bild:
http://postimage.org/image/g1wu9tsm9/
Sub Grouping()
' Grouping
'
Start = 0
Ende = 0
w = ActiveCell.Row
d = w
e = 0
While Range("C" & d).Interior.Color <> RGB(200, 200, 200)
d = d - 1
Start = d + 1
Wend
Dim x As Range
Set x = Worksheets("Overview").Range("C" & Start & ":C1000")
For Each Zelle In x
e = e + 1
If Zelle.Value Like "-" Then
Ende = (Start + e) - 2
End If
Next
'Array in Ende
Dim Array1(1 To 10) As Integer
For i = 1 To 10
Array1(i) = Ende
Next i
MsgBox ("start:" & Start)
MsgBox ("Ende:" & Ende)
MsgBox ("Array: " & Array1(1))
'Worksheets("Overview").Rows(Start & ":" & Ende).Rows.Group
End Sub
|