Microsoft Excel

Herbers Excel/VBA-Archiv

Daten Filtern und Zellbereich löschen

Betrifft: Daten Filtern und Zellbereich löschen von: Markus
Geschrieben am: 18.11.2014 12:08:30

Hallo,

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
Wäre nett wenn mir jemand von euch Tips zur Lösung nennen könnte.

Viele Grüße

Markus

  

Betrifft: Dreifach von: Hajo_Zi
Geschrieben am: 18.11.2014 12:12:38

https://www.herber.de/forum/messages/1393019.html


 

Beiträge aus den Excel-Beispielen zum Thema "Daten Filtern und Zellbereich löschen"