End If
12.04.2005 14:00:37
Gregor
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
Anzeige