Daten importieren
22.12.2020 06:50:08
mike
ich möchte mit unten stehendem Code aus meinem Kassenbuch heraus eine xlsm Datei auswählen, die im gleichen Verzeichnis liegt wie mein Kassenbuch. Die ausgewählte Datei hat nur eine Tabelle (Mitglieder)), in der auch Makros hinterlegt sind.
Ich möchte nun die komplette Tabelle in mein Kassenbuch inkl. der Makros kopieren, und zwar auf den Reiter Mitglieder, der in meinem Kassenbuch schon existiert. Er soll überschrieben werden.
Ich befinde mich während der Ausführung des Codes NICHT auf dem Reiter Mitglieder.
Das soll auch so bleiben.
Der Code bringt mit in der Zeile wo er einfügen soll einen Fehler
Objekt unterstützt die Eigenschaft oder Methode nicht
Finde den Fehler ;-( ich finde ihn leider nicht.
Sub Kassenbuch_Mitglieder_im()
Dim ImportDatei As Variant
Dim wbImport As Workbook
Pfad = ThisWorkbook.Path 'Pfad der gerade geöffneten Datei
'MsgBox Pfad
If MsgBox("Import der Mitgliederliste starten?", vbOKCancel) = vbOK Then
'MsgBox "OK"
ChDrive ThisWorkbook.Path
ChDir ThisWorkbook.Path
ImportDatei = Application.GetOpenFilename(FileFilter:="Microsoft Excel-Dateien (*.xlsm), *. _
_
xlsm", Title:="Eine Datei auswählen")
If ImportDatei = False Then Exit Sub
Set wbImport = Workbooks.Open(ImportDatei)
wbImport.Worksheets("Mitglieder").UsedRange.Copy
ThisWorkbook.Worksheets("Mitglieder").Range (Cells(1, 1))
Application.CutCopyMode = False
wbImport.Close savechanges:=False
Set wbImport = Nothing
End If
End Sub
Danke im Voraus
Mike