End If Problem

Forumthread: End If Problem
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: End If Problem

End If Problem

03.08.2004 13:21:13

Christof

Hallo,
Ich komme da einfach nicht weiter:
Wenn ich das mit End If mache meckert excel das keine if anweisung da ist
Lasse ich End If weg dann meckert Excel bei End


Sub es fehle die End If Anweisung...
Vielleicht hat jemand eine Idee?!
Sheets("Vergleich").Select
For I = 2 To 300
SUOrdernummer = Range("K" & I).Value
If SUOrdernummer = Ordernummer Then MUOrdernummer = Range("K" & I).Value: MUProduktnummer = Range("I" & I).Value: MUMenge = Range("M" & I).Value
End If
Next I
End Sub

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: End If Problem

Manuel
AW: End If Problem

03.08.2004 13:35:58

Christof
AW: End If Problem

kdosi

AW: End If Problem

Manuel

Hi Christof.
Du darfst hinter ´bei einer einzeiligen If-Anweisung kein "End if" schreiben. Das ist der Fehler
Gruß
Manuel

AW: End If Problem

03.08.2004 13:35:58

Christof

Hallo Manuel,
achso.
Ok Vielen Dank!
Gruß
Christof

AW: End If Problem

kdosi

Hallo Christof,
1. Moeglichkeit, the single-line form, If A > 10 Then A = A + 1 : B = B + A : C = C + B
    If SUOrdernummer = Ordernummer Then MUOrdernummer = Range("K" & I).Value: MUProduktnummer = Range("I" & I).Value: MUMenge = Range("M" & I).Value
2.Moeglichkeit, the block form  :
    If SUOrdernummer = Ordernummer Then
        MUOrdernummer = Range("K" & I).Value
        MUProduktnummer = Range("I" & I).Value
        MUMenge = Range("M" & I).Value
    End If