Liebe Excelfreaks,
ich betreue einen Excelmedikamentenbogen auf unserer Kinderintensivstation, leider habe ich VBA nicht gelernt.
Innerhalb meiner Tabelle brauche ich Kreuze und aber auch das aktuelle Datum in unterschiedlichen Bereichen.
Das soll jeweils durch ein Doppelklick platziert werden. Leider bekomme ich beides auf einmal für mein Tabellenblatt nicht hin.
Kann mir jemand helfen ?
Vielen Dank !
Robert
*Code-BBCode eingefügt*
ich betreue einen Excelmedikamentenbogen auf unserer Kinderintensivstation, leider habe ich VBA nicht gelernt.
Innerhalb meiner Tabelle brauche ich Kreuze und aber auch das aktuelle Datum in unterschiedlichen Bereichen.
Das soll jeweils durch ein Doppelklick platziert werden. Leider bekomme ich beides auf einmal für mein Tabellenblatt nicht hin.
Kann mir jemand helfen ?
Vielen Dank !
Robert
Visual Basic-Quellcode
- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
- Dim rng As Range
- If Intersect(Target, Range("AL27:AL41")) Is Nothing Then Exit Sub
- Target = IIf(Target = "", Date, "")
- Cancel = True
- 'hier fehlt mir die Verbindung :)
- If Intersect(Target, Range("J27:AG40")) Is Nothing Then Exit Sub
- Target = IIf(Target = "", "x", "")
- Cancel = True
- End Sub
*Code-BBCode eingefügt*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()