Bestimmte Zellen aus verschiedenen CSV-Dateien auslesen

Guten Tag zusammen,

bezüglich meinem konkreten Vorhaben, habe ich nichts genaueres im Forum gefunden und erhoffe mir hier etwas Hilfe. Falls ich falsch liege bitte den Post entfernen.

Aber nun zu meiner Aufgabe. Ich bin ziemlich neu im VBA und möchte das auslesen meiner Berechnungsergebnisse automatisieren:

Ich habe einen Ordern in dem sämtliche CSV-Dateien mit unterschiedlichen Dateinamen abgelegt werden (automatisiert vom Berechnungsprogramm).

Die Dateien werden folgendermassen vom Berechnungsprogramm im Ordner abgelegt:
- AVA_TZ-AB_V1_2023-07_1400-110_B-dq0pc_RB-C_R250_u105_aq1.csv
- AVA_TZ-AB_V1_2023-07_1400-120_B-dq0pc_RB-C_R45_u78_aq1.csv

- AVA_TZ-AB_V1_2023-07_2400-110_B-dq0pc_RB-C_R250_u105_aq1.csv
- AVA_TZ-AB_V1_2023-07_5400-110_B-dq0pc_RB-C_R250_u105_aq1.csv

In dem Beispiel ist der SimCode unterschiedliche (1400-110 und 1400-120 usw). Die

Nun möchte ich aus diesen CSV-Dateien zum Beispiel die Zelle B114 in mein Ergebnisfile (der untenstehende Code Zeigt einen Ausschnitt aus meinem Ergebnisfile) einlesen.

https://www.herber.de/bbs/user/162054.jpg" border="0" width="700" height="80" alt="Userbild">

Und zwar soll aus der ersten CSV Datei die Zelle B114 in die Zeile mit dem SimCode1400-110 und aus der zweiten CSV Datei die Zelle B114 in die Zeile mit dem SimCode 1400-120 usw. eingelesen werden. Das soll automatisiert über einen Button (CSV-Ergebnisse importieren) passieren.

Ich hoffe ich habe mich verständlich ausgedrückt. Ist dies überhaupt ohne weiteres möglich?

Besten Dank vorab für die Unterstützung und Hilfe

Liebe Grüsse
David

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub David() Dim Pfad As String, Datei As String, Ext As String, Prä As String, Dat As String Dim SpD As Integer, SpS As Integer, SpZ As Integer Dim LR As Long, Z1 As Integer, i As Long Dim Rng As String, Zeile As Long, Spalte As Integer Pfad = "E:\Excel\Temp\Test\" 'mit \ am Ende Ext = ".csv" Prä = "AVA_TZ-AB_V1_" ' Präfix vom Dateinamen Rng = "B114" 'Die Zelle, aus der gelesen werden soll Zeile = Range(Rng).Row Spalte = Range(Rng).Column Z1 = 4 'erste Zeile mit Daten SpD = 2 ' Spalte mit Datum SpS = 23 ' Spalte mit Simcode; In meinem Beispiel in W SpZ = 28 ' Zielspalte LR = Cells(Rows.Count, SpS).End(xlUp).Row 'letzte Zeile der Spalte For i = Z1 To LR Dat = Cells(i, SpD) & "_" Datei = Prä & Dat & Cells(i, SpS) & "_*" & Ext Datei = Dir(Pfad & Datei) ' Datei vorhanden? If Datei > "" Then With Cells(i, SpZ) .FormulaR1C1 = _ "='" & Pfad & "[" & Datei & "]" & Left(Datei, 31) & "'!R" & Zeile & "C" & Spalte 'beim speichern einer CSV Datei gibt es nur ein Blatt, 'was so heißt wie der Dateiname, aber auf 31 zeichen begrenzt .Value = .Value End With Else Cells(i, SpZ) = "--" End If Next End Sub

Guten Tag Uwe,

vielen Dank für die schnelle und ausführliche Antwort.Entschuldige Bitte, dass ich das Excel-File nicht gleich hochgeladen habe. Bin seit heute neu hier im Forum und kenne die Arbeitsweise noch nicht so genau.

Bezüglich deinem Code: Mir ist nicht klar wo im Code zwischen den SimCodes unterschieden wird. Passiert dies in der For-Schleife?

Des Weiteren ist mir auch nicht klar wie bzw. wo im Code vorgegeben wird, dass zb die Zelle B114 von der CSV-Datei mit SimCode 24100-110 auch in die richtige Zeile des Ergebnisfiles eingetragen wird.

Ich habe eine ausführliche Tabelle erstellt, so wie ich es mit vorstelle und deinen Code angepasst. Als Ergebnis [s] in Spalte AD,werden die Felder mit #BEZUG! gekennzeichnet oder rot markiert.

https://www.herber.de/bbs/user/162057.xlsm (Ergebnisfile)

Sub David()
    Dim Pfad As String, Datei As String, Ext As String, Prä As String, Dat As String
    Dim SpD As Integer, SpS As Integer, SpZ As Integer
    Dim LR As Long, Z1 As Integer, i As Long
    Dim Rng As String, Zeile As Long, Spalte As Integer
    
    Pfad = "N:\SIMPACK\Models\STAG-T1_TW\AVA_ABe4-8\05_Bogenfahrten\output\" 'mit \ am Ende
    Ext = ".csv"
    Prä = "AVA_TZ-AB_V1_" ' Präfix vom Dateinamen
    
    Rng = "B114"  'Die Zelle, aus der gelesen werden soll
    
    Zeile = Range(Rng).Row
    Spalte = Range(Rng).Column
        
    Z1 = 14 'erste Zeile mit Daten
    
    SpD = 4  ' Spalte mit Datum
    SpS = 25 ' Spalte mit  Simcode
    SpZ = 30 ' Zielspalte
    
    LR = Cells(Rows.Count, SpS).End(xlUp).Row 'letzte Zeile der Spalte

    For i = Z1 To LR
        Dat = Cells(i, SpD) & "_"
        Datei = Prä & Dat & Cells(i, SpS) & "_*" & Ext
        
        Datei = Dir(Pfad & Datei) ' Datei vorhanden?
        If Datei > "" Then
            With Cells(i, SpZ)
                .FormulaR1C1 = _
                    "='" & Pfad & "[" & Datei & "]" & Left(Datei, 31) & "'!R" & Zeile & "C" & Spalte
                    'beim speichern einer CSV Datei gibt es nur ein Blatt,
                    'was so heißt wie der Dateiname, aber auf 31 zeichen begrenzt
                .Value = .Value
            End With
        Else
            Cells(i, SpZ) = "--"
        End If
    Next
    
End Sub

Besten Dank

Beste Grüsse
David

Beliebteste Forumthreads (12 Monate)

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB
1	Tara Luftfeder
2	LDG1 (A)		Messung																				Messung					Ziel
3	LDG1 (A)		Messung																				Messung
4	LDG1 (A)	2023-07	1641-110	100	105	3	3		5	0,32	0,32									1,55	5	V	1400-110	250	105	79,9	1.00
5	LDG1 (A)	2023-07																		1,55	5	V	1400-120	250	105	79,9	1.00
6	LDG1 (A)	2023-07																		1,55	5	V	1400-130
7	LDG1 (A)	2023-07																		1,55	5	V
8	LDG1 (A)	2023-07

Bestimmte Zellen aus verschiedenen CSV-Dateien auslesen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

295 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bestimmte Zellen aus verschiedenen CSV-Dateien auslesen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

295 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread