Hallo Tjorven,
hier mal suchen nach 1,00 im Blatt1 Spalte K, Spalten I:K unterhalb löschen, Spalten I:K ab Zeile 8 in Blatt2 kopieren.
Zum Rest - für mich leider nicht klar.
Public Sub Test()
Dim loZeile As Long, loLetzte As Long, loSuche As Double
loSuche = 0.01
With Worksheets("Tabelle1") 'Blattname anpassen
On Error GoTo errhandler
loZeile = WorksheetFunction.Match(loSuche, .Range("K:K"), 0)
loLetzte = .Cells(.Rows.Count, 9).End(xlUp).Row
.Range(.Cells(loZeile + 1, 9), .Cells(loLetzte, 11)).ClearContents
.Range(.Cells(8, 9), .Cells(loZeile, 11)).Copy _
Worksheets("Tabelle2").Cells(1, 1) 'Blattname/Zielbereich anpassen
End With
Exit Sub
errhandler:
On Error GoTo 0
MsgBox "Suchbegriff " & loSuche & " nicht gefunden."
End Sub
Gruß Werner
|