habe folgenden Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 6 Then
Target = Selection
Target = Date
Dname = Target.Offset(0, -4).Value
Sheets("Daten").Select
For z = 3 To 1000
If Dname = Cells(z, 4) Then
Cells(z, 14).Value = Date
Cells(z, 23).Value = 1
Exit For
End If
Next z
Sheets("Daten2").Select
End If
End Sub
leider funktioniert das nicht .. kann mir einer helfen?Liegt es vielleicht daran, dass das Makro in einer anderen Mappe keine Werte ändern kann? Wenn ja, wie kann ich das umgehen?
jetzt schon einmal vielen Dank.
Gruß Klaus