Fensterfixierung (freezepanes) an aktiver Zelle
13.02.2008 10:34:10
Andreas
ich möchte gern eine Fensterfixierung realisieren, die alle Blätter einer Arbeitsmappe durchläuft und die Fensterfixierung über FreezePanes immer in der Zelle setzt, die die aktive Zelle auf dem Blatt war, auf dem ich bei Auslösung des Makros stand.
In der Grundversion habe ich die Fensterfixierung schon hinbekommen:
Sub fensterfixen2()
For i = 1 To Sheets.Count
With Sheets(i)
.Activate
.Range(ActiveCell.Address).Select
ActiveWindow.FreezePanes = True
End With
Next i
End Sub
Aber dieser Code nimmt auf jedem Blatt individuell die aktive Zelle. Was ich bräuchte wäre ein Festlegung auf die Zelle des aktiven Blattes bei Aktivierung des Makros.
zelle = activecell.address.
zelle als String definieren ?
Ich habe alle mir als plausibel erscheinenden Varianten durchgespielt, bekomme aber Laufzeitfehler 1004 "Anwendungs- oder objektdefinierter Fehler".
Woran liegt das? Wie kann ich die Festlegung für FreezePanes erzielen?
Danke für Eure Mühe.
Grüße,
Andreas Hanisch