End If

Bild

Betrifft: End If von: Gregor
Geschrieben am: 12.04.2005 14:00:37

Hallo zäme

Was ist hier falsch?

Ich erhalte die Meldung End If ohne If-Block


Sub test()
intLastRow = 25
For Beginn = 3 To intLastRow
    PAR = Workbooks(SourceFile).Worksheets(SheetName).Cells(Beginn, 6).Value
    If PAR <> "" Then
        If PAR = "neu" Or PAR = "Neu" Then End If
            Workbooks(SourceFile1).Activate: Worksheets(SourceSheet1).Select
            Set SuBe = Range("B:B").Find(PAR, lookat:=xlWhole)
            If Not SuBe Is Nothing Then
                SuBe.Select
                Zeile = Cells(ActiveCell.Row, 1).Row
                Workbooks(SourceFile).Worksheets(SheetName).Cells(Beginn, 12).Value = Workbooks(SourceFile1).Worksheets(SourceSheet1) _
                    .Cells(Zeile, 17)
                Workbooks(SourceFile).Worksheets(SheetName).Cells(Beginn, 44).Value = Workbooks(SourceFile1).Worksheets(SourceSheet1) _
                    .Cells(Zeile, 17)
                Workbooks(SourceFile).Worksheets(SheetName).Cells(Beginn, 42).Value = Workbooks(SourceFile1).Worksheets(SourceSheet1) _
                    .Cells(Zeile, 15)
                Workbooks(SourceFile).Worksheets(SheetName).Cells(Beginn, 43).Value = Workbooks(SourceFile1).Worksheets(SourceSheet1) _
                    .Cells(Zeile, 16)
            End If
        End If
    End If
Next Beginn
End Sub


Vielen Dank
Gregor
Bild


Betrifft: AW: End If von: magicman
Geschrieben am: 12.04.2005 14:06:38

If PAR = "neu" Or PAR = "Neu" Then End If

hier machst Du ein if mit end if zu ohne mit else weiterzumachen;


Bild


Betrifft: AW: End If von: Gregor
Geschrieben am: 12.04.2005 14:52:13

Hoi magicman

Besten Dank, aber wo in der Prozedur muss ich Else setzen.
Ich hab's versucht, aber immer mit Fehlermeldung.

Gruss Gregor


Bild


Betrifft: AW: End If von: magicman
Geschrieben am: 12.04.2005 14:56:45

Hallo Gregor,

versuchs mal so (ungetestet):
If PAR = "neu" Or PAR = "Neu" Then
End If

else
Workbooks(SourceFile1).Activate: Worksheets(SourceSheet1).Select
Set SuBe = Range("B:B").Find(PAR, lookat:=xlWhole)

Oder nimm am Ende deines Codes das überzählige END IF raus.

Gruß
Michael


Bild


Betrifft: AW: End If von: Gregor
Geschrieben am: 12.04.2005 15:12:05

Hoi Michael

Ja, mit

For Beginn = 3 To intLastRow
PAR = Workbooks(SourceFile).Worksheets(SheetName).Cells(Beginn, 6).Value
If PAR <> "" Then
If PAR = "neu" Or PAR = "Neu" Then
Else
Workbooks(SourceFile1).Activate: Worksheets(SourceSheet1).Select
Set SuBe = Range("B:B").Find(PAR, lookat:=xlWhole)
If Not SuBe Is Nothing Then
SuBe.Select
Zeile = Cells(ActiveCell.Row, 1).Row
Workbooks(SourceFile).Worksheets(SheetName).Cells(Beginn, 12).Value = Workbooks(SourceFile1).Worksheets(SourceSheet1) _
.Cells(Zeile, 17)
Workbooks(SourceFile).Worksheets(SheetName).Cells(Beginn, 44).Value = Workbooks(SourceFile1).Worksheets(SourceSheet1) _
.Cells(Zeile, 17)
Workbooks(SourceFile).Worksheets(SheetName).Cells(Beginn, 42).Value = Workbooks(SourceFile1).Worksheets(SourceSheet1) _
.Cells(Zeile, 15)
Workbooks(SourceFile).Worksheets(SheetName).Cells(Beginn, 43).Value = Workbooks(SourceFile1).Worksheets(SourceSheet1) _
.Cells(Zeile, 16)
End If
End If
End If
Next Beginn
hats geklappt.

Ich hatte, vermutlich fälschlicherweise

Then End If
Else
geschrieben.

Vielen Dank an euch Beide.

Gruss Gregor


Bild


Betrifft: AW: End If von: magicman
Geschrieben am: 12.04.2005 15:14:54

Hallo Gregor,

in diesem Fall ist magicman = Michael.
Habe nur einen Nickname genommen, damit ich mich unter der Recherche auch wiederfinde.
Michaels gibts ja wie Sand am Meer.

Gruß
Michael


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Lästiges VBAdruck Problem"