Aktive Zelle in andere Blätter übernehmen
09.09.2004 10:41:30
Harald
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
Anzeige