aus 2 funktionierenden codes mach einen
06.04.2004 20:34:59
Jürgen
Da ich keine datei uploaden kann versuch ichs mal so
Wenn man eine neue excel datei mit 4 sheets hat
In sheet 1 + 2 + 3 folgenden code einfügt
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Zelladresse = ActiveCell.Address(0, 0)
End Sub
Private Sub Worksheet_Activate()
If Not Zelladresse = "" Then
Application.Goto Range(Zelladresse)
End If
End Sub
In sheet 4 folgenden code einfügt
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
z = ActiveCell.Row
s = ActiveCell.Column
If z = 1 Then GoTo FINI
If s > 15 Then GoTo FINI
Range(Cells(z, 1), Cells(z, s)).Interior.ColorIndex = 7
Cells(z, s).Interior.ColorIndex = 7
FINI:
End Sub
Und in ein standard-modul folgenden code einfügt
Option Explicit
Public Zelladresse As String
Dann erhält man folgendes ergebnis
Wenn ich zwischen den blättern 1 + 2 + 3 hin- und herspringe lande ich im neuen blatt in das ich springe immer in der selben zelle wo ich mich befand aus dem blatt von wo ich wegspringe
In blatt 4 wird wenn ich den cursor bewege immer die zeile links nebem dem cursor eingefärbt
Mein wunsch wäre das dieses einfärben links neben dem cursor in blatt 3 ( nur in blatt 3 ) UND wenn ich in eines der anderen blätter springe ich in der zell-position lande aus der ich weggesprungen bin miteinander funktioniert
BSP:
Ich bin in blatt 1 in zelle b65, klicke blatt 2 und lande automatisch in zelle b65, bewege mich in blatt2 in die zelle c85, klicke auf blatt3 lande automatisch in zelle c85 ( die zeile links neben dem cursor in färbig ) bewege mich in blatt 3 nach d100 ( die zeile links neben dem cursor ist immer färbig ) wenn ich jetzt zum blatt 2 oder 1 wechsle lande ich dort in d100 usw.
Siehe beiträge:
https://www.herber.de/forum/messages/408976.html
https://www.herber.de/forum/messages/408854.html
( die vorgeschlagenen lösungen funktionieren
meiner meinung nach nicht)
Im vorhinein schon ein danke an alle die sich mit dem problem beschäftigen