Office: Automatisch löschen

Hi @ all

habe eine frage kann mir jemand diesen makro so umschreiben, das er alles löscht bei einer neuen Suche, anstatt überschreibt
Der Makro überschreibt bei jeder Suche nur die alten Suchergebnisse, wenn ich also einen anderen Begriff suche, und danach noch einen und dieser Begriff hat nicht so viele Verzeichnisse in meiner Tabelle, und so bleiben von der vorherigen Suche begriffe stehen.

Danke schon ma im Voraus!!

-->ich habe mal ein Muster hinzugefügt<--

Code:

Sub Neu()
Dim rBereich As Range
Dim rZelle As Range
Dim wert As String
Dim vUebArr() As Variant
Dim iAnz As Integer
Dim iSpalte As Integer
Dim lZiel As Long
Dim sBereich As String
wert = InputBox("Suchbegriff")
ReDim vUebArr(Sheets("tabelle1").Range("A65536").End(xlUp).Row, 8)
Range("A1:IV" & Range("A65536").End(xlUp).Row).Interior.ColorIndex = xlNone
With Sheets("tabelle1").Range("A3:H" & Range("A65536").End(xlUp).Row)
    Set c = .Find(wert, LookIn:=xlValues, LookAt:=xlPart)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            Rows(c.Row).Interior.ColorIndex = 27
                    For iSpalte = 1 To 8
                vUebArr(iAnz, iSpalte - 1) = Sheets("tabelle1").Cells(c.Row, iSpalte).Value
            Next iSpalte
            iAnz = iAnz + 1
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
lZiel = Sheets("tabelle2").Range("A65536").End(xlUp).Row
iBereich = "2:" & lZiel
With Sheets("tabelle2")
    .Rows(lZiel).Delete Shift:=xlUp
    .Range("A2:H" & iAnz + 1) = vUebArr
    .Columns("A:F").EntireColumn.AutoFit
End With
End Sub

das is der makro der mir sorgen macht

 

Ich habe das mal mit

Code:

Worksheets("tabelle2").Range("a2:h65536").ClearContents

probiert, es funktioniert zwar, aber die Überschrift löscht sich mit, obwohl ich erst ab der 2. zeile lösche, und diese in der ersten steht, und die möchte ich gerne behalten^^

 

okay^^ hat sich alles geklärt! ...habe eine lösung gefunden, hatte einmal zuviel löschen in meinem Makro =)