ESC-Taste zum Abbruch
Albert
ich folgenden Code zum Importieren von Daten.
Nun hab ich das Problem, wenn ich die Esc-Taste drücke, läuft der Code trotzdem durch und löscht einige Daten, stelle, dass der Code abgebrochen wird.
Weiß einer von euch, wie ich das machen kann?
Mit Me.Undo hab ichs schon probiert, funktioniert allerdings nicht. Vielleicht bin ich auch zu doof... :)
Danke!
Sub EPOSe_importieren()
Dim Ziel As Workbook
Set Ziel = ThisWorkbook
Application.Dialogs(xlDialogOpen).Show
Worksheets(1).Range("3:50000").Copy
Ziel.Worksheets("EPOS-Übersicht").Activate
Ziel.Worksheets("EPOS-Übersicht").Range("A7").PasteSpecial _
Paste:=xlPasteValues
Application.CutCopyMode = False
Worksheets("EPOS-Übersicht").Range("A7").Select
Rows(Cells(Rows.Count, 1).End(xlUp).Row).Select
Selection.Delete Shift:=xlUp
Worksheets("LBR-Auslastung").Select
Range("C21").Select
ActiveWorkbook.RefreshAll
Worksheets("EPOS-Übersicht").Select
Range("A8").Select
MsgBox ("Daten importiert und Pivot akutell!")
End Sub
Anzeige