Findet wegen "" nichts
Peter
ich wende mich an euch, weil ich ein Problem beim Wert finden habe.
Das Problem kommt so zustande, dass ich vorher Werte aus der Tabelle
in die Text Datei gelesen habe. Dort sind sie als "xxx" abgelegt worden.
Beim wieder einlesen, stehen die "" Zeichen folgerichtig mit den Zellen.
Wenn ich mit meinem Kode jetzt etwas Suche, findet er nichts, da ja alles
mit "" ausgeführt ist.
Dieser Eintrag wird gelöscht und der Rest in die neu erschaffene Datei,
die alte habe ich ge- Kill -t, wieder eingelesen.
Vermutlich muss ich alle "" löschen weil sich es sonst auf addiert, im Sinne
aus "xxx" wird beim wieder einlesen ""xxx"", da die Zeichen vom String beim
einlesen kommen.
Mein Kode lautet:
Sub LBL2()
Dim i As Long
Dim findItem As Variant
findItem = mstrFileName
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 1) = findItem Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub
Ich hoffe Ihr könnt mir da weiter helfen.
MfG Péter
Anzeige