Hallo zusammen!
Ich versuche gerade ein Makro zu erstellen, was gewisse Daten ausliest und bearbeitet.
Genaue Beschreibung: Über eine InputBox gebe ich einer neuen Excel-Datei einen Namen und wähle anschließend eine Datei mit Daten aus, die verarbeitet werden sollen.
Dim name As String
Dim pfad As String
name = InputBox("Bitte Name der zu erstellenden Excel-Datei angeben" & Chr(13) & "Anschließend Quelldatei auswählen", "Fehlerauswertung") & ".xls"
pfad = Application.GetOpenFilename
Workbooks.Open Filename:=pfad, UpdateLinks:=3, notify:=False
Set wkbMappe = Workbooks.Add
wkbMappe.SaveAs pfad1 & name
Workbooks.Open Filename:=pfad, UpdateLinks:=3, notify:=False
Nun soll die ausgewählte Datei zunächst in die neu erstellte Datei kopiert werden. Dort soll sie bearbeitet werden.
Wenn ich ein Makro aufnehme, dann ist dieses statisch, um es nocheinmal benutzen zu können müssen die Datein genau gleich heißen. Dieses möchte ich umgehen. Ich habe jedoch keine Ahnung, wie ich dies tun soll. Ich hoffe ihr könnt mir weiterhelfen.
Vielen Dank im Voraus!
|