Tabellenblatt kopieren
23.01.2023 14:25:19
Günther
ich bins mal wieder.
Ich finde bei nachfolgenden Code (im WWW eingesammelt und angepasst ) den Fehler nicht.
Ich möchte von einer geschlossenen Excel-Tabelle das erste und einzige Tabellenblatt (Tabellenblatt hat den gleichen Namen wie die Excel-Tabelle) in eine andere Tabelle kopieren. Allerdings kommt immer der Laufzeitfehler 424 - Objekt erforderlich.
Ich kapiere es einfach nicht, wo der Fehler liegt.
Sub BlattAusGeschlossenerMappeKopieren()
Application.ScreenUpdating = False
GeschlosseneMappe = Application.GetOpenFilename("Micrsoft Excel-Dateien (*.xlsx),*.xlsx", , "Bitte Datei zu öffnen auswählen...")
'Aktualisierungen unterbrechen
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
Application.AskToUpdateLinks = False
ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways
'Tabellenblatt von geöffneter Datei in aktuelle ans Ende kopieren
GeschlosseneMappe.Sheets("Tabelle1").Copy After:=ThisWorkbook.Sheets(Sheets.Count)
GeschlosseneMappe.Close SaveChanges:=False
'Importiertes Tabellenblatt mit roter Registerfarbe versehen
ActiveSheet.Tab.Color = RGB(218, 150, 148)
Application.ScreenUpdating = True
'importiertes Tab ans Ende kopieren
Sheets(1).Move After:=Sheets(Sheets.Count)
'importiertes Tab mit neuem Namen Importxxx versehen
ActiveSheet.Name = "Import Montage"
End Sub