Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro auslösen bei Zelländerung

Makro auslösen bei Zelländerung
26.01.2007 09:06:27
Michael
Liebe Profis!
Ich habe mir ein Makro zusammengebastelt, dass mir in meinem oft benutzten Formulardie Eingabe in der Datumszelle erleichtert, so dass ich nur noch z.B. 3101 statt 31.01.07 eingeben muss. Da ich das Formular mittels Makrobutton abschliesse, habe ich einfach diesen Code vornedran gehängt:
Dim datum2 As Long
datum2 = ActiveSheet.Cells(8, 2).Value
If datum2 &lt 101 Or datum2 &gt 3112 Then GoTo datumstimmt
mon = Right(datum2, 2)
If datum2 &gt 912 Then wota = Left(datum2, 2) Else wota = Left(datum2, 1)
ActiveSheet.Cells(8, 2).Value = Format(wota, "00") & "." & mon & "." & Year(Now)
datumstimmt:
Jetzt wäre mir aber lieber, wenn Excel dieses Makro sofort ausführen würde, wenn ich etwas in die Datumszelle schreibe. Ich habe mal ein Makro mit der Start-Voraussetzung Worksheet_selectionChange oder so ähnlich gesehen, leider komme ich hier mit Basteln aber nicht weiter.
Danke im Voraus
Michael

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro auslösen bei Zelländerung
26.01.2007 09:22:17
ronny
hallo michael,
so geht's:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = ("$B$(") Then
DEIN MAKRO
End If
End Sub

gruß ronny
sorry Tippfehler, das ist richtig !!
26.01.2007 09:24:04
ronny

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = ("$B$8") Then
DEIN MAKRO
End If
End Sub

AW: sorry Tippfehler, das ist richtig !!
26.01.2007 09:25:26
Michael
Super, vielen Dank!
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige