makro zum markieren bestimmter zeilen

penkyandthebrain · 13.05.2005

hallo,

ich bin auf der suche nach einem makro, mit dem ich eine Zeile und dann das Dokument von dort aus abwärts markieren und löschen kann.

die erste zelle in der zeile enthält bindestriche in unterschiedlicher anzahl. habe versucht das über makro aufzeichnen und dann gesamtes blatt markieren--> suchen... --> ---- zu machen, dann findet er ja auch die richtige zelle, nur das makro schreibt mir dann immer genau den zellenwert rein und bei einigen listen ist die zeile weiter unten oder oben....

wäre nett, wenn jemand helfen könnte

Matjes · 13.05.2005

Hallo penkyandthebrain,

der folgende Makro sollte das Gewünschte erledigen.

Gruß Matjes

Code:

Sub EndeSuchenUndRestLoeschen()
 ->löscht alle Zeilen ab der gefundenen Zelle,
 ->die das Ende-Kriterium enthält

  Const c_EndeKriterium As String = ---
  
  Dim ws As Worksheet, Zelle As Range

  Set ws = ActiveSheet
  
  Set Zelle = ws.Cells.Find( _
                  What:=c_EndeKriterium, _
                  After:=ws.Cells(1, 1), _
                  LookIn:=xlValues, _
                  Lookat:=xlPart, _
                  Searchorder:=xlByColumns, _
                  Searchdirection:=xlNext)
  If Not Zelle Is Nothing Then
    ws.Rows(Zelle.Row &amp; : &amp; ws.Cells.SpecialCells(xlCellTypeLastCell).Row).Delete
  Else
    MsgBox (Kein Endekriterium gefunden.)
  End If
  Set Zelle = Nothing: Set ws = Nothing
End Sub

makro zum markieren bestimmter zeilen

penkyandthebrain

Matjes

makro zum markieren bestimmter zeilen

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums