VBA: Ausglich von unregelmäßiger Anzahl von Zeilen

Moderator: ModerationP

VBA: Ausglich von unregelmäßiger Anzahl von Zeilen

Beitragvon MarcoSt » 26. Okt 2021, 04:55

Einen schönen guten Morgen!

Ich darf eine Tabelle mit mehreren 10000 Einträgen aufbereiten / bearbeiten.
Leider stehe ich vor dem Riesenproblem, dass die angelieferten Daten leider nicht zu 100% "symmetrisch" sind.

Normalerweise fängt in jeder 6. Zeile ein neuer Datensatz an - kann ich auch wunderbar über die INDEX Funktion abgreifen und im Weiteren bearbeiten.

Leider gibt es alle paar Hundert Einträge einen Versatz in den Daten. Dann ist der nächste Datensatz plötzlich nicht 6 Zeilen weiter sondern nur noch 4 Zeilen weiter.

Zur Veranschaulichung:

Bild

Kann ich mittels VBA überprüfen, ob der Abstand zwischen "WP"-beginnenden Zellinhalten 6 Zeilen beträgt und falls es nur 4 Zeilen sind, 2 Leerzeilen hinzufügen, damit der Abstand wieder 6 beträgt?

Habt vielen lieben Dank und Euch einen schönen Tag!

Marco
MarcoSt
 



Re: VBA: Ausglich von unregelmäßiger Anzahl von Zeilen

Beitragvon slowboarder » 26. Okt 2021, 07:57

Hallo
prüfe erstmal, ob das mit dem 4 und 6 stimmt.
schreibe in eine Hilfsspalte in die Zeile 1 diese Formel und ziehe sie bis ans Datenende:
Code: Alles auswählen
=Wenn(Links(A1;3)="WP ";Vergleich("WP *";A2:A99;0);"")

dann prüfe mit dem Autofilter, welche Abstände alle vorkommen.

Gruß Daniel
slowboarder
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 28574
Registriert: 18. Apr 2009, 13:33

Re: VBA: Ausglich von unregelmäßiger Anzahl von Zeilen

Beitragvon MarcoSt » 26. Okt 2021, 09:53

Huhu!

Habt vielen lieben Dank für Eure Hilfe - im Forum von Herber hat UweD ein traumhaftes VBA Script zur Verfügung gestellt.

LG
MarcoSt
 


Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 49 Gäste

cron