Hey Mackie,
ich habe dein Code für das reduzieren etwas angepasst jetzt läufts Einwandfrei.
Jetzt stehe ich vor dem nächsten Problem:
Ich will bestimmte Tabellenblätter aus einer xlsx-Datei importieren aber ich bekomme es nicht hin.
Ich habe den Einlesen Code angepasst aber es will nicht.
Hier der Code:
Sub einlesen_aufrufen()
Dim pfad As Variant
Application.DisplayAlerts = False
pfad = Application.GetOpenFilename("Micrsoft Excel-Dateien (*.xlsx),*.xlsx", Title:="Wählen Sie eine Datei aus", MultiSelect:=False)
On Error GoTo beenden
ActiveWorkbook.Worksheets(pfad).Add
Application.DisplayAlerts = True
End Sub
Vielleicht kannst du mir helfen.
Besser wäre es natürlich, wenn er die Datei öffnet und mir in einer Combo oder Listbox die enthaltenen Tabellenblätter anzeigt und ich in dieser Combo oder Listbox die einzulesenden Tabellenblätter auswählen kann und anschließend die Datei wieder schließen.
Gruß Dschuelig
|