Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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!!

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

334 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige