Supportnet / Forum / Tabellenkalkulation
Nur Datum löschen
Frage
Hallo
Noch ein kleines Anliegen:
Wenn möglich bräuchte ich ein Makro das mir aus einem beliebigen, zuvor markierten Bereich die Füllfarbe, und nur die Zelleninhalte die als Datum formatiert sind entfernt.
Einige der Zellen sind geschützt!
Mit freundlichen Grüßen
yxc
Antwort 1 von coros
Hallo yxc,
mit nachfolgendem Makro sollte das funktionieren, was Du Dir vorgestellt hast. Kopiere es in ein StandardModul und starte es über eine Befehlsschaltfläche.
Das Makro löscht in dem markierten Bereich die Hintergrundfarbe und löscht in allen Zellen, in denen ein Datumsformat vorliegt, den Inhalt.
Du musst in dem Makro in den Zeilen
und
den Text "Hier ein eventuelles Passwort eintragen" gegen Dein Blattschutzpasswort tauschen. Aber dabei nicht die Anführungszeichen löschen. Das Passwort gehört dazwischen.
Ich hoffe, Du kommst klar. Bei Fragen melde Dich bitte.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
mit nachfolgendem Makro sollte das funktionieren, was Du Dir vorgestellt hast. Kopiere es in ein StandardModul und starte es über eine Befehlsschaltfläche.
Sub Löschen()
Dim Zelle As Range
Application.ScreenUpdating = False
On Error Resume Next
ActiveSheet.Unprotect "Hier ein eventuelles Passwort eintragen"
For Each Zelle In Selection
With Range(Zelle.Address)
.Interior.ColorIndex = x1None
If Range(Zelle.Address).NumberFormat = "m/d/yyyy" Then Range(Zelle.Address).ClearContents
End With
Next
ActiveSheet.Protect "Hier ein eventuelles Passwort eintragen"
End SubDas Makro löscht in dem markierten Bereich die Hintergrundfarbe und löscht in allen Zellen, in denen ein Datumsformat vorliegt, den Inhalt.
Du musst in dem Makro in den Zeilen
ActiveSheet.Unprotect "Hier ein eventuelles Passwort eintragen"und
ActiveSheet.Protect "Hier ein eventuelles Passwort eintragen"den Text "Hier ein eventuelles Passwort eintragen" gegen Dein Blattschutzpasswort tauschen. Aber dabei nicht die Anführungszeichen löschen. Das Passwort gehört dazwischen.
Ich hoffe, Du kommst klar. Bei Fragen melde Dich bitte.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von yxc
Hallo
Habe das Makro eingefügt, funktioniert einwandfrei.
Besten dank an alle die hier Fragen beantworten, in diesem Fall besonders an coros.
Mit freundlichen Grüßen
yxc
Habe das Makro eingefügt, funktioniert einwandfrei.
Besten dank an alle die hier Fragen beantworten, in diesem Fall besonders an coros.
Mit freundlichen Grüßen
yxc
Antwort 3 von yxc
Hallo
Habe meine Tabelle fast fertig gestellt, nun funktioniert das Makro nur noch teilweise. Es löscht mir nur noch die Zellfarbe.
Habe schon versucht es in eine neue Mappe einzufügen, und das Datumsformat geändert mit demselben Ergebnis
Mit freundlichen Grüßen
yxc
Habe meine Tabelle fast fertig gestellt, nun funktioniert das Makro nur noch teilweise. Es löscht mir nur noch die Zellfarbe.
Habe schon versucht es in eine neue Mappe einzufügen, und das Datumsformat geändert mit demselben Ergebnis
Mit freundlichen Grüßen
yxc
Antwort 4 von yxc
Hallo
Es war mein Fehler.
Hatte das Datum in meiner Tabelle auf 30.12.02 geändert.
Mit der Formatierung 30.12.2002 funktioniert es wieder.
Mit freundlichen Grüßen
Yxc
Es war mein Fehler.
Hatte das Datum in meiner Tabelle auf 30.12.02 geändert.
Mit der Formatierung 30.12.2002 funktioniert es wieder.
Mit freundlichen Grüßen
Yxc