Supportnet / Forum / Tabellenkalkulation
Schleife ein einbauen
Frage
Schönen guten morgen ich bin es mal wieder :-) und habe wieder ein blöde frage.
Ich bräuchte mal wieder eure hilfe. Zu meinem Problem. Ich würde gerne eine schleife in mein (nicht ganz mein) Makro einbauen, so das das Suchfunktionsfenter nach dem durchlauf ca. 100 mal wiederholt wird. Ich suche die AuftragsNummer die Makro arbeitet alles ab und dann am ende der Makro wieder von vorne anfängt mit der abfrage der Suchfunktion ca. 100 mal.
Code
Sub finden()
Dim Auftragsnummer As String
Dim loletzte As Long
´Auftragsnummer erfassen und suchen
Auftragsnummer = InputBox("Die Auftragsnummer eingeben." & _
Chr(10) & _
"Es wird die Auftragsnummer gesucht.", _
"Auftragsnummer suchen")
Columns("E:E").Select
Selection.Find(what:=Auftragsnummer, after:=ActiveCell, LookIn:=xlValues, lookat _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
´Fehlerausgang, falsche Auftragsnummer oder keine
If Err <> 0 Then
MsgBox "Kann die Auftragsnummer nicht finden " & Auftragsnummer
End
End If
If Auftragsnummer = False Then
Range("A1").Select
End
End If
´Ende kriterium
loletzte = IIf(IsEmpty(Worksheets("Auftrag_gef").Range("A65536")), Worksheets("Auftrag_gef").Range("A65536").End(xlUp).Row, 65536) + 1
Set c = Columns(5).Find(Auftragsnummer, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
´kopieren der Auftragsnummer
Cells(c.Row, 12) = c.Value
Rows(c.Row).Copy Destination:=Worksheets("Auftrag_gef").Rows(loletzte)
loletzte = loletzte + 1
Set c = Columns(5).FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End Sub
Ich weis das ist für euch das kleinste Problem aber für mich ist es schon ein riesen Problem.
Und nochmals danke für das letzte mal.
Wäre mal wieder sehr dankbar für eure hilfe.
Gruß Hell
Antwort 1 von Hellchampion
Ich habe es hinbekommen dan der hilfe von yahman im chat