AW: Datum per Doppelklick in vordefinierte Zellber.
18.08.2018 08:53:38
Hakan
Hallo Freunde
Ich bin`s nochmal mit einem allerletzten Hilfeanliegen zu diesem Thema. Irgendwie bekomme ich diesen VBA-Code nur bis Zelle E67 zum Laufen. Alle anderen Zellen wollen Debugt werden. Woran könnte dies liegen?
Habe eine Testfile hochgeladen.
https://1drv.ms/x/s!AkIOJGg6BtpQoWzJPCs5dCFctXgM
Herzliche Grüße
Hakan
Option Explicit
Const thisRange As String = "E8:E9,E12:E13,E16:E17,E20:E21,E27:E28,E31:E32,E35:E36,E39:E40,E46:E47,E50:E51,E54:E55,E58:E59,E66:E67," & _
"E70:E71,E74:E75,E78:E79,E85:E86,E89:E90,E93:E94,E97:E98,E104:E105,E108:E109,E112:E113,E116:E117,E124:E125,E128:E129,E132:E133," & _
"E136:E137,E143:E144,E147:E148,E151:E152,E155:E156,E162:E163,E166:E167,E170:E171,E174:E175,E182:E183,E186:E187,E190:E191,E194:E195," & _
"E201:E202,E205:E206,E209:E210,E213:E214,E220:E221,E224:E225,E228:E229,E232:E233,E240:E241,E244:E245"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range(thisRange)) Is Nothing Then
Cancel = True
Application.EnableEvents = False
Target = Format(Time, "hh:mm")
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim inHour As String, inMinute As String
If Not Intersect(Target, Range(thisRange)) Is Nothing Then
If Target.Count = 1 And Not IsEmpty(Target) Then
Application.EnableEvents = False
inHour = Left(Target, Len(Target) - 2)
inMinute = Right(Target, 2)
If Val(inHour) >= 0 And Val(inHour) = 0 And Val(inMinute) 1 Then
Target = inHour & ":" & inMinute
Else
MsgBox "Not a valid time input", vbExclamation
End If
Application.EnableEvents = True
End If
End If
End Sub