1.9k Aufrufe
Gefragt in Tabellenkalkulation von paul1 Experte (4.9k Punkte)
Hallo zusammen,

In einer Excel Datei, Tabellen 2 bis 13 soll bis zur Zeile 4 das Fenster fixiert werden

Am liebsten wäre mir eine VBA-Lösung mit der Möglichkeit die Fixierung wieder aufzulösen.

Über Antworten würde ich mich freuen


Gruß

Paul1

4 Antworten

0 Punkte
Beantwortet von hajo_zi Experte (9.1k Punkte)
Halo Paul,

es ist mir nur eine Lösung mit Select eingefallen.

Option Explicit

Sub Fixieren()
Dim LoI As Long
For LoI = 2 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


Gruß Hajo
0 Punkte
Beantwortet von paul1 Experte (4.9k Punkte)
Hallo Hajo,

Besten Dank für die VBA-Lösung, das ist schon die halbe Miete, aber hast Du für mich noch eine VBA-Möglichkeit die Fixierung wieder aufzulösen.

Gruß

Paul1
0 Punkte
Beantwortet von hajo_zi Experte (9.1k Punkte)
Hallo Paul,

warum testest Du den Code nicht?

Gruß hajo
0 Punkte
Beantwortet von paul1 Experte (4.9k Punkte)
Hallo Hajo,

Ist mir gelungen:

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

nochmals vielen Dank

Gruß

Paul1
...