Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Syntax

Syntax
16.10.2007 15:10:02
Christian
Hallo Leute,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Syntax
16.10.2007 15:12:00
Andi
Hi,
da fehlt das End If.
Wenn innherhalb einer Do...Loop-Schleife eine If...Then-Abfrage eingebaut wird, dann muss diese auch innerhalb der Schleife mit End If wieder beendet werden.
Schönen Gruß,
Andi

AW: Syntax
16.10.2007 15:30:00
Christian
Hallo Andi,
hilft nichts - immernoch "loop ohne Do"
... noch Tipps ?
Christian

AW: Syntax
16.10.2007 15:35:51
Andi
Hi,
With muss vor dem loop ebenfalls mit End With beendet werden.
Schönen Gruß,
Andi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige