In der Spalte A möchte ich jede Zelle im Bereich A1:A500 die eine 1 enthält löschen.
PS mittels VBA
Danke
Danke
willst Du die Zelle oder den Zellinhalt löschen? Beim Löschen von Zellen sollen die Zellen (nur in Spalte A oder die gesamte Zeile) nach oben verschoben werden?
Wann soll das Makro ausgeführt werden, Knopfdruck, bei Eingabe?
Einen Rumpfcode könntest Du Dir mit dem Makrorekorder aufzeichenen und anpassen.
Gruß
Peter
folgendes makro löscht die gesamte Zeile, wenn in A1 bis A500 eine 1 steht:
Sub loeschen()
Dim x As Integer
For x = 1 To 500
If Cells(x, 1).Value = 1 Then
Cells(x, 1).EntireRow.Delete Shift:=xlUp
x = 1
End If
Next
End Sub
Wenn du nur den Inhalt der zelle löschen willst:
Sub loeschen()
Dim x As Integer
For x = 1 To 500
If Cells(x, 1).Value = 1 Then
cells(x,1).value = ""
End If
Next
End Sub
Gruß Boris
wo ist der Code, um nur die Zelle zu löschen? ;)
Gruß
Peter
PS: versuch auch mal "For each..."
um ne einzelne Zelle zu löschen gibt es 2 Möglichkeiten:
Ich nehme ein Hämmerchen und schlag ein kleines Stück aus dem Bildschirm raus...
Oder ich drucks aus und spiel ein bisschen mit Tipp-Ex rum...
;-))))
Gruß Boris
sorry, wollte dem VBA-Experten nicht auf den Schlips treten.
Gruß
Peter
Bin in VBA blutiger Laie.
Mit "For each zelle in Range("A1:a500")" hab ich´s auch schon probiert.
Aber wenn dann eine Zeile gelöscht wurde, werden die anderen Zeilen immer eins nach vorne geschoben.
Und so waren dann am Ende immer noch Einsen in der Spalte.
Wie gesagt: Bin in VBA noch ein Stümper........;-)
Gruß Boris
wenn Du ganze Zeilen in einem Bereich löschen willst fang besser bei der letzen an und arbeite Dich zur ersten runter.
Gruß
Peter
Gruß Boris