VBA - Makro: Wenn neues Datum, dann lösche das eingetragene X

Question

Ich habe folgendes Problem!

Ich habe verschiedene Tabellenblätter wo eine Spalte existiert die z.B.
ein Wartungsdatum enthält. Dann folgen drei Spalten wo man ein X
eintragen muss wenn bestimmte Wartungsvorgänge durchlaufen sind.
Wenn die Wartung vollständig Abgeschlossen ist, wird das Datum
beispielsweise auf einen Zeitpunkt gesetzt, der 3 Monate in der Zukunft
liegt. Infolge dessen sollen sich die zuvor eingetragenen "x" automatisch
Löschen.

Da ich absolut keinen Plan von Makros habe, hoffe ich einfach das mich
hier jemand aus meiner misslichen Lage befreihen kann?

Gruß vom Juene!

Answer 1

Hallo,

für ein Makro wäre es sehr hilfreich, wenn du uns mitteilen würdest,
- welche Spalte das Datum enthält und
- in welchen Spalten die "x" gelöscht werden sollen.

Außerdem wäre es gut zu wissen, ob das Datum per Hand geändert wird oder ggf. per Formel (diese bitte dann auch posten).

Gruß

M.O.

Answer 2

Hallo M.O,

danke erstmal für die Info ;) .

Das Datum befindet sich in der Spalte D von Zeile 6 bis 192. Das "x"
befindet sich in der Spalte E,F,G von Zeile 6 bis 192.

Das Datum wird auf einem anderen Tabellenblatt (es heißt ISH-Planung)
per Hand geändert, was mit dem betreffenden Tabellenblatt (Controlling
Wartung Detail) auf einfache Art verknüpft ist.

Die Rechnung auf im ISH-Planung lautet!
=WENN(M12="";"";I12+M12)

Die Verknüpfung Controlling Wartung Detail lautet!
='ISH-Planung'!N12

Gruß

Juene81

Answer 3

Hallo,

das Datum im Tabellenblatt "ISH-Planung" wird in die Spalte M eingetragen? Und die Zeilen, in denen das Datum im Tabellenblatt "ISH-Planung" eingegeben werden, sind identisch mit den Zeilen im Tabellenblatt "Controlling Wartung Detail" (also Datum in Zeile 12 -> im anderen Tabellenblatt in Zeile 12 die x löschen)?

Ggf. kannst du auch eine Beispieldatei mit ein paar Dummy-Daten (und natürlich den entsprechenden Formeln etc) auf einem Hoster deiner Wahl hochladen und den Link hier posten.

Gruß

M.O.

Answer 4

Hallo,

es wird ein aktuelles Datum in die Spalte M eingetragen und in der
Spalte N wird dann ein neues Datum generiert. Das Datum aus Spalte M
wird dann im Tabellenplatt "Controlling Wartung Detail" angezeigt. Das in
dem Moment sollte dann das "x" gelöscht werden. Die "x" befinden sich
auch in Zeile 12 genau wie das Datum.

Ich kann dir auch gerne die Excel Datei mal schicken wenn du mir deine
Mail über auf Juene81@web.de mal zukommen lässt?

Gruß
Juene81

Answer 5

Ich würde dir die eine Bearbeitungstabelle Zusenden mit einer
Beschreibung dazu. Dann kannst du dir das mal genauer anschauen!

Answer 6

Hallo,

ich habe dir die Tabelle zurück gesandt.

Hier das Makro:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Suche As String
Dim lzeile As Long
Dim rngZelle As Range
Dim rngBereich As Range

'Nur wenn in Spalte M eine Eingabe erfolgt, dann..
If Not Intersect(Target, Range("M:M")) Is Nothing Then
'Suchbegriff aus Spalte A einlesen
Suche = ActiveSheet.Cells(Target.Row, 1).Value
'letzte Zeile im Arbeitsblatt "Controlling Wartung Detail" ermitteln
lzeile = Worksheets("Controlling Wartung Detail").Cells(Rows.Count, 1).End(xlUp).Row
'Im Arbeitsblatt "Controlling Wartung Detail" die Spalte A durchsuchen
Set rngBereich = Worksheets("Controlling Wartung Detail").Range("A1:A" & lzeile)
For Each rngZelle In rngBereich
If rngZelle.Value = Suche Then
'Spalten E bis F löschen
With Worksheets("Controlling Wartung Detail")
.Range(.Cells(rngZelle.Row, 5), .Cells(rngZelle.Row, 7)).ClearContents
End With
Exit For
End If
Next rngZelle
End If

End Sub

Das Makro gehört in das VBA-Projekt des Arbeitsblattes der Tabelle "ISH-Planung".

Gruß
M.O.