bräuchte bitte eure Unterstützung.
und zwar möchte ich, dass die Spalte P in Tabelle2 ausgewählt wird und und alle Werte kleiner 0 gelöscht werden.
Iwie komm ich gerade nicht weiter...
Vielen Vielen Dank!!
Tyroler
Option Explicit
Sub kleinerNull()
Dim rng As Range
For Each rng In Tabelle2.Range("P1:P28") 'Bereich anpassen!
If rng
Gruß MatthiasPublic Sub Löschen()
Dim loLetzte As Long
Dim raBereich As Range
Dim raZelle As Range
Application.ScreenUpdating = False
loLetzte = Sheets("Tabelle1").Cells(Rows.Count, 16).End(xlUp).Row 'Tabelle anpassen
Set raBereich = Sheets("Tabelle1").Range("P1:P" & loLetzte) 'Tabelle anpassen
For Each raZelle In raBereich
If raZelle.Value
Gruß WernerFor Each raZelle In raBereich
If raZelle.Value
Ist aber ungetestet.