Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1464to1468
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1464to1468
1464to1468
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehlermeldung: End-If ohne If-Block

Fehlermeldung: End-If ohne If-Block
30.12.2015 18:53:46
Stefan Doliwa

Kann mir jemand sagen, wo da Problem liegt?
Ich habe folgende Anweisung programmiert:
For Each cl In Range("J:J").SpecialCells(xlCellTypeConstants, 3) 'Auswahl Zellen in J
If cl.Value < 0 Then cl.Cut cl.Offset(0, -6) 'Ausschnitt 6 Spalten versetzt einfügen
Next cl
End If
Also nix überwältigendes, aber ich bekomme die Fehlermeldung: End-If ohne If-Block!
Ich habe doch einen If-Block? Liege ich da falsch, habe ich einen Fehler gemacht?
Danke Stefan

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlermeldung: End-If ohne If-Block
30.12.2015 18:58:58
Mullit
Hallo,
das End If ist i.d. Fall zu viel: 
For Each cl In Range("J:J").SpecialCells(xlCellTypeConstants, 3) 'Auswahl Zellen in J
If cl.Value < 0 Then cl.Cut cl.Offset(0, -6) 'Ausschnitt 6 Spalten versetzt einfügen
Next cl

Gruß, Mullit

AW: Fehlermeldung: End-If ohne If-Block
30.12.2015 19:02:26
Stefan Doliwa
Danke Mullit,
ich habe es ausprobiert und es stimmt, aber ich berstehe nicht, warum das End If raus mußte. Kannst Du mir das noch erklären? Für mich ist das Verständnis genauso wichtig, wie die Funktion meiner Programmierung und ich bin in VBA schwach auf der Brust. Danke!

AW: Fehlermeldung: End-If ohne If-Block
30.12.2015 19:14:02
Mullit
Hallo,
kein Problem, für die If-Anweisung gibt es mehrere Notationsmöglichkeiten u.a. die einzeilige, die ohne den End if Abschluß auskommt.
Fehlerhaft wird es allerdings bei Dir dadurch, daß die End If Anweisung außerhalb der For-Next-Schleife steht, mit dem Abschluß müsstest Du z.B. so notieren: 
For Each cl In Range("J:J").SpecialCells(xlCellTypeConstants, 3) 'Auswahl Zellen in J
If cl.Value < 0 Then
cl.Cut cl.Offset(0, -6) 'Ausschnitt 6 Spalten versetzt einfügen
End If
Next cl

Gruß, Mullit

Anzeige
AW: Fehlermeldung: End-If ohne If-Block
30.12.2015 19:26:43
Stefan Doliwa
Danke Euch für die Erklärungen! Habe jetzt meinen Fehler verstanden!

AW: Fehlermeldung: End-If ohne If-Block
30.12.2015 19:43:46
Hajo_Zi
warum offen?

Dann doch erledigt! GRutsch! owT
30.12.2015 19:44:40
Luc:-?
:-?

AW: Fehlermeldung: End-If ohne If-Block
30.12.2015 19:03:23
Gerd L 

If cl.Value < 0 Then cl.Cut cl.Offset(0, -6) 'Ausschnitt 6 Spalten versetzt einfügen

Hallo Stefan,
diese (einzeilige)If..Then - Anweisung ist ohne "EndIf" abgeschlossen.
Das "End If" nach der Schleife steht somit "alleine da" u. vermißt den Anfang einer "If"-Bedingung
bzw. ist zu löschen.
Gruß Gerd

122 Forumthreads zu ähnlichen Themen

Programm-Fehler <Else ohne If>
Ballie

Hallo Excel Freunde,
ich habe ein Problem mit diesem Programm, ich wollte es so ändern, indem ich diese For Next Schleife zusätzlich rückwärts laufen lassen möchte. Man müßte die Zellen A1:A12 mit einer Zahlenfolge von 1:12 füllen. Im ersten VBA-Code läuft das Programm vorwärts und richtig,...
26.07.2009 10:50:12
Thread-ID: 1091368
4 Beiträge
Anzeige
If ohne Else
MBie

Hallo liebe Community!
Ich brauche schon wieder eure Hilfe. Diesmal hänge ich bei einer Formel, bei der ich die "sonst"-Funktion nicht richtig ausformulieren schaffe. Folgendes hab ich aktuell zusammengeschnipselt (funktioniert aber überhaupt nicht^^):
Public Sub HR_Suchmodul()
Dim...
23.08.2013 10:14:57
Thread-ID: 1328101
3 Beiträge
End If ohne If- Block
Alexander
Hallo zusammen,
Ich hoffe ihr könnt mir Licht ins Dunkel bringen
Ich habe in einem Makro nur diese If- Anweisung
If Not Spalte Is Nothing Then
n = Spalte.Column
Else
For i = 2 To 5
Tabelle2.Cells(i, 4).Value.Clear
Next i
For i = 7 To 13
Tabelle2.Cells(i, 4).V...
22.04.2015 17:34:58
Thread-ID: 1422539
3 Beiträge
Anzeige
If Else VBA
Bobby

Hallo,
ich habe eine If Else Funtkion geschrieben, die jedoch fehlerhaft ist. Im Forum habe ich zu diesem Thema nichts gefunden womit ich meine Fehler ausmärzen konnte.
In meiner Tabelle stehen in Spalte J verschiedene Aufträge. 20 dieser Auftragsarten werden in Spalte W mit einem Proz...
23.05.2017 10:27:47
Thread-ID: 1559896
6 Beiträge
End If ohne If-Block??
Idence

Guten Morgen an alle,
unten sehr ihr den Code meines Programms. Wenn ich versuche es ablaufen zu lassen, kommt leider die Fehlermeldung "End If ohne If-Block", was ich nicht verstehen kann.
Hat jemand eine Idee woran dies liegen kann?

Gruß
Idence
24.05.2018 10:27:46
Thread-ID: 1625503
5 Beiträge
Else ohne IF
Björn

Hallo bei folgendem Makro erhalte ich immer den Fehler "Else ohne IF". Ich weiß das Thema war gefühlt schon 100 mal dran und ich habe auch schon viel nach gelesen aber ich kann keinen Fehler erkennen. Sub Lardis() Dim colTabelle As Collection Dim colZeile As Collection Set colTabelle = New Coll...
14.08.2018 10:49:44
Thread-ID: 1639278
4 Beiträge
End If ohne If-Block?
Knud

Hi ihr,
Ich habe ein kleines Makro, dass die Zelle L1 auf Inhalt überprüfen soll. Wenn Dort ein Wert drin steht, soll mein saveasindex auf True gesetzt werden. L1 ist dabei eine Verbundene Zelle (L1:L15).
Irgendwie funzt das mit meinem Makro nicht :-(
Knud

...
23.01.2003 11:12:06
Thread-ID: 207990
4 Beiträge
If...then....Else -> Datum /VBA
thorsten

Hallo
Habe folgenden Code geschrieben:
Private Sub eingabeeins()
Sheets("Tabelle1").Activate
Range("b1").Select
If ActiveCell = "01.01.2004" And ActiveCell.Offset(1, 0).Text = "Januar" Then ActiveCell.Offset(0, 1).Value = "1" _
Else ActiveCell.Offset(0, 1).Value = ""
End Su...
05.02.2003 11:02:14
Thread-ID: 214175
7 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
2
2
2
5
4
3
3
6
5
3
2
8
10
3
5
3
2
4
2
1
7
3
11