Excel VBA schnelles Suchen in einem Bereich

Dim Bereich As Range
    With Worksheets("Kunden").Range("a2:a1000")
    Set c = .Find("Hallo", LookIn:=xlValues)
    If Not c Is Nothing Then
        MsgBox c.Row
    Else
        MsgBox "Nicht gefunden"
    End If
  End With

Drucken

CSV-Datei Zeilenweise einlesen

Es kann sinnvoll sein eine Datei zeilenweise einzulesen. Diese Methode ist zwar langsamer, aber sie ermöglicht es zum Beispiel die Daten bereits beim Einlesen zu verändert oder zu filtern. Diese Methode ist allerdings nicht die schnellste.

Lösung:

Open "C:\Temp\Datei.csv" For Input As #1 ' Open file.
  Do While Not EOF(1) ' Loop until end of file.
    Line Input #1, TextLine ' Hier wird die Zeile in eine Variable geschrieben.
  Loop
Close #1

Drucken