vorige Woche hatte ich von Euch schon mal Hilfe wegen eines VBA-Makros bekommen. Nun habe ich damit jedoch zwei Folgeprobleme, bei denen ich Euch erneut um Euere Unterstützung bitte, da ich mich mit VBA leider (noch) überhaupt nicht auskenne.
Das Makro, das ich von Euch bekommen habe, sieht so aus:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 1 Or Target.Cells.Count > 1 Then Exit Sub If IsDate(Target.Value) Then Range("J" & Target.Row).Value = Day(Target.Value) Range("K" & Target.Row).Value = Month(Target.Value) End If End Sub
1. Problem:
Wenn ich in der ersten Spalte (A) ein Datum eingebe, erscheinen korrekterweise in Spalte J der entsprechende Tag und in Spalte K der entsprechende Monat. Aber wenn ich das Datum über "Entf" wieder lösche, bleiben die Zahlen in den Spalten J und K stehen. Diese sollen aber bei löschen des Datums ebenfalls wieder verschwinden.
2. Problem:
Ich möchte für dieses Arbeitsblatt ZUSÄTZLICH noch ein zweites Makro erstellen, das dieselbe Aufgabe hat, wie das oben genannte. Nur soll hier statt Spalte A (=1) die Spalte E (=5) die Datumsspalte sein und die Makroergebnisse in den Spalten L und M stehen.
Da ich, wie schon gesagt, von VBA keine Ahnung habe, sind meine bisherigen Versuche zur Selbsthilfe kläglich gescheitert.
Die Tabelle habe ich unter https://www.herber.de/bbs/user/13059.xls
auf den Server geladen.
Kann mir jemand von Euch bitte die Lösungsmöglichkeiten nennen?
Ich danke schon mal im Voraus für Euere Mühe.
Gruß, Manfred