Re: Formatieren nur bis zur letzten Zeile
06.05.2002 17:01:13
Finus
Hallo Hajo,erstmal danke für deine Tips,
bin Anfänger in VBA, und brauche noch eine kleine weitere Hilfe!
also ich habe deinen Tip-Nr.113 ausprobiert, er liefert mir 116, d.h. dass ungefiltert die letzte Zeile=116 ist, (später filtere ich, dann ist es nur noch 115!)
Also muss ich mir im ungefilterten Zustand die Zeilenzahl (116) irgendwie in einer Variablen sichern, wie geht das?
Und nachher diese Variable als Zeilenzahl im Formatierungsbefehl verwenden, wie geht das?
Hier mein strarrer Formatierungsteil aus dem Makro:
'
' dünne Rahmen (Haarlinien) einfügen #2
Selection.AutoFilter Field:=8
Range("A6:AA249").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.RowHeight = 21
ich denke, dass an der Stelle:
Range("A6:AA249").Select
so was ähnliches wie
Range("A6:AA.ROW.").Select
sollte, aber bestimmt nicht so,
wer kann mir da einen Tip geben?