title image


Smiley Re: Automatischer Tabellenwechsel
Hallo,

hier der Weg zum Vorwärtsblättern, analog bekommst du den "Rückweg" bestimmt selber hin:





      

'Dieser Code gehört in die Klassenmodule für deine Tabellen

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    

   Dim Zeile As Integer

   Dim Nummer As Integer

   If InStr(Target.Address, "AK") > 0 Then

      If Me.Index < ActiveWorkbook.Worksheets.Count Then

         Nummer = Me.Index + 1

         Zeile = Target.Row

         Blattwechsel Nummer, Zeile

      End If

    End If



End Sub



'Dieser Code gehört in ein Standardmodul:

Sub Blattwechsel(Nr As Integer, Zeile As Integer)



   ActiveWorkbook.Worksheets(Nr).Activate

   Range("B" & Zeile).Select



End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0




Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: