Forums Neueste Beiträge
 

Zellen mit bestimmten Eintrag per Makro

01/12/2007 - 20:19 von Günter Griesbach | Report spam
Hallo Newsgroup,

ich habe folgendes Problem:

In einer Tabelle gibt es mehrere Datumsspalten. In einigen Zellen steht das
Datum 01.01.1900. Nun möchte ich die Zellen mit diesem Eintrag löschen (nicht
nur den Inhalt). Der Rest der betroffene(n) Zeile(n) soll dann nach rechts
verschoben werden.

Kann mir jemand erklàren wie das funktionieren könnte?

Bereits im Voraus besten Dank.

Gruß
Günter
 

Lesen sie die antworten

#1 Claus Busch
01/12/2007 - 23:33 | Warnen spam
Hallo Günter,

Am Sat, 1 Dec 2007 11:19:01 -0800 schrieb Günter Griesbach:

In einer Tabelle gibt es mehrere Datumsspalten. In einigen Zellen steht das
Datum 01.01.1900. Nun möchte ich die Zellen mit diesem Eintrag löschen (nicht
nur den Inhalt). Der Rest der betroffene(n) Zeile(n) soll dann nach rechts
verschoben werden.



du meinst doch bestimmt nach links in die freigewordene Lücke verschieben?
Da du nicht angegeben hast, wo sich deine Spalten befinden, hier mal ein
Makro für den kompletten Bereich. Du kannst es ja selbst auf deine Spalten
anpassen (Teste mal an einer Kopie deiner Mappe, ob es das macht, was du
willst):

Sub ZellenLoeschen()

Dim rngZelle As Range

For Each rngZelle In ActiveSheet.UsedRange
If rngZelle.Value = 1 And _
rngZelle.NumberFormat = "m/d/yyyy" Then
rngZelle.Delete shift:=xlToLeft
End If
Next

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen