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
Sub Auffuellen()
On Error GoTo ende
Dim i As Long
Dim letztezeile As Long
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
ActiveSheet.Range(Cells(i, 1), Cells(65536, 1)).Interior.ColorIndex = 34
Exit Sub
ende:
MsgBox "Achtung! es ist ein Fehler aufgetreten "
End Sub
damit wird die komplette Spalte A beginnend mit der lezteZeile bis 65536 eingefärbt.
Viele Grüße
Herby
Option Explicit
Sub Auffuellen()
On Error GoTo ende
Dim x As Long, i As Long
Dim intLastRow As Long
intLastRow = 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 Cells(intLastRow, 1).Interior.ColorIndex = 34 Then
x = intLastRow
Do
x = x + 1
Loop Until Cells(x, 1).Interior.ColorIndex 34
Range("A" & intLastRow, "A" & x - 1).Select
End If
ende:
End Sub
Grüße Boris