Tabellennamen umbenennen - Änderung VBA-Code

Question

Hallo zusammen,

habe folgenden Code zum Fenster fixieren erhalten:

Option Explicit

Sub Fixieren()
Dim LoI As Long
For LoI = 1 To 3
Worksheets("Tabelle" & LoI).Select
With ActiveWindow
If .FreezePanes = False Then
.Split = False
.SplitRow = 4
.FreezePanes = True
Else
.SplitRow = 0
.SplitColumn = 0
.FreezePanes = False
End If
End With
Next LoI
End Sub

Der funktioniert nur so lange als die Tabellennamen Tabelle1, Tabelle2 und Tabelle3 lauten.
Wenn ich die Tabellennamen in Jänner, Februar und März umbenenne ist Schluß mit lustig.
Habe es jetzt händisch gemacht, da ich den Code als VBA-Laie nicht anpassen bzw. recherchieren konnte.

Über Hilfe würde ich mich freuen


Gruß

Paul1

Answer 1

Hallo Paul,

versuch es mal so:

Option Explicit

Sub Fixieren()
Dim LoI As Long
Dim Wsname As String

For LoI = 1 To 3

Select Case LoI
Case Is = 1
Wsname = "Jänner"
Case Is = 2
Wsname = "Februar"
Case Is = 3
Wsname = "März"
End Select

Worksheets(Wsname).Select
With ActiveWindow
If .FreezePanes = False Then
.Split = False
.SplitRow = 4
.FreezePanes = True
Else
.SplitRow = 0
.SplitColumn = 0
.FreezePanes = False
End If
End With
Next LoI
End Sub

Gruß

M.O.

Answer 2

Hallo Paul1,

auch wenn Du von mir nicht mehr belästigt werden möchtest (Deine
Forderung vor längerer Zeit), würde ich Dir folgende Änderung
vorschlagen:

Option Explicit

Sub Fixieren()
Dim LoI As Long
For LoI = 1 To Sheets.Count
Worksheets(LoI).Select
With ActiveWindow
If .FreezePanes = False Then
.Split = False
.SplitRow = 4
.FreezePanes = True
Else
.SplitRow = 0
.SplitColumn = 0
.FreezePanes = False
End If
End With
Next LoI
End Sub

Gruß
Rainer

Answer 3

Hallo M.O. u. Rainer,

Vorerst besten Dank für die rekordverdächtige rasche Hilfe, beide Makros funktionieren hervorragend.

@Rainer ich würde vorschlagen, Schwamm drüber!

schönen Tag noch

Gruß

Paul1

Answer 4

Hallo Paul1,

alles klar.

Gruß
Rainer