ich brauche mal Hilfe. Ich möchte in einem Makro in einer Zeile zwei Bedingungen verbinden.
Wenn die nächste Zelle in der Spalte A leer ist und die Zelle vor der leeren Zelle den Farbwert 34 hat, dann soll weiternumeriert werden.
Beispiel:
Das erste Makro klappt, nummeriert aber auch in der Spalte A, die nicht den Farbwert 34 haben, weiter.
Sub Markieren()
On Error GoTo ende
Dim intI As Integer
Dim intLastRow As Integer
intLastRow = ActiveSheet.Cells(Rows.Count, 2).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
ende:
End Sub
=======================================
Dieses Makro hat einen Fehler.
Sub Markieren()
On Error GoTo ende
Dim intI As Integer
Dim intLastRow As Integer
intLastRow = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To intLastRow
If Range("A" & i).Value = "" AND Range("A" & i - 1).Value.Interior.ColorIndex = 34 Then
Range("A" & i).Value = Range("A" & i - 1).Value
End If
Next i
ende:
End Sub
Hilfe wäre nett.
Schönen Gruß
Burghard