Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1664to1668
1664to1668
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nicht definierter Bereich - VBA

Forumthread: Nicht definierter Bereich - VBA

Nicht definierter Bereich - VBA
29.12.2018 10:08:50
Joachim
Hallo zusammen,
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

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Nicht definierter Bereich - VBA
29.12.2018 10:11:31
Hajo_Zi
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.
Anzeige
AW: Nicht definierter Bereich - VBA
29.12.2018 10:14:23
Hajo_Zi
es gibt keine Zelladresse
"zeile, 1:zeile, 8"
Gruß Hajo
AW: Nicht definierter Bereich - VBA
29.12.2018 10:27:39
Nepumuk
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
Anzeige
AW: Nicht definierter Bereich - VBA
29.12.2018 11:36:02
Gerd
Moin 
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

Gruß Gerd
Anzeige
AW: Nicht definierter Bereich - VBA
29.12.2018 17:42:49
Joachim
Danke Euch allen - Super
AW: Nicht definierter Bereich - VBA
29.12.2018 17:42:51
Joachim
Danke Euch allen - Super
;

Forumthreads zu verwandten Themen

Variable für Diagramm nicht definiert
greenhorn

Hallo,
ich habe ein (für euch sicher simples) Problem.
Das kommt bei mir im Editor:

wo muss ich die Variable definieren? Es handelt sich um ein Diagramm.
christian
20.08.2008 10:39:00
Thread-ID: 1003126
15 Beiträge
Objektvariable nicht definiert?
David

Hallo Leute,
heute mal wieder mit einer eigenen Frage.
Was ist an folgendem Code falsch:
Dim Name As String Name = Range("B9").Value If IsError(Columns("N:N").Find(what:=Name).Activate) Then MsgBox ("nix") Else MsgBox ("da")
Ich will damit prüfen lassen, ob der Wert in B9 in...
10.09.2008 15:39:00
Thread-ID: 1008828
5 Beiträge
Variable nicht definiert bei: 'vbext_pp_locked' ?!
Andreas

Hallo Herber Fans,
ich habe eine Prozedur, die im Aktiven Workbook einen Code in ein die VBA Umgebung eines Worksheets packen soll. Wen das Ziel (Aktive) Workbook einen VBA Projektschutz hat, soll eine Meldung kommen, daß diese Aktion nicht ausgeführt werden kann.
Dafür habe ich die Zei...
24.03.2009 15:28:01
Thread-ID: 1063387
3 Beiträge
Anzeige
Fehler: Variable nicht definiert
ing.grohn

Hallo Forum,
folgenden Sequenz hat bisher immer funktioniert.
Jetzt meldet VBA: Fehler bei compilieren, Variable nicht definiert!
Private Sub CommandButton22_Click() Dim Zeile As String Dim Laenge As Integer Dim Posi As Integer Set frm4 = UserForm4 ' Was...
06.09.2009 13:04:24
Thread-ID: 1100857
6 Beiträge
Variable nicht definiert
Heinz

Hallo Leute
Habe plötzlich ein Problem bei "Calendar1"
Bis jetzt ist es immer problemlos gegangen.Jetzt kommt plötzlich n"Variable nicht definiert"
Könnte mir bitte jemand helfen.
Gruß
Heinz
Private Sub ListBox1_Click() If ListBox1.Value "" And Calendar1.Value "" Then...
11.10.2010 02:28:32
Thread-ID: 1181647
3 Beiträge
Anzeige
Variable nicht definiert
René

Hallo liebe Excelgemeinde,
ich möchte beim Öffnen einer Arbeitsmappe alle Daten löschen die älter als ein Monat sind. Das funktioniert auch wenn ich das Makro über eine Schaltfläche händisch starte. Aber wenn ich es in die Workbook Open schreibe kommt in der Zeile x = 2 Variable nicht defin...
09.05.2011 10:37:00
Thread-ID: 1213592
6 Beiträge
VBA zu Tabelle - Variablenwerte kommen nicht an
Perry

Hallo!
Mein Problem stellt sich folgendermaßen dar:
Habe eine Arbeitsmappe mit mehreren Worksheets - das erste ist eine Übersicht, die zusammenfassend angeben soll, wie oft bestimmte Ausdrücke in den nachfolgenden Worksheets vorkommen.
Das Zusammenzählen, wie oft die gesuchten Ausdr...
03.07.2011 19:12:26
Thread-ID: 1220730
2 Beiträge
Fehler: Variable nicht definiert
Peter

Hallo zusammen,
ich bekomme beim Start eines Makros die Fehlermeldung "Variable nicht definiert". Was ist im Code falsch? Das Makro starte ich über ein Formular (Name des Formulars: "Master") per "Call ABCMakro". Der Code für das Makro "ABCMakro" steht in einem Modul namens "ABC".
Danke...
12.08.2011 10:46:56
Thread-ID: 1225810
4 Beiträge
xlOpenXLMWorkbook --> Variable nicht definiert
Peter

Guten Tag
Ich verwende nachstehenden Code, um xls-Dateien auf xlsm-Dateien umzustellen. Das klappt. Nun möchte ich auch xls-Dateien auf xlsx-Dateien umstellen. Da erhalte ich eine VBA-Fehlermeldung "Fehler beim Kompilieren: Variable nicht definiert" und markiert wird xlOpenXLMWorkbook
M...
19.10.2011 10:05:43
Thread-ID: 1234475
3 Beiträge
Variable nicht definiert
Fredy

Hallo alle
Ich habe ein Problem mit einem vba quel den ich die Excel Datei öffne sollte eigentlich ein userform auf Gehen aber seit ich Benn vba erweiter Habe kommt immer eine Fehler Meldung
Variable nicht definiert
Für Hilfe Danke ich schon im Voraus
Gruss Fredy
https://ww...
06.11.2011 23:43:52
Thread-ID: 1236873
8 Beiträge
Excel VBA Suchfunktion- Objektvariable nicht festg
MS

Hi,
ich habe bei Google ein VBA Script gefunden, welches eine Suchfunktion bietet.
Funktioniert super, nur dass, wenn die Suche erfolgreich war, immer diese Fehlermeldung angezeigt wird:
"Objektvariable oder With Blockvariable nicht festgelegt"
Ich suche mit diesen Script alle T...
14.07.2016 19:33:01
Thread-ID: 1504572
7 Beiträge
VBA variabler Speicherpfad geht nicht
Falco

Moin zusammen,
ich suche mal wieder den Experten unter euch der mir den Fehler meines Codes finden und verbessern kann. Ich möchte meine Excel Mappe unter einen bestimmten Pfad speichern (abhängig von Zellinhalt) und dann nur die Seiten 2 bis 8. Der Speicherpfad und Name wird bereits in ein...
19.08.2016 10:38:07
Thread-ID: 1510142
16 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige