VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von:
Sami

Datum:
02.06.2020 10:45:33

Views:
1044

Rating:

Antwort:

Thema:
If Problem

Guten Tag ich versuche eine If anzuwenden doch ich bekomme die Fehler meldung, ich hette ein End If ohne If. Doch ich ferstehe nicht warum.

Mag mir Jemand helfen Danke

Hier ist mein Sub:

Sub annés()

Dim coupex As String

Dim coupey As String

coupex = Range("B3")

coupey = Range("C3")

MsgBox coupex

MsgBox coupey

Dim dif As String

dif = coupey - coupex

MsgBox dif

Do Until dif = 1

If dif = 0 Then

Range("C3").Clear

Exit Do

Else

Dim b As Integer

For b = 1 To dif

Cells(3, 2 + b).Value = coupex + b

Exit Do

End If

Loop

End Sub

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen