Hallo

Folgender Code öffnet eine Website dort werden die Daten markiert und kopiert, dann werden sie mit MsgBox bei OK aus der Zwischenablage in eine Datei in Zeile 2 eingefügt, ein direktes abgreifen ist nicht möglich da keine Tabellen erkannt werden. Nun kommt es aber vor das das markieren und kopieren nicht korrekt funktioniert, daher wird nach dem einfügen mit MsgBox "Prüfen ob Daten korrekt eingefügt!", vbOKCancel geprüft sind die Daten korrekt eingefügt läuft das Makro weiter durch bei Abbruch, wird das Makro abgebrochen, ich möchte jetzt aber nicht wieder von vorne anfangen sondern zu dem Punkt MsgBox "Daten kopieren und einfügen mit OK bestätigen.", vbInformation sodass ich die Daten einfach nochmal einfügen kann und mir die Prozedur mit dem Öffnen der Website erspare, habe leider selbst keine Möglichkeit gefunden zu diesem Punkt zurückzu kehren.

Wäre Super wenn mir hier wer helfen könnte. DANKE Manu

Dim usedRange As Range
Dim chromePath As String
Dim url As String

'CromeBrower Pfad
    chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe"""
    
    url = "https://???????
    Shell (chromePath & " --new-window " & url), vbNormalFocus
    
'Stopp - um Daten zu kopieren - bestätigen zum einfügen
    MsgBox "Daten kopieren und einfügen mit OK bestätigen.", vbInformation

    Set ws = ActiveWorkbook.Sheets(1)
    
'Daten aus der Zwischenablage einfügen
    ws.Paste
    'ws.Range("A2").Paste = xlPasteAll
    ws.Rows(2).Delete

    MsgBox "Prüfen ob Daten korrekt eingefügt!", vbOKCancel

    ' Wenn der Benutzer "OK" auswählt
    If vbOK Then
    Set usedRange = ws.usedRange
    
'Textumbruch aufheben
    ws.usedRange.WrapText = False
    
'Spaltenbreite und Zeilenhöhe optimieren
    ws.usedRange.Columns.AutoFit
    ws.usedRange.Rows.AutoFit
    
    ActiveWorkbook.Save
    Workbooks("MMMM.xlsm").Close SaveChanges:=True
    
    Else
    Exit Sub
    End If