Farbigen Rangebereich auswählen
12.07.2008 08:21:00
Burghard
kann mir jemand helfen? Ich möchte unten den Rangebereich bis Ende der Farbe 34 auswählen.
Ich habe dazu den Aufruf im Klartext geschrieben.
Schönen Gruß
Burghard
=========================================================
Sub Auffuellen()
On Error GoTo ende
Dim letzte As Long
Dim letztezeile
letzte = Range("a65536").End(xlUp).Rows
letztezeile = ActiveSheet.Cells(65536, 1).End(xlUp).Row
Dim intI As Integer
Dim intLastRow As Integer
intLastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To intLastRow
If Range("A" & i).Value = "" Then
Range("A" & i).Value = Range("A" & i - 1).Value
End If
Next i
If Range("A" & letztezeile).Interior.ColorIndex = 34 Then
Range("A" & letztezeile) bis Ende der Farbe 34 in Spalte A.Select
End If
ende:
End Sub