Makro automatisch wiederholen
18.03.2004 09:36:30
Thorsten
bestimmt kann mir jemand von Euch weiterhelfen. Vorab schon mal Besten Dank dafür.
Ich möchte mein Makro automatisch wiederholen lassen, solange die Variable "Bst3" gefunden wird.
Dabei soll das Makro die Variable "wdhlg" um 1 hochsetzen und erneut alles ab "Start:" ausführen.
Wenn "Bst3" nicht gefunden wird, dann soll das Makro enden
Sub Bestellung_an_PDA()
' Bestellung_an_PDA Makro
' Bestellung an PDA übergeben
'Bst1=Bestellnummer Eingabe
'Bst2=Bestellnummer Ausgabe
'Bst3=Index
'Art1=Artikelnummerausgabe
'Anz1=offene Menge
'wdhlg=Wiederholungszähler
Workbooks.Open Filename:= _
"E:\Dokumente und Einstellungen\Thorsten Wilke\Eigene Dateien\Pocket_PC My Documents\Bestellungen für PDA.xls"
Start:
Windows("Lagerlisten.xls").Activate
' Bestellnummer in Maske eingeben
Bst1 = Application.InputBox("Bitte Bestellnummer zur Übergabe an PDA eingeben")
If Bst1 = False Then
GoTo Ende:
End If
With Sheets("Bestellungen").Range("A1:A500")
Set Bst2 = .Find(Bst1, LookIn:=xlValues, Lookat:=xlWhole)
If Bst2 Is Nothing Then
MsgBox "Falsche Auftragsnummer, Vorgang wird beendet"
GoTo Ende:
End If
End With
' Bestellung suchen und Übergeben
Sheets("Bestellungen").Select
wdhlg = 1
Bst3 = (Bst2 * 100 + wdhlg)
With Sheets("Bestellungen").Range("A1:Q1000")
Set Art1 = .Find(Bst3, Lookat:=xlPart).Offset(0, 5)
If Art1 > 1 Then
'Bestellmenge ermitteln
Set Anz1 = .Find(Bst3, Lookat:=xlPart).Offset(0, 17)
Else: GoTo Ende:
End If
End With
' Daten übergeben
Windows("Bestellungen für PDA.xls").Activate
Range("A2").Value = Art1
Range("B2").Value = Anz1
Ende:
MsgBox "Vorgang wird beendet"
End Sub