mit folgendem Code lese gehe ich viele Zellen und Zeilen durch und schreibe in Array die Zeilennummer falls in einer Zeile keine mit Farbe versehenen Zellen anzutreffen sind.
For i = start_zeile + 10 To end_zeile Step 2
flag_zeile_farbe = 0
For k = spalte_hinten_start To spalte_hinten_ende
If Cells(i, k).Interior.ColorIndex xlNone Then
flag_zeile_farbe = 1
Exit For
End If
Next k
If flag_zeile_farbe = 0 Then
array_farbe(l) = i
End If
l = l + 1
Next i
Mit diesem Code-Schnipsel lese ich aus dem Array die Zeilennummern wieder aus und erzeuge daraus einen String um in einem nachfolgenden Schritt die Range markieren zu können und dann die Zeilen zu löschen.
zeilenzahl = UBound(array_farbe)
For i = 0 To zeilenzahl
If array_farbe(i) 0 Then
string_range = string_range & array_farbe(i) & ":" & array_farbe(i) & ", "
End If
Next i
Dies ist aber halt ein String und diesen kann ich dann hier nicht wie von mir dargestellt verwenden.
Range(string_range).Select
Selection.Delete
Wie kann ich aus diesem String eine Range erzeugen? Ich komme hier einfach nicht weiter.Besten Dank für eure Hilfe.
Gruß
Hannes