Daten Filtern und Zellbereich löschen
18.11.2014 11:29:39
Markus
ich möchte für mein Praxissemester für eine größere Datengruppe ein Makro erstellen.
Ich habe mir einige Infos herausgesucht, aber da ich ein Neuling in sachen VBA bin bekomme ich es nicht verschachtelt.
Was ich benötige:
Das Makro soll in der Range von JT390 bis JT755 die Daten überprüfen ob eine Null vorhanden ist. Wenn eine Null dabei ist sollen die Zellen in der aktuellen Zeile von JS bis KN gelöscht und nach oben verschoben werden.
Hier das Makro wie ich es bis jetzt habe:
Sub Makro1()
Dim i As Range
a:
For Each i In Range("JT390:JT755")
If i.Value = "0" Then
With Range("JS" & i & ":KN" & i).Select
Selection.Delete Shift:=xlUp
End With
GoTo a
End If
Next i
End Sub
Viele Grüße
Markus