Office: Hilfe beim bearbeiten von Datensaetzen

Hallo,

ich brauche mal wieder hilfe!!!
ich habe eine list die aus ueber 9.000 datensaetzen besteht. jeder datensatz besteht aus mehreren zeilen. ich suche nun nach einer moeglichkeit aus den datensaetzen jeweils die erste zeile (beginnt immer mit den woertern "Work Title:") und die vorletzte zeile (beginnt immer mit dem wort "Writer(s):" sowie den darunter stehenden Verfasser heraus zupicken.
die dazwischen liegenden zeilen sollten im idealfall geloescht oder ausgeblendet werden.

wer kann mir bitte helfen? erschwerend fuer mich kommt noch hinzu, dass ich mit einer englischsprachigen excel-version arbeite.

vielen dank im voraus

turkish

 

Hallo!

Rechtsklicke den Tabellenreiter des entsprechenden Tabellenblattes und wähle "Code anzeigen" (engl. "Show Code"???). Füge nun diesen Code in das Codefenster rechts ein:

Sub turkish()
Dim i As Long, Ende As Long
Application.ScreenUpdating = False
Ende = Range("A65536").End(xlUp).Row
For i = Ende To 2 Step -1
If Not (Left(Cells(i, 1), 11) = "Work Title:" Or Left(Cells(i, 1), 10) = "Writer(s):" Or _
Left(Cells(i - 1, 1), 10) = "Writer(s):") Then Rows(i).Hidden = True
Next i
Application.ScreenUpdating = True
End Sub

Dieser Code geht davon aus, dass deine Daten in Spalte A ab A1 abwärts stehen. Sollten sie in einer anderen SPALTE stehen, musst du die roten Teile anpassen (2 für Spalte B, 3 für Spalte C, 4 für Spalte D, usw.). Sollten sie in einer anderen ZEILE beginnen, musst du die pinke 2 ändern.
Zurück in der Tabelle drückst du Alt+F8 und rufst das Makro "turkish" auf.
Die Zeilen werden nicht gelöscht, sondern nur ausgeblendet.

 

vielen dank!! wie beim letzten mal grossartige, prompte und funktionierende hilfe.

das naechste mal schreib ich das schatzi gleich direkt an :)

turkish