ich möchte gern die Spalte K ab Zeile 5
prüfen, wenn eine 0 drin steht soll raus, alle anderen Werte drin lassen.
mfg walter mb
Sub sb0Del()
Dim liZeile As Integer
For liZeile = 5 to Cells(Rows.Count, 11).End(xlUp).Row
If Range("K" & liZeile).Value=0 Then
Range("K" & liZeile).Value = ""
End If
Next
End Sub
Dieses Makro muss ausgeführt werden, wenn das Tabellenblatt mit der entsprechenden K-Spalte das aktive Blatt ist.