per Makro Daten in eine Datenbank schreiben
Heiß
ich bin Anfänger und hätte eine Frage:
Ich habe 3 Exceldateien
A
B
C
und eine Datenbank
Wenn ich jetzt in der Datei auf Datenbank öffnen gehe, dann öffnet mir das Makro auch die enstprechende Datei. Ich kann jetzt Daten dort ergänzen/ändern. Ich kann auch die Daten speichern und zurück in die Datei A kopieren und die Datenbank schließen.
Wenn ich aber die Datie B öffne, dort auf Datenbank gehe, kann ich die Daten nicht in B zurückschreiben. kommt Debuggen, da ja im Makro der relative Pfad zu Datei A angeben ist.
Kann ein Makro den Pfad von der Datei übernehmen, damit ich nur eine Datenbank für alle 3 Dateien benötige:
Angefangen habe ich wie folgt:
Sub Makro2()
' Makro2 Makro
Workbooks("datenbank.xlsm").Save
Range("F2:DE105").Select
Selection.Copy
Windows("spielbericht_1.privat.xlsm").Activate
Sheets("Mannschaftsspieler").Select
Range("F2").Select
ActiveSheet.Paste
ActiveWindow.WindowState = xlMaximized
Windows("datenbank.xlsm").Activate
Application.CutCopyMode = False
ActiveWorkbook.Save
Workbooks("datenbank.xlsm").Close False
End Sub