Ich will bestimmt Zellen finden (1. hat Wert und die 2.und 3. sind leer) und dann in den Zeilen nach Zellen mit einer bestimmten Formatierun suchen, diesen Bereich ausgeben (also 1. Spalte, die gefunden bis letzte Spalte,die gefunden wurde). Ich habe mir gedahct, ich such s und gebe dann für den Anfang s-k und fürs Ende s aus. Das soll in dem neuen Tabellenblatt (in Spalte F der Anfang und Spalte G das Ende) ausgegeben werden. Immer wenn ein neuer Bereich gefunden wird, soll dieser in die nächste Zeile der neuen Tabelle.
Ich komme bis hierhin und jetzt irgendwie nicht mehr weiter. Habt ihr Vorschläge?
Dim i As Integer, k As Integer
Dim s As Integer, t As Integer
Dim lRow As Long
lRow = Plan.Cells(Rows.Count, 1).End(xlUp).Row
k = 0
For i = 1 To lRow - 30
If Plan.Cells(i, 1).Value "" And Plan.Cells(i + 1, 1).Value = "" And Plan.Cells(i + 2, 1).Value = "" And Plan.Cells(i, 1).Value "Summe" Then
For s = 2 To 93
If Plan.Cells(i, s).Interior.Color = RGB(255, 153, 0) And Plan.Cells(i, s + 1).Interior.Color = RGB(255, 153, 0) Then
Layover.Activate
Layover.Cells(Rows.Count, 1).End(xlUp).Offset(1, 5).Value = s-k
Layover.Cells(Rows.Count, 1).End(xlUp).Offset(1, 6).Value = s
k = k + 1
Else
s = s + 1
If s = 93 And k = 0 Then
Exit For
Else
Exit For
End If
End If
Next s
k = 0
End If
Next
i = i + 1