Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zeilen mit bestimmten Wert aus csv kopieren

Zeilen mit bestimmten Wert aus csv kopieren
Jing
Liebe Forum-Mitglieder,
Obwohl es schon einige Ansätze hier im Forum gibt, komme ich leider einfach nicht weiter :(((
Vielleicht könnt Ihr mir ja bitte helfen...
Offen ist die Haupt.xls
Darin würde ich gern ein Makro laufen lassen, der die Infos aus Details.csv kopiert und in Haupt.xls einfügt. Dabei soll er alle Zeilen kopieren, wo in Spalte A in Details.csv der Wert "aaa" zu finden ist.
Für jeglichen Tipp bedanke ich mich im voraus!!
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeilen mit bestimmten Wert aus csv kopieren
05.04.2012 07:28:25
JoWE
Hallo JingJing
so vllt.:
Sub getData()
Dim i As Long, lPos As Long, z As Long
Dim teil As String, sLine As String, sFilename As String
Dim vX As Variant
sFilename = "C:\Temp\Details.csv" 'Pfad anpassen
ze = 2
Open sFilename For Input As #1
While Not EOF(1)
Line Input #1, sLine
txt_Readline = sLine
If InStr(txt_Readline, "aaa") > 0 Then
vX = Split(txt_Readline, ",")
For i = 0 To UBound(vX)
Sheets(1).Cells(ze, i + 1) = vX(i)
vX(i) = i + 1 & ". " & vX(i)
Next i
ze = ze + 1
End If
Wend
Close #1
End Sub
'(entliehen von Peter Haserodt, thx)
Gruß
Jochen
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige