Call-Anweisung mit activeSheet
19.04.2007 18:19:10
Korl
ich habe zwei Tabellenblätter mit gleicher Struktur, in denen ich über einen Code Rahmen setzen möchte.
Dieses binde ich jeweils mit einer Call-Anweisung ein.
siehe hier einen Ausschnitt aus meinem Code:
Else
lLetzteK = IIf(wksKreis.Range("D65536") "", 65536, wksKreis.Range("D65536").End(xlUp).Row)
lLetzteT = IIf(wksZ.Range("D65536") "", 65536, wksZ.Range("D65536").End(xlUp).Row)
wksKreis.Range("A1:G" & lLetzteK).AutoFilter Field:=5, Criteria1:=ufAuswahl.ComboBox1.Value, VisibleDropDown:=False
wksKreis.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
wksZ.Range("A1")
Call Rahmen_setzen_gestrichelt
lLetzteT = IIf(wksZ.Range("D65536") "", 65536, wksZ.Range("D65536").End(xlUp).Row)
With wksZ
Im Code für das setzen der Rahmen beziehe ich mich auf das "activeSheet" und es will nicht funktionieren.
Spreche aber direkt das Tabellenblatt an, funktioniert es.
Nun wollte ich es aber vermeiden diesen langen Code zweimal für die jeweiligen Tabellenblätter zu schreiben.
Warum funktioniert es nicht mit dem "activenSheet", da ich mich ja in diesem befinde, oder?
Weis jemand Rat?
Gruß Korl
Anzeige