Herbers Excel/VBA-Archiv
Daten Filtern und Zellbereich löschen
- Daten Filtern und Zellbereich löschen von Markus vom 18.11.2014 12:08:30
- Dreifach - von Hajo_Zi am 18.11.2014 12:12:38
 |
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
| |