beim u.a. Makro geht es nach der IF-Anweisung range nicht weiter, da der Bereich
nicht definiert ist? Am Ende wird dann auch noch next zeile ein fehlendes FOR
angemahnt. Was ist hier falsch?
Vielen Dank für Eure Infos....
Sub VBA()
Dim zeile As Integer
Dim zeilenende As Integer
Worksheets("Tabelle1").Activate
zeilenende = Tabelle1.UsedRange.Rows.Count
For zeile = 1 To zeilenende
If .range(zeile, 7).Value = 0 And .range(zeile, 8).Value = 0 Then
range("zeile, 1:zeile, 8").Select
With Selection
.Active.Cells.Interior.Colorcode = vbGreen
End With
Else
If .range(zeile, 7).Value > 0 And .range(zeile, 8).Value > 0 Then
range("zeile, 1:zeile, 8").Select
With Selection
.Active.Cells.Interior.Colorcode = vbRed
End With
End If
Next zeile
End Sub