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"