Nicht definierter Bereich - VBA | HERBERS Excel Forum

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

das ist der Vorteil, wenn man mit Einrückungen arbeiten. Man sieht sofort das ein End If fehlt.

Option Explicit
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

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.

Hallo Joachim,
da sind ein paar grundsätzliche Fehler drin. Zudem ist der Name des Makros äußerst ungünstig, denn VBA ist eine Klasse in Office.
Teste mal:

Option Explicit

Public Sub Makro()

    Dim lngRow As Long

    With Tabelle1

        For lngRow = 1 To .UsedRange.Rows.Count

            If .Cells(lngRow, 7).Value = 0 And .Cells(lngRow, 8).Value = 0 Then

                .Range(.Cells(lngRow, 1), .Cells(lngRow, 8)).Interior.Color = vbGreen

            ElseIf .Cells(lngRow, 7).Value > 0 And .Cells(lngRow, 8).Value > 0 Then

                .Range(.Cells(lngRow, 1), .Cells(lngRow, 8)).Interior.Color = vbRed

            End If
        Next lngRow
    End With
End Sub

Gruß
Nepumuk

Sub FAERBEN() Dim lngZeile As Long With Tabelle1 For lngZeile = 1 To .UsedRange.Rows.Count If .Cells(lngZeile, 7).Value = 0 And .Cells(lngZeile, 8).Value = 0 Then .Cells(lngZeile, 1).Resize(1, 8).Interior.Color = vbGreen ElseIf .Cells(lngZeile, 7).Value > 0 And .Cells(lngZeile, 8).Value > 0 Then .Range(.Cells(lngZeile, 1), .Cells(lngZeile, 8)).Interior.Color = vbRed Else .Range("A" & lngZeile & ":H" & lngZeile).Interior.Color = -4142 End If Next lngZeile End With End Sub

Beliebteste Forumthreads (12 Monate)

Nicht definierter Bereich - VBA

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

179 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nicht definierter Bereich - VBA

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

179 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread