aus 2 codes mach einen
Jürgen
Im tabellenblatt daten, ergebnis und leichter lesbar steht folgender code:
( bewirkt wann immer ich zw. diesen 3 blättern hin und herspringe das ich immer in der selben zelle des jeweiligen blattes lande )
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 modul 1 steht folgendes:
Option Explicit
Public Zelladresse As String
-------------------------------------------------------
Im tabellenblatt tabelle1 steht folgender code :
( bewirkt das wenn ich mich im blatt tabelle1 bewege die zeile links neben dem cursor immer farbig hinterlegt wird )
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
z = ActiveCell.Row
s = ActiveCell.Column
If z = 15 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
-------------------------------------------------------------
Das problem ist das ich es nicht schaffe in leichter lesbar einerseits immer links neben dem cursor die zeile farbit markiert zu haben und wenn ich nach daten oder ergebnis springe in der selben zelle zu landen wie ich vorher war
Wie kann ich den code für "tabelle1" in "leichter lesbar" integrieren ?