Syntax
16.10.2007 15:10:02
Christian
die Syntax in diesem Sub wird anscheinend nicht erkannt. Folge Kommentar: "loop ohne Do"
Kann mir jemand helfen ?
Dim rZelle As Range
Dim sFundst As String
Application.ScreenUpdating = False
Set WkSh = Worksheets("Bogentresor")
With Worksheets("Bogentresor").Columns(6) ' suchen in Spalte F
Set rZelle = .Find(StückeNummer1, LookIn:=xlValues, LookAt:=xlWhole)
If Not rZelle Is Nothing Then sFundst = rZelle.Address
Do
If Worksheets("Bogentresor").Range("G" & rZelle.Row).Value = KuponNummer_von And _
Worksheets("Bogentresor").Range("H" & rZelle.Row).Value = Art_des_WP And _
Worksheets("Bogentresor").Range("J" & rZelle.Row).Value = Zugangs_Buchungsbelegnummer1 Then
rZelle.EntireRow.Cut
With Worksheets("Archiv").Cells(Worksheets("Archiv").Rows.Count, "C").End(xlUp).Offset(1, 0).EntireRow.Insert
Set rZelle = .FindNext(rZelle)
Loop
While Not rZelle Is Nothing And rZelle.Address sFundst
Else
MsgBox "Stücke-Nummer wurde nicht gefunden !", _
48, " Hinweis für " & Application.UserName
End If
Application.ScreenUpdating = True