Problem mit Fensterfixierung

Hallo,
Ich habe ein Problem mit einem Makro, welches eine Zeile fixieren soll. Dabei passiert es manchmal, dass die Fensterfixierung irgendwo gesetzt wird, obwohl Range("a3") angegeben ist. Es kommt auch manchmal vor, dass das Worksheet geteilt wird, obwohl solch ein befehl nirgends im code zu finden ist.
vielen dank schonmal für eure antworten
liebe grüße alex
Das Makro wird aus einer Userform gestartet
code:

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
With Sheets("Wartungsübersicht")
.Activate
.Range("A3:Z2000").Sort Key1:=Range("A3"), Order1:=xlAscending, Key2:=Range("B3"), Order2:= _
xlAscending, Key3:=Range("D3"), Order3:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
.Range("A3").Select
ActiveWindow.FreezePanes = True
End With
Call wartungsübersicht
With Sheets("Wartungsübersicht")
Selection.AutoFilter field:=1, Criteria1:="Netz", Operator:=xlAnd
Columns("A").Hidden = True
Columns("N").Hidden = True
Columns("G").Hidden = True
End With
Application.ScreenUpdating = True
Unload Me
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

…ohne Freeze-Möglk, Alex…
Irgendwo, irgendwann beim Zusammenspiel der verschiedenen Makros wird's zu Abbrüchen u.Auslassungen kommen — nur eins ist immer zuverlässig → ActiveWindow! ;-)
Wenn zu ds.ZPkt irgend'ne andere Zelle oder sonstwas den Fokus hat und deine Fix-Zelle ist noch nicht selektiert, kann die Fixierung schon mal sonstwo landen. Außerdem sortierst du ja unmittelbar davor. Wenn nun VBA einfach weitermacht (bzw beim Kompilieren das intern irgendwie anders zusammengestellt wurde) und die Sortierung zuckt noch nach, könnte schon mal das Select übersprungen wdn. Versuch's doch mal mit einem Wait zwischen Sortierung und Select oder nach Letzterem. Viell klappt's dann…?!
Gruß Luc :-?

Private Sub CommandButton1_Click() With Sheets("Wartungsübersicht") .Activate ActiveWindow.FreezePanes = False ActiveWindow.ScrollRow = 1 ActiveWindow.ScrollColumn = 1 Range("A3").Select ActiveWindow.FreezePanes = True Application.ScreenUpdating = False .Range("A3:Z2000").Sort Key1:=Range("A3"), Order1:=xlAscending, Key2:=Range("B3"), _ Order2:=xlAscending, Key3:=Range("D3"), Order3:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal End With Call wartungsübersicht With Sheets("Wartungsübersicht") Selection.AutoFilter field:=1, Criteria1:="Netz", Operator:=xlAnd Columns("A").Hidden = True Columns("N").Hidden = True Columns("G").Hidden = True End With Application.ScreenUpdating = True Unload Me End Sub

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Problem mit Fensterfixierung

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread