Herbers Excel-Forum - das Archiv

Warum Fehler "End If" ohne "If-Block"?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Warum Fehler "End If" ohne "If-Block"?
von: proxima05

Geschrieben am: 05.01.2007 18:28:42
Hallo,
kann mir jemand sagen, warum der folgende Code den o.g. Kompilierungsfehler bringt?
============================
Private
Sub CommandButton1_Click()
Dim Zeile As Integer
Zeile = 15
Do
Zeile = Zeile + 1
If range("A15").Value <> """" Then
range("C15").FormulaR1C1 = "=(1/(1+R6C2/R7C2)^RC[-2])"
Exit Do
End If
Loop
End Sub

============================
Danke
Ralph
Bild

Betrifft: AW: Warum Fehler "End If" ohne "If-Block"?
von: Jens
Geschrieben am: 05.01.2007 18:35:49
Hi,
außer, dass die Schleife sinnfrei ist, fällt mir nichts auf.
mfg Jens
Bild

Betrifft: So wie es da steht - OK, aber...
von: Luc:-?
Geschrieben am: 05.01.2007 19:34:11
...steht das so auch im Pgm, Ralph?
Scheint nicht kopiert zu sein - da könnten noch irgendwelche Merkwürdigkeiten verborgen sein.
Gruß Luc :-?
 Bild
Excel-Beispiele zum Thema "Warum Fehler "End If" ohne "If-Block"?"
Fehlermeldung #NV ausblenden Fehlermeldung abfangen
Fehler in Workbook_Open-Prozedur abfangen Fehlermeldung #DIV/0! verhindern
Fehler entfernen Fehlermeldung abfangen und in sequentielle Datei schreiben
Fortlaufende Suche unter Vermeidung eines Laufzeitfehlers VBA-Fehlermeldungen auflisten
Alle Zellen mit der #BEZUG!-Fehlermeldung auswählen Zahlenstring mit Formel auslesen und Fehlermeldung verhindern