Makro bearbeiteter Zelle automatisch ausführen
03.05.2018 06:47:38
Corinna
ich bin VBA-Neuling und nun leider mit meiner Excel-Liste festgefahren. Vielleicht könnt Ihr mir helfen.
In die Zelle (H2) wird eine Zahlenfolge eingegeben. Durch "Bestätigen" wird in einer der eingegebenen Zahlenfolge zugeordneten Zelle der Spalte "H" das aktuelle Datum mit Uhrzeit eingetragen. Da diese Datum-Uhrzeitangabe durch JETZT bestimmt wird, ist diese nicht fixiert - was aber zwingend notwendig wäre. Bisher habe ich das durch ein händisch ausgeführtes Makro gelöst. Ist aber auf Dauer unpraktisch.
Gibt es eine Möglichkeit, das Makro automatisch auszuführen, wenn das Datum erfasst wird? Oder wie muss ich das Makro verändern, damit es erkennt, welche Zelle im Bereich der Spalte H gerade bearbeitet wurde?
Der Code, der der Tabelle zugeordnet ist sieht wie folgt aus:
Private Sub Worksheet_Calculate()
Dim objCell As Range
For Each objCell In Range("H4:H386")
If objCell.HasFormula Then _
If IsNumeric(objCell.Text) Then _
If Fix(objCell.Value) = objCell.Value Then _
objCell.Value = objCell.Value
Next
End Sub
Das bisher verwendete Marko ist:
Sub FormelnDurchWerte()
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Wie bringe ich die beiden zusammen, dass das Ergebnis passt? Hab schon vieles ausprobiert - ohne Erfolg und google bringt mich leider auch nicht weiter. Daher wäre ich für jede Hilfe dankbar.
LG
Corinna
Anzeige