HERBERS Excel-Forum - das Archiv

Thema: End If

End If
Gregor

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
AW: End If
magicman

If PAR = "neu" Or PAR = "Neu" Then End If
hier machst Du ein if mit end if zu ohne mit else weiterzumachen;
AW: End If
Gregor

Hoi magicman
Besten Dank, aber wo in der Prozedur muss ich Else setzen.
Ich hab's versucht, aber immer mit Fehlermeldung.
Gruss Gregor
AW: End If
magicman

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
AW: End If
Gregor

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
AW: End If
magicman

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
End If
Gregor

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
AW: End If
magicman

If PAR = "neu" Or PAR = "Neu" Then End If
hier machst Du ein if mit end if zu ohne mit else weiterzumachen;
AW: End If
Gregor

Hoi magicman
Besten Dank, aber wo in der Prozedur muss ich Else setzen.
Ich hab's versucht, aber immer mit Fehlermeldung.
Gruss Gregor
AW: End If
magicman

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
AW: End If
Gregor

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
AW: End If
magicman

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
Bewerten Sie hier bitte das Excel-Portal