Gleiche Zelle in anderem Blatt aktivieren
01.09.2004 13:40:20
Harald E
kennt jemand die nervige Frage "Welche Schicht hatte der Meier nochmal am 10.06.04. Früh, Mittag oder Nacht ?).
Dank eurer Hilfe hab ich einen schönen Code erstellt, der nach Doppelklick auf gewünschtes Datum das Tabellenblatt der Frühschicht für diesen Tag aktiviert.
Die Range der Datumszeile ist in allen 4 Blättern gleich (3x Schicht, 1mal Auswahlblatt mit dem Doppelklickcode). Ich möchte nun erreichen, das nach Doppelklick auf das Wunschdatum (z.B. in D2) der Cursor im somit aktivierten Blatt ebenfalls auf D2 steht.
Hier ist der Code.
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim iDate As Integer
Dim dBezug As Date
If Target.Row = 2 Then
Target.Interior.ColorIndex = 3 'rote Kennzeichnung für erledigt
End If
dBezug = #5/17/2004#
If Not Intersect(Target, Range("B2:AF2")) Is Nothing Then 'Datumsreihe
iDate = (Target - dBezug) Mod 21
Select Case iDate 'aktiviert Tblatt der Schicht 1
Case 0 To 6
Sheets("Meier").Activate
Case 7 To 13
Sheets("Muster").Activate
Case 14 To 20
Sheets("Müller").Activate
End Select
End If
End Sub
Hat jemand ne Idee ?
Danke schonmal
Harald
Vielleicht noch als Ergänzung. Hier der Code, der mir im Rahmen einer Auswertung auf allen drei Schichtblättern die aktive Zelle auf das gleiche Feld (=gleiches Datum) setzt.
Sub Aktivieren()
If ActiveSheet.Name = "Meier" Or ActiveSheet.Name = "Muster" Or ActiveSheet.Name = "Müller" Then
nm = ActiveSheet.Name
Z = ActiveCell.Row
S = ActiveCell.Column
Worksheets("Meier").Activate
Cells(Z, S).Select
Worksheets("Muster").Activate
Cells(Z, S).Select
Worksheets("Müller").Activate
Cells(Z, S).Select
Worksheets(nm).Activate
End If
End Sub