"0" Werte in letzter Zeile finden und löschen
08.02.2024 17:28:18
Strueddilueddi
ich habe eine Tabelle in der ich in der jeweils letzten Zeile (in diese werden durch ein vorheriges Makro Daten kopiert) die 0 suchen und löschen möchte.
Mit folgender Formal funktioniert es, jedoch sehr langsam, da ja die ganze Tabelle durchsucht wird.
Sub Nullweg()
Dim rng As Range
For Each rng In Sheets("database").Range("database")
If rng.Value = 0 Then rng.ClearContents
Next
End SubGibt es eine Möglichkeit statt der ganzen Tabelle nur die letzte Zeil zu durchsuchen oder die 0 erst gar nicht zu kopieren? Die 0 entsteht, da in der kopierten Zelle zwar kein Wert aber eine Formel ist ( soviel wie ich verstanden habe funktioniert dann skipblanks nicht).
vorheriges Makro zum kopieren und einfügen in der letzten Zeile
Sub CopyPaste()
'
Sheets("Zwischenablage").Range("B2:Aw2").Copy
With Sheets("database").Range("A65536").End(xlUp).Offset(1, 0)
.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=True, Transpose:=False
End With
End SubVielen Dank für eure Hilfe.
Viele Grüsse