Vorzeitig aus einer For-Schleife springen?
10.06.2016 19:56:01
Noureddine
wie kann ich hier von der For-Schleife vorzeitig austreten und das Makro weiter durchführen.
Also, sobald er das ELSE erreicht und ein neues Tabellenblatt erstellt + unbenennen, möchte ich aus der Schleife raus.
Könnt hier mir hierbei helfen?
Vielen Dank vorab.
Mien Ansatz sieht so aus:
Sub Makro1()
' Makro1 Makro
Dim i As Integer
Dim Abfrage As Byte
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "DATEN" Then
Abfrage = MsgBox("Tabellenblatt existiert bereits. Anlegen, mit dem Namen " & "DATEN " & _
Worksheets.Count & "?", 1, "Hinweis")
If Abfrage = 1 Then
Sheets.Add , Worksheets(Worksheets.Count)
ActiveSheet.Name = "DATEN " & Worksheets.Count
End If
Else
Sheets.Add , Worksheets(Worksheets.Count)
ActiveSheet.Name = "DATEN " & Worksheets.Count
End If
Next
End Sub