freezepanes ohne activewindow ?
30.05.2006 10:19:01
Klaus
Der Rekorder schmeisst mir folgenden Code raus, um ein Fenster zu fixieren:
Sub fixieren()
Sheets("Tabelle2").Select
Range("c10").Select
ActiveWindow.FreezePanes = True
End Sub
Nun ist es aber so, dass ich das zu fixierende Fenster automatisch erzeuge, mit folgendem Codefetzen:
with Sheets("Eingang")
irow = .Cells(Rows.Count, 1).End(xlUp).Row
For anz = 4 To irow
UrName = .Range("b" & anz)
Sheets.Add.Name = UrName
Sheets("MUSTER").Cells.Copy
Sheets(UrName).Paste
Sheets(UrName).Range("n1") = .Range("c" & anz)
Sheets(UrName).Range("k1") = .Range("b" & anz)
Sheets(UrName).PageSetup.PrintArea = "L1:N1"
End If
Next anz
end with
Den Code hätt ich gerne select-frei gehalten, daher sträube ich mich noch, den o.g. Recorder-Code einzusetzen.
Sheets(UrName).range("C10").FreezePanes = True
funktioniert leider nicht so richtig.
Kann mir jemand auf die Sprünge helfen?
Dank und Gruß,
Klaus M.vdT.