ich möchte bei meinem dynamischen Kalender einen Tag durch anklicken auswählen und dann das Datum in einem anderem Feld anzuzeigen.
Danke für eure Hilfe
OS
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.NumberFormat = "dd" Then
Cancel = True
Range("AQ30").Value = Target.Value 'feste Wertübername
'Range("AQ30").Formula = "=" & Target.Address 'Dynamische Verknüpfung
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fehler
Const APPNAME = "Worksheet_SelectionChange"
'Beispiel
Dim RNG As Range, ZielZ As Range
Set RNG = Range("BE32:BK37")
Set ZielZ = Range("AQ30")
If Not Intersect(Target, RNG) Is Nothing Then 'Innnerhalb des Bereichs
Application.EnableEvents = False
ZielZ = Target
Application.EnableEvents = True
End If
'*** Fehlerbehandlung
Err.Clear
Fehler:
Application.EnableEvents = True
If Err.Number > 0 Then MsgBox "Fehler in Sub """ & APPNAME & """" & vbCrLf _
& "Fehlernummer: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("Zellbereich der kalenderdaten")) Is Nothing Then
Range("DeineZielZelle").Value = Target
End If
End Sub