Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: hziemer am Mai 15, 2012, 19:04:44 Nachmittag

Titel: Office 2010: Probleme mit wverweis bei mehreren Zeilen
Beitrag von: hziemer am Mai 15, 2012, 19:04:44 Nachmittag
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
Titel: Antw:Office 2010: Probleme mit wverweis bei mehreren Zeilen
Beitrag von: Officer am Mai 16, 2012, 07:02:52 Vormittag
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
Titel: Antw:Office 2010: Probleme mit wverweis bei mehreren Zeilen
Beitrag von: Officer am Mai 16, 2012, 08:31:09 Vormittag
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
Titel: Office 2010: Antw:Office 2010: Probleme mit wverweis bei mehreren Zeilen
Beitrag von: hziemer am Mai 16, 2012, 10:41:45 Vormittag
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