ANsprechen offener Mappe
11.12.2019 10:16:31
Maximilian
Ich habe ein vermutlich recht banales Problem, konnte mir bisher jedoch keine passende Hilfe holen.
Ich möchte Daten von einer Excel-Datei in eine andere übertragen.
Dazu öffne ich zunächst die Datei, aus der ich die Daten holen möchte, indem ich sie mit ihrem Namen (benannt nach Datum) suche. Das funktioniert auch.
Allerdings gelingt es mir nicht, beim Kopieren und Einfügen der Werte zwischen den Dateinen hin und her zu springen; der Code sucht derzeit immer nur in der Datei, über die er gestartet wird. Diese Datei heißt "Trend der Kennzahlenentwicklung" und enthält einen CommandButton, über den der Code gestartet wird.
Anbei mein derzeitiger Code
Private Sub CommandButton1_Click()
'Neue Spalte für aktuelle Werte ganz links in Tabelle einfügen
Columns("G:G").Insert Shift:=xlToRight
Range("C2").Select
Selection.Copy
Range("G2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
'Quelldatei (aktuelles JF-Protokoll) suchen und öffnen
Dim StrPfad As String
Dim StrDateiname As String
StrPfad = "F:\DATA\Kennzahlensystem\Jour Fixe Protokolle\"
StrDateiname = StrPfad & "\" & Range("C2").Value & ".xlsx"
Workbooks.Open (StrDateiname)
Workbooks(StrDateiname).Activate
Range("C12").Copy
Windows("Trend der Kennzahlenentwicklung.xlsm").Activate
Range("G4").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub
Die Stelle, die den Fehler verursacht, ist Workbooks.Open (StrDateiname)
Für die Lösung des Problems wäre ich sehr dankbar!
Viele Grüße