Office 2010: Probleme mit wverweis bei mehreren Zeilen

[hziemer]

Hallo an alle im Forum

Ich versuche seit Tagen folgendes Problem zu lösen.
In einer Tabelle, im Original sind es 202800 Zeilen, muss ich Zeilen mit Schlüsselworten suchen und die darunter stehenden Werte in eine neue Zelle schreiben, bis eine leere Zeile kommt

Meine Schlüsselwörter sind hier CPU %, Data %, Ctlr, Serial und Node.
Im Beispiel siehe Zeile 9.

Das funktioniert aber nur wenn unter den Schlüsselwörter nur eine Zeile steht, ab zwei oder mehr Zeilen versagt der wverweis.

Wer kann mir hier weiterhelfen.
Vielleicht ist wverweis der falsche Befehl hierfür.
Danke für jede Hilfe

[Officer]

Hallo hziemer,

soll es in deinem Beispiel so sein, dass nur die Zeilen 9+10, 710+711, 1410+1411 etc. in die separate Tabelle geschrieben werden sollen, da nur diese Zeilen die genannten Schlüsselwörter als Überschrift haben?

Oder hab ich da was falsch verstanden?

Gruß

Officer

[Officer]

Hallo hziemer,

ich habe ein Makro erstellt, dass die Daten ausliest, wie von mir im vorherigen Post kurz beschrieben.

Füge dazu den folgenden VBA-Code in ein leeres Code-Modul ein.

Code: Visual Basic

1. Sub Zeilen_auslesen()
2. '** auslesen der Zeilen mit Text "CPU %" in Spalte B
3. Dim z As Long 'Startzeile
4.  
5. Set wsakt = ThisWorkbook.Sheets(1)
6. z = 9
7.  
8. wsakt.Range("H9:M50000").ClearContents
9.  
10. For a = 1 To wsakt.Cells(Rows.Count, 1).End(xlUp).Row
11.  
12.   If wsakt.Cells(a, 2).Value = "CPU %" Then
13.     b = a + 1
14.    
15.     Do While wsakt.Cells(b, 1).Value <> ""
16.       With wsakt
17.         .Cells(z, 8).Value = .Cells(b, 1).Value 'Time
18.        .Cells(z, 9).Value = .Cells(b, 2).Value 'CPU%
19.        .Cells(z, 10).Value = .Cells(b, 3).Value 'Data %
20.        .Cells(z, 11).Value = .Cells(b, 4).Value 'Ctrl
21.        .Cells(z, 12).Value = .Cells(b, 5).Value 'Serial
22.        .Cells(z, 13).Value = .Cells(b, 6).Value 'Node
23.      End With
24.      
25.       b = b + 1
26.       z = z + 1
27.     Loop
28.   End If
29. Next a
30. End Sub
31.  

Die Beispieldatei habe ich auch als Anlage beigefügt.

Gruß

Officer

[hziemer]

Hallo Officer

Vielen Dank für dieses Makro.
Das tut genau das was ich benötige.
Momentan verstehe ich noch nicht ganz was darin abgeht, aber ich werde mich mit dem Code beschäftigen.
Danke für die diese super Hilfe
hziemer