Wechsel zwischen Dateien mit Variablem Namen

  • Excel

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von jannis-01.

    Wechsel zwischen Dateien mit Variablem Namen

    Hallo Leute,

    Ich muss in meinem Programm immer wieder zwischen zwei Dateien hin und her wechseln um Daten aus bestimmten Zellen eines Sheets der "Datei1" zu summieren und an einer bestimmten Stelle der "Datei2" im Sheet zu speichern. Dafür nutze dafür momentan

    Visual Basic-Quellcode

    1. Windows("Datei1").Activate.... Windows("Datei2").Activate


    Jetzt ändern sich allerdings immer die Endungen der Dateien, in Abhängigkeit vom Monat.
    Gibt es eine Möglichkeit wie ich das umsetzen kann ohne im VBA Code immer den neuen Namen eingeben zu müssen? Könnt ihr mir helfen? :)

    Viele Grüße,
    Jannis

    PS: Auch nach einigem Googlen konnte ich keine richtig funktionierende Lösung für das Problem finden. :/


    Edit by Manschula: Für VBA-Themen haben wir ein eigenes Unterforum. Dieses bitte auch benutzen! --> Thema verschoben, Titel und Präfix bereinigt/angepasst

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Manschula“ ()

    FloFuchs schrieb:

    Warum lässt du das summieren und einfügen nicht direkt Vom MAkro machen? Dann brauchste auch nich zwischen den Dateien hin und her zu springen?
    Hi FloFuchs,

    danke für den Tipp, aber das mache ich schon. ;) Der restliche Programmcode funktioniert auch so weit, das Problem ist nur, dass sich Wöchentlich die Namen der Dateien mit denen ich arbeite ändern und ich nicht jedes mal im VBA Code die neuen Namen der Dateien einfügen möchte um den Code ausführen zu können..

    petaod schrieb:

    Visual Basic-Quellcode

    1. Set ws1 = Thisworkbook.Sheets(1)
    2. Set wb2 = Workbooks.Open("c:\OtherWorkbook.xlsx")
    3. Set ws1 = wb2.Sheets(1)
    4. ws2.Range("A1").Value = WorkSheetFunction.Sum(ws1.Range("A1:B5")
    oder so... ;)
    Das ist schonmal hilfreich, allerdings fehlt jetzt noch der schritt zu dem Öffnen der Datei. Aktuell verwende ich:

    Visual Basic-Quellcode

    1. Windows("Datei1.xlsm").Activate


    Suche aber so etwas wie
    Windows(VARIABLE).Activate - Nur leider funktioniert das bei mir nicht.

    Gibt es sonst vielleivht auch eine andere Möglichkeit mit den verschiedenen Dateien zu arbeiten außer "Windows("Datei1.xlsm").Activate"?

    Viele Grüße und schonmal DANKE :)

    jannis-01 schrieb:

    Set wb2 = Workbooks.Open("c:\OtherWorkbook.xlsx")

    Steht doch da ;)
    statt den Dateinamen kannste da auch ne Variable einsetzen, also:

    Visual Basic-Quellcode

    1. Set wb2 = workbooksopen(DeinString)

    Un den fragste halt am Anfang vom Benutzer ab!
    Diesen .Activate Unsinn brauchste nicht ;)
    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Option Explicit
    2. Dim wbUrsprung, wbZiel As Workbook
    3. Sub main()
    4. Call MappenZuweisen(OwnFileDialog("Bitte Ursprungdatei auswählen"), OwnFileDialog("Bitte Zieldatei auswählen"))
    5. End Sub
    6. Sub MappenZuweisen(ByVal wbVon As String, ByVal wbZu As String)
    7. Set wbUrsprung = Workbooks.Open(wbVon)
    8. Set wbZiel = Workbooks.Open(wbZu)
    9. End Sub
    10. Function OwnFileDialog(DialogTitle As String) As String
    11. With Application.FileDialog(msoFileDialogFilePicker)
    12. .AllowMultiSelect = False
    13. .Title = DialogTitle
    14. .Filters.Add "*.xlsx", "*.xlsx"
    15. .Filters.Add "*.xls", "*.xls"
    16. .InitialFileName = "*.xlsx"
    17. .Show
    18. OwnFileDialog = .SelectedItems(1)
    19. End With
    20. End Function

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „FloFuchs“ ()

    Hallo zusammen,

    entweder verstehe ich die Idee hinter der Lösung nicht oder ich hab mein Problem nicht klar genug formuliert, sodass die Lösung nicht passt. Ich versuchs nochmal..

    Ich habe jetzt 3 geöffnete Excel Dateien.
    • Datei1.xlsm - Beinhaltet die Macros und ändert nie den Dateinamen
    • Datei2 xx.xx.xx.xlsx - Datei1 arbeitet mit den Daten von "Datei2 xx.xx.xx.xlsx"
    • Datei3 xx.xx.xx.xlsx - Datei1 arbeitet mit den Daten von "Datei3 xx.xx.xx.xlsx"

    Ablauf:
    1. Aus der Datei1 werden Daten eingelesen, die für die Filterung von Daten in Datei2 dienen.
    2. Aus Datei2 werden Werte auf ein Sheet von Datei 1 kopiert.

    3. Aus der Datei1 werden Daten eingelesen, die für die Filterung von Daten in Datei3 dienen.
    4. Aus Datei3 werden Werte auf ein Sheet von Datei 1 kopiert.

    Problem:
    Da sich die Namen von Datei 2 und 3 immer ändern kann ich keinen festen Dateinamen in den VBA Code einbinden, sondern muss die jeweiligen neuen Namen in einer Variablen speichern (Der Anfang der Dateien sieht immer gleich aus, nur das Datum ändert sich).

    Den Wechsel zwischen den Dateien hatte ich mit "Windows("Datei2.xlsm").Activate" gelöst.


    Frage:
    Wie kann ich den Wechsel zwischen den Dateien unabhängig vom neuen Dateinamen halten bzw. wie kann ich immer den neusten Dateinamen in eine Variable speichern und so unabhängig machen?
    Und wie kann ich den .Activate Unsinn weglassen?


    Hilft da sowas weiter?
    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Sub DateienOeffnen()
    3. ' Dim strDatei As Worksheet
    4. Set strDatei = ActiveWorkbook.ActiveSheet
    5. Pfad1 = Application.ActiveWorkbook.Path
    7. MsgBox "Öffnen der Datei2"
    8. Pfad2 = Application.GetOpenFilename
    10. MsgBox "Öffnen der Datei3"
    11. Pfad3 = Application.GetOpenFilename
    13. If Pfad2 <> False Then
    14. Workbooks.Open Pfad2
    15. strDatei.Activate
    16. Range("K1").Value = Pfad1
    17. Range("K2").Value = Pfad2
    19. Workbooks.Open Pfad3
    20. strDatei.Activate
    21. Range("K3").Value = Pfad3
    23. Else
    24. MsgBox "Abbruch durch Benutzer"
    25. Exit Sub
    26. End If
    28. End Sub



    Hier ist mal der ganze Code, vielleicht beseitigt das die letzten Unklarheiten. (Ich habe bei dem Code den Teil, in dem ich mit der 3. Datei Arbeite ausgelassen. Die .Activate Teile konnte ich iregndwie nicht fett machen, vielleciht hilft die Suchfunktion die stellen zu finden)




    PS: Auf dem Sheet der "Datei1.xlsm" befinden sich in den Zelen K2 und K3 die Pfade der Dateien "Datei2 xx.xx.xx.xlsx" und "Datei 3 xx.xx.xx.xlsx"
    Spoiler anzeigen


    Visual Basic-Quellcode

    1. Sub AnnuityAndNewV2()
    2. '
    3. ' AnnuityAndNew Macro
    4. '
    6. Application.WindowState = xlMaximized
    7. [b] Windows("Datei 1.xlsm").Activate[/b]
    8. Sheets("Suche").Select
    10. Dim Name As String
    11. Dim FcstIndicator1 As String
    12. Dim FcstIndicator2 As String
    13. Dim FcstIndicator3 As String
    14. Dim FcstIndicator4 As String
    15. Dim ShipQuarter As String
    16. Dim ShipMonth As String
    17. Dim NameSheet As String
    18. Dim zaehler As Integer
    19. Dim ZeilenZaehler As Integer
    20. Dim AnzahlDerSummenEintraege As Integer
    21. Dim PersonenAnzahl As Integer
    22. Dim Summe As Long
    24. zaehler = 0 ' Der Zähler zählt die Schleifendurchläufe und dient als Abbruchkriterium. ("Loop While Zaehler < PersonenAnzahl")
    25. ZeilenZaehler = 2 ' Der ZeilenZähler dient dazu, den aktuellen Inhalt aus den Zellen 1-X, des Sheets "Suche", in den entsprechenden Variablen zu speichern
    27. PersonenAnzahl = Application.CountA(Columns(1)) - 1
    29. Do
    31. [b] Windows("Datei 1.xlsm").Activate [/b]
    33. Name = Range("B" & ZeilenZaehler)
    34. FcstIndicator1 = Range("C2")
    35. FcstIndicator2 = Range("C3")
    36. FcstIndicator3 = Range("C4")
    37. FcstIndicator4 = Range("C5")
    38. NameSheet = Range("A" & ZeilenZaehler)
    39. ShipMonth = Range("E" & ZeilenZaehler)
    40. ShipQuarter = Range("D" & ZeilenZaehler)
    42. MsgBox "Name: " & Name
    45. [b] Windows("Datei2 xx.xx.xx.xlsx").Activate[/b]
    46. ActiveSheet.Range("$A$1:$V$328").AutoFilter Field:=1, Criteria1:=Name
    48. ' If ActiveSheet.Range("A2") = "" Then
    49. ' MsgBox Name & " konnte nicht im Datei2 Sheet gefunden werden"
    50. ' End If
    52. ActiveSheet.Range("$A$1:$V$328").AutoFilter Field:=6, Criteria1:=Array(FcstIndicator1), Operator:=xlFilterValues
    54. If ShipQuarter = "" And ShipMonth = "" Then 'Falls beide Felder leer sind wird ein Fehler ausgegeben.
    55. MsgBox "Bitte geben sie entweder einen Monat oder ein Quartal ein. Beides ist nicht möglich."
    56. Exit Do
    57. ElseIf ShipMonth = "" Then 'Dient der Filterung des Datei2 Sheets nach dem Quartal
    58. ActiveSheet.Range("$A$1:$V$328").AutoFilter Field:=15, Criteria1:=ShipQuarter
    59. ElseIf ShipQuarter = "" Then 'Dient der Filterung des Datei2 Sheets nach dem Monat
    60. ActiveSheet.Range("$A$1:$V$328").AutoFilter Field:=16, Criteria1:=ShipMonth
    61. End If
    63. 'Speicherung der ganzen Werte aus der Datei2 Datei für die entsprechende Person und Kopieren in das "Suche" Sheet der Datei1
    64. Range("S2:S1000").Select
    65. Application.CommandBars("Selection and Visibility").Visible = False
    66. Selection.SpecialCells(xlCellTypeVisible).Select
    67. Selection.Copy
    68. [b]Windows("Datei1.xlsm").Activate[/b]
    69. Range("F2").Select
    70. ActiveSheet.Paste
    71. AnzahlDerSummenEintraege = Application.CountA(Columns(6))
    74. 'Dient der Filterung des Datei2 Sheets nach dem Quartal
    76. If ShipMonth = "" And ShipQuarter = "" Then
    77. MsgBox "Bitte geben Sie bei " & Name & " einen Monat oder ein Quartal ein, nach dem sortiert werden soll."
    79. ElseIf ShipMonth = "" Then
    81. Dim Quartal As String
    82. Quartal = Right(ShipQuarter, 1)
    85. Select Case Quartal
    86. Case 1
    87. ' Sheets(NameSheet).Range("D3").Value = Application.Sum(Sheets("Suche").Range("F2:F" & AnzahlDerSummenEintraege))
    88. Summe = Application.Sum(Sheets("Suche").Range("F2:F" & AnzahlDerSummenEintraege)) / 1000
    89. Sheets(NameSheet).Range("D3").Value = Summe
    90. Sheets(NameSheet).Range("D3").Interior.Color = 65535
    91. Sheets("Suche").Range("F2:F" & AnzahlDerSummenEintraege + 1).Select ' Notwendig, damit keine alten Werte kopiert werden, falls keine neuen Werte für die neue Suchanfrage gefunden werden.
    92. Selection.ClearContents
    93. End Select
    95. Select Case Quartal
    96. Case 2
    97. Summe = Application.Sum(Sheets("Suche").Range("F2:F" & AnzahlDerSummenEintraege)) / 1000
    98. Sheets(NameSheet).Range("E3").Value = Summe
    99. Sheets(NameSheet).Range("E3").Interior.Color = 65535
    100. Sheets("Suche").Range("F2:F" & AnzahlDerSummenEintraege + 1).Select ' Notwendig, damit keine alten Werte kopiert werden, falls keine neuen Werte für die neue Suchanfrage gefunden werden.
    101. Selection.ClearContents
    102. End Select
    104. Select Case Quartal
    105. Case 3
    106. Summe = Application.Sum(Sheets("Suche").Range("F2:F" & AnzahlDerSummenEintraege)) / 1000
    107. Sheets(NameSheet).Range("F3").Value = Summe
    108. Sheets(NameSheet).Range("F3").Interior.Color = 65535
    109. Sheets("Suche").Range("F2:F" & AnzahlDerSummenEintraege + 1).Select
    110. Selection.ClearContents
    111. End Select
    113. Select Case Quartal
    114. Case 4
    115. Summe = Application.Sum(Sheets("Suche").Range("F2:F" & AnzahlDerSummenEintraege)) / 1000
    116. Sheets(NameSheet).Range("G3").Value = Summe
    117. Sheets(NameSheet).Range("G3").Interior.Color = 65535
    118. Sheets("Suche").Range("F2:F" & AnzahlDerSummenEintraege + 1).Select
    119. Selection.ClearContents
    120. End Select
    122. ElseIf ShipQuarter = "" Then
    124. Dim Monat As String
    125. Monat = Right(ShipMonth, 2)
    127. Select Case Monat ' Quartal 1
    128. Case 11, 12, 1
    129. Summe = Application.Sum(Sheets("Suche").Range("F2:F" & AnzahlDerSummenEintraege)) / 1000
    130. Sheets(NameSheet).Range("D3").Value = Summe
    131. Sheets(NameSheet).Range("D3").Interior.Color = 65535
    132. Sheets("Suche").Range("F2:F" & AnzahlDerSummenEintraege + 1).Select
    133. Selection.ClearContents
    134. End Select
    136. Select Case Monat ' Quartal 2
    137. Case 2, 3, 4
    138. Summe = Application.Sum(Sheets("Suche").Range("F2:F" & AnzahlDerSummenEintraege)) / 1000
    139. Sheets(NameSheet).Range("E3").Value = Summe
    140. Sheets(NameSheet).Range("E3").Interior.Color = 65535
    141. Sheets("Suche").Range("F2:F" & AnzahlDerSummenEintraege + 1).Select
    142. Selection.ClearContents
    143. End Select
    145. Select Case Monat ' Quartal 3
    146. Case 5, 6, 7
    147. Summe = Application.Sum(Sheets("Suche").Range("F2:F" & AnzahlDerSummenEintraege)) / 1000
    148. Sheets(NameSheet).Range("F3").Value = Summe
    149. Sheets(NameSheet).Range("F3").Interior.Color = 65535
    150. Sheets("Suche").Range("F2:F" & AnzahlDerSummenEintraege + 1).Select
    151. Selection.ClearContents
    152. End Select
    155. Select Case Monat ' Quartal 4
    156. Case 8, 9, 10
    157. Summe = Application.Sum(Sheets("Suche").Range("F2:F" & AnzahlDerSummenEintraege)) / 1000
    158. Sheets(NameSheet).Range("G3").Value = Summe
    159. Sheets(NameSheet).Range("G3").Interior.Color = 65535
    160. Sheets("Suche").Range("F2:F" & AnzahlDerSummenEintraege + 1).Select
    161. Selection.ClearContents
    162. End Select
    163. End If
    165. If zaehler = 15 Then
    166. Dim a As String
    167. a = MsgBox("Möchtest du das Programm beenden?", vbYesNo)
    168. If a = vbNo Then
    169. MsgBox "Weiter geht"
    170. Else
    171. MsgBox "Tschüss!"
    172. Exit Do
    173. End If
    174. End If
    176. zaehler = zaehler + 1
    177. ZeilenZaehler = ZeilenZaehler + 1
    179. Loop While zaehler < PersonenAnzahl
    181. End Sub

    Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „jannis-01“ ()

    Wie oben schon geschrieben wurde:
    Nicht mit Activate und Select umschalten!
    Activate und Select sind "böse" Funktionen des Macrorecorders und haben (bis auf wenige Ausnahmen) im Code nichts verloren.
    Statt dessen: Objekte zuweisen und diese bei der Adressierung verwenden!

    Ansatz:

    Visual Basic-Quellcode

    1. Set wb1 = ThisWorkbook
    2. Set wb2 = Workbooks.Open(Pfad2)
    3. Set wb3 = Workbooks.Open(Pfad3)
    4. Set ws1 = wb1.Sheets("Tabelle1")
    5. Set ws2 = wb2.Sheets("Tabelle1")
    6. Set ws3 = wb3.Sheets("Tabelle1")
    8. ws1.Range("A2").Value = ws2.Range("B3").Value
    9. ...
    Versuche diesen Ansatz zu verstehen und auf dein Projekt umzusetzen.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --