Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
16.04.2024 16:47:14
Wörter in verschiedenen Zellen suchen und Wert zurückgeben
16.04.2024 16:22:58
Pivot
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
824to828
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
824to828
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

"Fehler beim Compilieren: Else ohne if"

"Fehler beim Compilieren: Else ohne if"
08.12.2006 16:02:47
Peter
Hallo Forum
Irgendwie habe ich die If / Else / End if
Kontrollstruktur noch nicht begriffen, sonst müsste meiner Meinung nach nachfolgender Code problemlos ablaufen.
Kann mir jemand sagen, wo das Problem liegt?
Fehlermeldung: "Fehler beim Compilieren: Else ohne if"
Ich formatiere die Spalten 4,5,11, wobei das Problem bei Spalte 5 (E) liegt
Spalte E muss letzlich ein Textformat haben und hat in der Regel 9 insgesamt 9 Stellen (inkl. vorangestellte Nullen) ausser die eingetragene Zahl habe 10 oder mehr Stellen, dass beträgt die Länge maximal 13 Stellen, wobei 9 Stellen immer angezeigt werden.
Vielen Dank
Peter
zNr = 2
Do While zNr .Cells(zNr, 4).NumberFormat = "0"
.Cells(zNr, 5).NumberFormat = "@"
If .Len(.Cells(zNr, 5)) >= 10 Then .Cells(zNr, 5) = Right("####000000000" & .Cells(zNr, 5), 13)
Else
.Cells(zNr, 5) = Right("000000000" & Cells(zNr, 5), 9)
End If
.Cells(zNr, 11).NumberFormat = "#,##0.00; -#,##0.00; "
zNr = zNr + 1
Loop

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

Betreff
Datum
Anwender
Anzeige
AW: "Fehler beim Compilieren: Else ohne if"
08.12.2006 16:30:05
Matthias
Hallo Peter,
nach Then muss eine neue Zeile beginnen:
If ... Then
Else
End If
oder aber so:
If ... Then ... Else 'dann ohne End If
Gruß Matthias
AW: "Fehler beim Compilieren: Else ohne if"
08.12.2006 16:32:03
Andi
Hi,
das was im 'Then-Zweig' der If-Abfrage passieren soll, darfst Du nur dann in die gleiche Zeile schreiben, wenn die gesamte If-Abrage nur aus einer Zeile besteht, also nur eine Anweisung im 'Then-Zweig' und keine Else- oder ElseIf-Zweige.
Bei Dir muss das so aussehen:
[...]
If .Len(.Cells(zNr, 5)) &gt= 10 Then
.Cells(zNr, 5) = Right("####000000000" & .Cells(zNr, 5), 13)
Else
.Cells(zNr, 5) = Right("000000000" & Cells(zNr, 5), 9)
End If
[...]
Schönen Gruß,
Andi
Anzeige
AW: "Fehler beim Compilieren: Else ohne if"
08.12.2006 16:32:14
Kurt
zNr = 2
Do While zNr .Cells(zNr, 4).NumberFormat = "0"
.Cells(zNr, 5).NumberFormat = "@"
If .Len(.Cells(zNr, 5)) >= 10 Then
.Cells(zNr, 5) = Right("####000000000" & .Cells(zNr, 5), 13)
Else
.Cells(zNr, 5) = Right("000000000" & Cells(zNr, 5), 9)
End If
.Cells(zNr, 11).NumberFormat = "#,##0.00; -#,##0.00; "
zNr = zNr + 1
Loop
mfg Kurt
AW: "Fehler beim Compilieren: Else ohne if"
08.12.2006 16:37:37
IngGi
Hallo Peter,
es gibt zwei grundlegende Formen von If-Strukturen. 
If "Bedingung=Wahr" Then "tue etwas"
Wenn es hinter dem "Then" in der selben Zeile weitergeht, benötigt die If-Anweisung kein "End If", es darf noch nicht einmal verwendet werden und auch "ElseIf" bzw. "Else" sind nicht möglich.
If "Bedingung=Wahr" Then
"tue etwas"
ElseIf "andere Bedingung=Wahr" Then
"tue etwas anderes"
Else
"tue etwas völlig anderes"
End If
Geht es nach dem "Then" dagegen erst auf der nächsten Zeile weiter, benötigt die If-Anweisung zwingend ein "End If" und auch "ElseIf" bzw. "Else" für weitere Bedingungen bzw. Restfälle sind dann möglich.
Gruß Ingolf
Anzeige
AW: "Fehler beim Compilieren: Else ohne if"
08.12.2006 16:41:40
Peter
Hallo
Herzlichen Dank für die zahlreichen Rückmeldungen. Echt spitze. Werde mir alles zu Gemüte führen.
Freundlicher Gruss
Peter
AW: "Fehler beim Compilieren: Else ohne if"
08.12.2006 16:48:03
Matthias
Hallo Ingolf,
...benötigt die If-Anweisung kein "End If", es darf noch nicht einmal verwendet werden und auch "ElseIf" bzw. "Else" sind nicht möglich.
Also "Else" geht schon:

If a=1 Then b=1 Else c=1

Gruß Matthias
AW: "Fehler beim Compilieren: Else ohne if"
08.12.2006 17:15:39
IngGi
Hallo Matthias,
da hast du natürlich vollkommen recht. Diese Möglichkeit hatte sich in meinem Hirn gerade gut versteckt.
Gruß Ingolf

29 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
VBA if then else mit ComboBoxen
Addi

Hallo Zusammen,
ich möchte im folgenden Coding in der "SaveAs-Zelle" einen bestimmten Dateinamen setzen - da wo die XXXXXX stehen.
Der Name soll sich aus den strDateiname1 und strDateiname2 ermitteln und zwar, wenn in strDateiname2 kein Wert steht soll strDateiname1 gewählt werden, anso...
23.11.2016 12:25:41
Thread-ID: 1526517
3 Beiträge
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

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
7
2
5
4
3
3
6
5
3
2
8
10
3
5
3
2
4
2
1
7
3