Office: (Office 2016) Makro - externe Daten verarbeiten - Datei (csv) öffnen

Hallo,

ich fange gerade an mit Makros zu arbeiten und komme nun leider nicht weiter.
Die Suche der bestehenden Threads hat zwar bereits einen Lösungsansatz geliefert - ich bekomme es leider nicht umgesetzt...

Ausgangspunkt:
Ich möchte die Daten aus zwei Dateien vergleichen, diese Dateien (verschiedene Stichtage) variieren.
Das habe ich über ein Dropdown zur Auswahl gelöst -> Index wählt den Dateinamen aus der Liste -> einer Verweisformel greift dann auf die externen Daten (.csv) zu.

Problem 1: Das funktioniert nur wenn die entsprechende Quelle offen ist...
Meine Lösung für Problem 1: Button welcher die Datei für mich automatisch öffnet
Komplikation 1: Die csv öffnet sich, allerdings wird die Semikolontrennung ignoriert - was beim manuellen öffnen nicht der Fall ist.
Lösungsansatz: "Local:=True" einbauen - ich verstehe aber nicht wo:

Private Sub CommandButton1_Click()

Dim strPfad1 As String

strPfad1 = _
ActiveWorkbook.Path & "\Listen LCR\" & Worksheets("LCR").Range("C71").Text

Application.Workbooks.Open (strPfad1)

End Sub


Problem 2:
Wie bekomme ich die zweite Vergleichsdatei geöffnet (Name steht nebendran in "D71")

Abschließende Frage :D :

gibt es eine elegantere Lösung, welche diese Schritte unnötig macht?
Dh kann ich die Daten aus der csv auch verarbeiten, während die Datei geschlossen ist?

=VERWEIS(B70;INDIREKT(C71&"!G1:G100");INDIREKT(C71&"!L1:L100"))

-> in "C71" steht der Dateinname / mit dem genauen Pfad funktioniert das leider nicht...

Grüße,
Manu

 

Hallo Manu,

Jeder Programmierer wird dir sagen, dass das nicht möglich ist. Excel ermöglicht aber seit einer Reihe von Versionen "quasi" das Gegenteil, aber leider nur für Dateien mit Dateierweiterung *.xls, *.xlsx, *.xlsm, etc., nicht also für *.csv-Dateien.
Gibt man in einer Zelle eine Formel mit einem externen Bezug zB. wie folgt
='C:\Verzeichnis1\Verzeichnis2\[Dateiname.csv]Dateiname'!C2
ein, erhält man eine Fehlermeldung, gefolgt von einem Hinweis, wie man das Problem beseitigen kann (Menüband > Tabulator "Daten" > Gruppe "Verbindungen" > Button "Verküpfungen bearbeiten" > Button "Quelle öffnen"). Darauf öffnet sich die vorhin ausgewählte Quelldatei. Die Zugriffsformel verkürzt sich auf "=Dateiname!C2" und zeigt den gewünschten Wert im ursprünglichen Blatt an. Sobald man die Quelldatei wieder schließt, erscheint wieder die lange externe Zugriffsformel.

Code:

Private Sub CommandButton1_Click()
  Dim strPfad1 As String
  strPfad1 =  ActiveWorkbook.Path & "\Listen LCR\" & Worksheets("LCR").Range("C71").Text
  Application.Workbooks.Open [COLOR="#FF0000"][B]FileName:=[/B][/COLOR]strPfad1[COLOR="#FF0000"][B], Local:=True[/B][/COLOR]
End Sub

Besser ist es jedoch, folgenden modifizierten Code zu verwenden:

Code:

Private Sub CommandButton1_Click()
  Dim strPfad1 As String
  Dim AktWb As Workbook, CsvWs As Worksheet

' Momentan aktive Arbeitsmappe im Objektzeiger 'AktWb' zwischenspeichern:
  Set AktWb = ActiveWorkbook
' Pfad zur CSV-Datei erzeugen:
  strPfad1 =  AktWb.Path & "\Listen LCR\" & Worksheets("LCR").Range("C71").Text
' CSV-Datei als Arbeitsmappe öffnen und das enthaltene Arbeitsblatt im Objektzeiger 'CsvWs' sich merken
' - Achtung: zusätzliche Klammern nötig !!
  Set CsvWs = Application.Workbooks.Open[COLOR="#FF0000"][B]( FileName:=[/B][/COLOR]strPfad1[COLOR="#FF0000"][B], Local:=True ).Worksheets(1) [/B][/COLOR]
' Wieder ursprüngliche Arbeitsmappe aktivieren, 
' sodass man wieder das ursprüngliche aktive Arbeitsblatt mit seiner aktiven Zelle vor sich hat:  
  AktWb.Activate
' ....
' Hier könnte dann weiterer Code stehen zum Transferieren von Daten aus dem CSV-Arbeitsblatt:
  With CsvWs
     'Übetrage Wert aus Zelle D5 der CSV in die aktive Zelle des aktiven Blattes von AktWb
     '(Beachte dabei den Punkt vor Range!)
'    ActiveCell.Value = .Range("D5").Value
     'Übertrage Wert aus Zelle A2 der CSV in die Zelle A2 des aktiven Blattes von AktWb
'    Range("A2").Value = .Range("A2").Value
'    ....
     'Schließe die CSV-Datei ohne eventuelle Nachfrage, ob die Datei zu speichern sei.
     .Parent.Close SaveChanges:=False
  End With
End Sub

Ich hoffe, ich konnte dir damit einige Anregung für deinen VBA-Code geben.