Microsoft Excel

Herbers Excel/VBA-Archiv

Inhalt von Zellen (OP12) finden und kopieren

Betrifft: Inhalt von Zellen (OP12) finden und kopieren von: Carsten
Geschrieben am: 06.09.2004 16:21:44

Liebe Excel Freunde,

ich habe folgendes Problem. Ich habe 1 Spalte deren Zellen eine Aneinanderreihung von mehreren OP sind. Insgesamt 350 Zeilen.

Bsp einer Zelle: Op2, Op9,Op10, Op12

Die Zellen sind auch durch mehrere Leerzeilen unterbrochen

Immer wenn der Operator OP12 erscheint soll die gesamte zeile in ein anders AB kopiert werden. Kann jemand helfen? Danke im vorraus!!!

  


Betrifft: AW: Inhalt von Zellen (OP12) finden und kopieren von: PeterW
Geschrieben am: 06.09.2004 17:56:14

Hallo Carsten,

mal eine einfache Möglichkeit, die du mit deinem angegebenen Level bestimmt unmsetzen kannst:
Sub OP12()
   Dim lgQuell As Long
   Dim lgZiel As Long
   For lgQuell = 1 To Range("A65536").End(xlUp).Row
      If Cells(lgQuell, 1) Like "*Op12*" Then
         lgZiel = lgZiel + 1
         Rows(lgQuell).Copy Sheets("Tabelle6").Rows(lgZiel)
      End If
   Next
End Sub

Gruß
Peter


 

Beiträge aus den Excel-Beispielen zum Thema "Inhalt von Zellen (OP12) finden und kopieren"