Schleife
21.06.2016 12:54:32
NiSt
ich habe folgenden Quellcode und möchte diesen gerne als Schleife laufen lassen:
Application.DisplayAlerts = wdAlertsNone
Dim b As Range, Begriff As String
With Sheets("Mitarbeiter 1")
Begriff = 1
If Begriff = "" Then Exit Sub
Set b = Sheets("Mitarbeiter 1").Columns(9).Find(Begriff)
If b Is Nothing Then
Sheets("Mitarbeiter 1").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = wdAlertsAll
End If
End With
Die Zahl 1 soll hier mit i ersetzt werden.
i soll dabei von 1 - 12 laufen. Der Begriff und der Mitarbeiter sollen also mittels i abgerufen werden.
Kann mir jmd. helfen? Ich habe es bereits ausprobiert, konnte aber nicht die rettende Lösung erarbeiten.
Vielen Dank schon mal im Voraus!
Viele Grüße
Niko