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
|