Löschen unnötiger Zeilen zwischen Werten

[kerstin1972]

Ursprüngsdatei ist mit Endung *.txt und wird konvertiert nach Excel:
In der Tabelle habe ich immer 3 unnötige Zeilen vom Export und 1 Zeile Daten, das kann eine variable Anzahl Zeilen sein bis alle Daten erreicht sind.

Attachment ist angehängt.
  
Wie kann ich die Logik auf alle aktuellen Zeilen anwenden, da diese variable sind ?

Code:

Makro bisher

Selection.Replace What:= _
        "BLZS   BLZDATB  BLZPL BLZORT BLZKLART   BLZBTEXZ  BLZPA BLZNBLZ", Replacement _
        :="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
        SearchFormat:=True, ReplaceFormat:=False

[RPP63]

Moin!
Wie importierst Du?
Der Assistent bietet sehr wohl die Möglichkeit, Datensätze auszuschließen.

Attachment ist angehängt.

Nö!
Kannst Du mal so eine *.txt zur Verfügung stellen?
(Die braucht nur ein/zwei Datensätze enthalten, und die kannst Du auch ruhig anonymisieren)

Gruß Ralf

[kerstin1972]

ich habe das Attachment als Txt file hinzufügt.
Ich mache:
In Excel : Neue Arbeitsmappe öffnen Menü: Daten, Aus Text, die vom Download gewählte Datei Im Textkonvertierungsassistent:

1.Seite:
kein Haken bei „Überschriften“ Dateiursprung: Windows (ANSI)
2. Seite
Textqualifizierer: kein Trennzeichen: |
3.Seite
Mit SHIFT und Umschaltung alle Spalten markieren und Datenformat der Spalten : Text wählen
Daten importieren: 'Fertigstellen' anklicken zum bestätigen

[atilla]

Hallo,

vielleicht würde Deine Variante funktionieren, wenn Du statt Selection -> UsedRange nimmst

[RPP63]

Moin!
Ohne eine Zeile VBA:
Import:
Trennzeichen Tabulator
sofort fertigstellen!

Mit Strg+Umschalt+Ende den UsedRange markieren.
Sortieren, Spalte A, aufsteigend.

Alles ab Zeile 139 kannst Du nun löschen.
Fettich!

Gruß Ralf

[GMG-CC]

Moin,

da das ja wohl öfter vorkommt: Verwende Power Query -> HTTP://WWW.EXCEL-IST-SEXY.DE/POWER-QUERY-DAS-ADD-IN/ 

In Excel 2013:

• Menü Power Query
  
• Neue Abfrage
  
• Aus Datei
  
• Aus Text
  
• Auswählen und [Importieren]
  
• [Bearbeiten]
  
• 1. Zeile als Überschriften
  
• 1. Spalte filtern: (leer), -----, BLZS Häkchen entfernen
  
• Schließen und laden
  
• freuen
  

Die ursprüngliche Sortierung bleibt erhalten (kann aber natürlich geändert werden).
... und bein nächsten Mal -die *.txt liegt an der gleichen Stelle und hat den gleichen Namen-: [Aktualisieren] und fertig.

Anmerkung: die meisten Befehle sind aus 2016, sollten aber in PQ 2013 identisch sein.