Laufzeitfehler 424 Objekt erforderlich
07.02.2023 13:02:01
Thomas
ich habe folgenden Code, der auch funktioniert.
Lediglich wenn man den Prozess abbricht, kommt der Fehler Laufzeitfehler 424, Objekt erforderlich.
Wenn ich die Datei auswähle und bei Zellauswahl abbrechen will, bleibt er beim ersten hier hängen.
Set rngSourceRange = Application.InputBox(prompt:="Auswahl der Jahresverteilung", Title:="Auswahl Jahresverteilung", Default:="A1", Type:=8)
Sub Schaltfläche1_Klicken()
Dim wkbCrntWorkBook As Workbook
Dim wkbSourceBook As Workbook
Dim rngSourceRange As Range
Dim rngDestination As Range
Set wkbCrntWorkBook = ActiveWorkbook
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
Workbooks.Open .SelectedItems(1)
Set wkbSourceBook = ActiveWorkbook
Set rngSourceRange = Application.InputBox(prompt:="Auswahl der Jahresverteilung", Title:="Auswahl Jahresverteilung", Default:="A1", Type:=8)
wkbCrntWorkBook.Activate
Set rngDestination = Application.InputBox(prompt:="Zeilposition der Jahresverteilung", Title:="Ziel Jahresverteilung", Default:="A1", Type:=8)
rngSourceRange.Copy rngDestination
'rngDestination.CurrentRegion.EntireColumn.AutoFit
Workbooks.Open .SelectedItems(1)
Set wkbSourceBook = ActiveWorkbook
Set rngSourceRange = Application.InputBox(prompt:="Auswahl der Abteilungen", Title:="Auswahl Abteilungen", Default:="A1", Type:=8)
wkbCrntWorkBook.Activate
Set rngDestination = Application.InputBox(prompt:="Zielposition der Abteilungen", Title:="Ziel Abteilungen", Default:="A1", Type:=8)
rngSourceRange.Copy rngDestination
'rngDestination.CurrentRegion.EntireColumn.AutoFit
Workbooks.Open .SelectedItems(1)
Set wkbSourceBook = ActiveWorkbook
Set rngSourceRange = Application.InputBox(prompt:="Auswahl der Gesamtkosten [T]", Title:="Auswahl Gesamtkosten", Default:="A1", Type:=8)
wkbCrntWorkBook.Activate
Set rngDestination = Application.InputBox(prompt:="Zielposition der Gesamtkosten", Title:="Ziel Gesamtkosten", Default:="A1", Type:=8)
rngSourceRange.Copy rngDestination
'rngDestination.CurrentRegion.EntireColumn.AutoFit
wkbSourceBook.Close False
End If
End With
End Sub
Was muss ich hinzufügen um ein Abbrechen zu ermöglichen?Danke
gruß Thomas