AW: Mit Doppelklick Zelle füllen
17.02.2013 20:36:29
Thorsten
Hallo Hajo,
das funktioniert super in einer leeren Arbeitsmappe. Aber in meiner Ausgearbeiteten Arbeitsmappe funktioniert es nicht. Ist ist der komplette Text, den ich drin stehen habe. Vielleicht beißt sich ja irgendwas:
(Anmerkung: Zelle I8 ist eigentlich verbunden = I8:J8)
--------------
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(False, False) = "I8" Then
Target = Date & " | " & Time
ElseIf Target.Address(False, False) = "I90" Then
Target = Date & " | " & Time
ElseIf Target.Address(False, False) = "J93:J132" Then
Target = "X"
ElseIf Target.Address(False, False) = "O8" Then
Target = Date & " | " & Time
ElseIf Target.Address(False, False) = "090" Then
Target = Date & " | " & Time
ElseIf Target.Address(False, False) = "P93:P132" Then
Target = "X"
End If
End Sub
'Wenn in Spalte D was eingetragen wird
'erscheint 1 Spalte weiter die Uhrzeit aus dem System
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("F93:F132"), Target) Is Nothing Then
If Len(Target.Value) > 0 Then Target.Offset(0, 1).Value = Date & " | " & Time
End If
If Not Application.Intersect(Range("L93:L132"), Target) Is Nothing Then
If Len(Target.Value) > 0 Then Target.Offset(0, 1).Value = Date & " | " & Time
End If
End Sub
--------------