Anzeige
Archiv - Navigation
1076to1080
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Datum durch nichts ersetzen

Datum durch nichts ersetzen
03.06.2009 07:43:42
Susanne
Hallo,
habe folgendes Problem:
In einer Datei befindet sich ein Datum 02.01.1900. Das soll durch nichts ersetzt werden. Beim Aufzeichnen des Makros macht er das auch. Wenn ich das Makro später noch mal aufrufe macht er es aber nicht.Es ist auch egal ob das Feld als Standard oder Datum definiert es. Er reagiert immer gleich
Columns("A:A").Select
Selection.Replace What:="02.01.1900", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Hier die Datei dazu
https://www.herber.de/bbs/user/62161.xls
Was mache ich falsch?
Liebe Grüße
Susanne

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum durch nichts ersetzen
03.06.2009 08:28:47
hary
Hallo Susanne
Code nicht schoen,aber er tut's.

Sub loeschen()
Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 1) = 2 Then Cells(i, 1).Clear
Next
End Sub


Gruss hary

AW: fehler drin
03.06.2009 08:40:15
hary
Hallo Susanne
bwim anderen code geht's nur wenn Tg = 2
Hier mal ausgehend vom Jahr 1900

Sub loeschen()
Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Year(Cells(i, 1)) = 1900 Then Cells(i, 1).Clear
Next
End Sub


Gruss Hary

Anzeige
AW: Datum durch nichts ersetzen
03.06.2009 08:41:19
Susanne
Hallo Hary,
funzt! Super Danke und einen schönen Tag!
Susanne

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige