Office: Mit VBA Zahlen in Spalte suchen und die betreffenden Zeilen löschen

Hallo Jürgen,

Das kann ich leider weder reproduzieren, noch überhaupt nachvollziehen, denn den gleichen Code habe ich schon oft benutzt, und auch mit Deiner Mappe hat er in vielen Testläufen ohne Fehler funktioniert.

- die Zeile "With .Sort" kommt zweimal im Code vor. Nach Deine Angaben gehe ich davon aus, Du meinst die Zeile im "Public Sub Daten_Einlesen()". Dort wird die Datei mit dem SAP-Export bearbeitet. Ist das so richtig?
- Welche Export-Datei hast Du für den Testlauf genommen? Ich hatte aus Deiner "Dummy-Datei" eine eigene Datei nur mit der Export-Liste erstellt, und damit getestet. Hast Du eine andere Liste benutzt?
- Sind die Export-Dateien eventuell in einem anderem Format als ".xls" ? Oder sind sie schreibgeschützt? Oder ist der Blattschutz aktiv?

Vielleicht kannst Du ja mal eine Datei posten, bei der dieser Fehler auftritt, damit ich versuchen kann ihn nach zu vollziehen.



Übrigens, ich habe gerade noch einen ganz anderen Fehler entdeckt:
Und zwar die Zeile:

Code:

If Right(strFile, 22) = "Bezirke " & Format(Date, "yyyy-mm-dd") & ".xls" Then

Die ist leider kompletter Humbug, denn so prüft das Makro nicht ob der Dateiname am Ende = "Bezirke " und ein Datum ist, sondern nur ob er "Bezirke " und das heutige Datum ist.
Da hatte ich wohl einen Gedankenfehler, das ändere ich noch.

 

Hallo Jürgen,

die Geschichte mit dem Datum könnte man folgendermaßen lösen:

Code:

If Len(strFile) > 22 Then
    If Mid(strFile, Len(strFile) - 21, 8) = "Bezirke " And _
        IsDate(Mid(strFile, Len(strFile) - 13, 10)) Then

Andererseits... scheinst Du ja kein sonderliches Interesse mehr zu haben.
Nichtmal eine Rückmeldung ob das Problem mit dem ".sort" weiterhin besteht.