mein Editor meckert mich mal wieder an.
Mit folgendem Code wechsele ich per Doppelklick auf eine Datumszelle in das Tabellenblatt mit Frühschicht für diesen Tag.
Die Datumszellen sind in allen 4 Blätter an gleicher Stelle und ich möchte nicht nur in das richtige Blatt (machts ja bereits) sondern auch gleich die richtige Zelle aktiviert haben. Z.Bsp.: Doppelklick in B2 selektiert auch in dem betreffenden Blatt B2 zur weiteren Bearbeitung.
Hier der Code. Er meckert mir bereits die Zeile
Z = Sheets("Daten..etc..
an. Ein Versuch mit activecell.row brachte auch keine Besserung
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim iDate As Integer
Dim dBezug As Date
Dim Z As Range, S As Range
Z = Sheets("Daten").Target.Row
S = Sheets("Daten").Target.Column
If Target.Row = 2 And Target.Column < 33 Then
Target.Interior.ColorIndex = 3
End If
If Target.Row = 2 And Target.Column = 33 Then
Range("b2:af2").Interior.ColorIndex = xlnone
Exit Sub
End If
dBezug = #5/17/2004#
If Not Intersect(Target, Range("B2:AF2")) Is Nothing Then
iDate = (Target - dBezug) Mod 21
Select Case iDate
Case 0 To 6
Sheets("Meier").Activate
Cells(Z, S).Select
Case 7 To 13
Sheets("Muster").Activate
Cells(Z, S).Select
Case 14 To 20
Sheets("Müller").Activate
Cells(Z, S).Select
End Select
End If
End Sub
Besten Dank für Tipps bzw. Abhilfe
Harald