Code Wiederholen bis If erfüllt oder Abbruch
22.02.2020 13:12:37
Alex
Ich habe folgenden Code. Ich möchte, dass dieser Code solange wiederholt wird bis man bei der 2. IF Bedingung entweder False hat und der Code weitergeht (Also er nicht zu Exit Sub kommt) oder bis man bei einer MsgBox (Try again?) mit vbYesNo auf no klickt.
Also im Grunde soll das zweite Exit Sub durch eine Abfrage, ob man das Ganze wiederholen oder abbrechen möchte ersetzt werden.
Mein Versuch mit Do / Loop scheiterte kläglich :-(
Dim leer As Variant
Dim rng As Range
MsgBox "Copy to Clipboard and click OK"
Sheets("Dev").Select
'Prüfung ob KEINE Daten in Zwischenspeicher
Set leer = CommandBars.FindControl _
(Type:=msoControlButton, ID:=22)
If leer.Enabled = False Then
MsgBox ("No Data in Clipboard.")
Sheets("Daily").Select
Exit Sub
Else
Range("A1").Select
ActiveSheet.Paste
Range("A22:B117").Select
For Each rng In Selection
If IsEmpty(rng) = True Then
MsgBox "At least one Value is empty. Please try again"
Sheets("Daily").Select
Exit Sub
End If
Next rng
End If
VG,
Alex