Zellzeiger in allen Tabellenblättern positionieren (VBA)


Zellzeiger in allen Tabellenblättern positionieren (VBA)

Mit VBA Zellzeiger positionieren

Mit dem folgenden Makro können Sie den Zellzeiger in allen Tabellenblättern einer Arbeitsmappe in der gleichen Zelle positionieren.

Aktivieren Sie in einem Tabellenblatt die entsprechende Zelle und starten Sie dann das folgende Makro.

 

Sub Zellzeiger_in_Blaettern_positionieren()

    Dim Starttabelle As String

    Dim Zelle As String

    Dim WS As Integer

    Application.ScreenUpdating = False

    Starttabelle = ActiveSheet.Name

    Zelle = ActiveCell.Address

    For WS = 1 To ActiveWorkbook.Worksheets.Count

        Worksheets(WS).Activate

        Range(Zelle).Select

    Next

    Worksheets(Starttabelle).Activate

    Application.ScreenUpdating = True

End Sub