Hallo,
kann mir jemand sagen, was in anhängenden Makro geändert werden muss,
damit erst ab Zeile 2 gesucht/gefunden und gelöscht wird.
M.f.G.
Günter
Dim c As Range
Dim bereich As Range
'bereich mit beschriebenen zellen finden
Sheets(1).Select
ActiveSheet.UsedRange.Select
reihe = ActiveSheet.UsedRange.Rows.Count
spalte = ActiveSheet.UsedRange.Columns.Count
ActiveCell.Offset(1, 1).Select
ActiveCell.Offset(-1, -1).Select
If ActiveCell.Address "a1" Then
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlToLeft)).Select
End If
reihe = reihe + Selection.Rows.Count - 1
spalte = spalte + Selection.Columns.Count - 1
Range("a1").Select
' löschzeilenwert festlegen
eingabe = InputBox("Was finden & löschen?")
'durchsuchen & löschen
Set bereich = Sheets(1).UsedRange
For Each c In bereich
If c = eingabe Then
MsgBox "gefunden in: reihe" & reihe & " spalte" & spalte & vbCr & "Zeile wird gelöscht"
reihe = c.Row
spalte = c.Column
Rows(reihe).Delete
End If
Next c
End Sub