Office: Kalendereinträge datumsabhängig löschen

Hallo zusammen,

folgendes Problem konnte ich bislang noch nicht lösen:
In einem Kalender für unsere Dienstgruppe steht in Spalte A das jeweilige Tagesdatum. Rechts daneben stehen die Feiertage und daneben für die einzelnen Mitarbeiter die Urlaubstage ("U") oder die Abwesenheitstage aus anderem Grunde ("A"), wie z. B. Krankheit, Seminar u. ä..
Nun sollen die Tage, in denen ein "A" steht einen Monat nach Ablauf des Datum in Spalte A der jeweiligen Zeile gelöscht werden. Die bedingte Formatierung bringt mich da nicht weiter. Damit kann ich das Datum durch Veränderung der Schriftfarbe zwar unsichtbar machen, jedoch den Eintrag nicht vollständig verschwinden lassen.

Ich gehe daher davon aus, dass ich eine VBA-Lösung brauche, habe von VBA jedoch keine Ahnung.

Hat jemand eine Idee?

Vielen Dank und viele Grüße

Christian

 

Hallo!

Unter der Annahme, dass
- Spalte A aufsteigend sortiert ist
- die "A"s in Spalte B stehen

Code:

Sub test()
    Dim z As Long
    Do
        z = z + 1
        If Cells(z, 2) = "A" Then Cells(z, 2).ClearContents
    Loop Until Cells(z, 1) > Date - 30      'vor 30 Tagen
End Sub

 

Hallo Schatzi,

vielen Dank für Deinen Vorschlag. Da die "A"´s erst ab Spalte E beginnen und das jeweilige Datum nicht wie ich es in Erinnerung hatte in Spalte A, sondern C steht, habe ich mit meinen fehlenden VBA-Kenntnissen versucht, das ganze wie folgt umzumünzen:

Sub test()
Dim z As Long
Do
z = z + 1
If Cells(z, 5) = "A" Then Cells(z, 5).ClearContents
Loop Until Cells(z, 3) > Date - 30 'vor 30 Tagen
End Sub

Das ganze steht in dem Fenster zur zugehörigen Tabelle. Es tut sich aber nichts. Weißt Du, was ich falsch gemacht habe?

Beste Grüße

Christian

 

Hallo!

Lade deine Tabelle doch bitte mal hier hoch, dann kann man den Patienten persönlich kennenlernen.
Alle weiteren Inhalte außer Spalte C und E darfst du dafür gerne löschen.

 

Hallo Schatzi,

beim Hochladen erhalte ich immer eine Fehlermeldung (407). Die Dateigröße liegt lediglich bei 27,5 kB. Ich versuche, die Datei mal genauer darzustellen:

Zeilen 1 bis 9: allgemeine Informationen
Ab Zeile 10: eigentliche Urlaubstabelle

Zeile 10 Überschriften:
A: Kalenderwoche
B: Wochentag
C: Datum
D: Schulferien/Feiertage
Ab Spalte E: Namen der Mitarbeiter (am Ende eines Sachgebietes befinden sich zwei Ergebnisspalten)

Ab Zeile 11 Einträge: Beispiele:
A: 1
B: Sa
C: 03.01.2015
D: Schulferien
E: "B" oder "U" oder "H" oder "A" oder Summenergebnisse in den Ergebnisspalten

Ich hoffe, damit wird das deutlicher.

Beste Grüße

Christian

 

Hallo!

Versuch es mal mit einer zusätzlichen Zeile:

Code:

Sub test()
     Dim z As Long
     z = 10
     Do
         z = z + 1
         If Cells(z, 5) = "A" Then Cells(z, 5).ClearContents
     Loop Until Cells(z, 3) > Date - 30 
End Sub

Sollte es dann immernoch nicht funktionieren, dann hat deine Tabelle irgendwo einen Haken, den man genauer untersuchen müsste.
Sollte der Upload hier im Forum weiterhin rumzicken, dann kannst du die Mappe z.B. auch bei http://www.file-upload.net/ hochladen.

 

KLASSE! DANKE!

Das funktioniert soweit schon mal gut. Jetzt benötige ich nur noch eine Erweiterung für die Spalten "F" fortfolgende. Nach meinem Verständnis müsste ich da irgendetwas in dem Bezug "Cells(z, 5)" ändern. "Cells(z, 5-50)" funktioniert da nicht. (Wie man sich das als Laie so vorstellt...).
Hast Du dafür vielleicht auch noch eine Lösung?

Beste Grüße

Christian

 

Hallo!

Dann probier mal dies:

Code:

Sub test()
    Dim z As Long, s As Integer
    z = 10
    Do
        z = z + 1
        For s = 5 To 50
            If Cells(z, s) = "A" Then Cells(z, s).ClearContents
        Next s
    Loop Until Cells(z, 3) > Date - 30
End Sub

 

Hallo Schatzi!

Perfekt!

Ich danke Dir ganz herzlich!

Nur zum Verständnis: Wenn ich neben "A" noch eine weitere alternative Bedingung hätte, also "A" oder "B", wie müsste ich das Script dann aufbauen?

Gruß

Christian

 

Hallo!

If Cells(z, s) = "A" Or Cells(z, s) = "B" Then Cells(z, s).ClearContents

 

Vielen Dank!