Makrorecorder-Aufnahme anpassen
12.06.2006 12:03:47
Anton
folgenden Code habe ich mit dem Makrorecorder aufgezeichnet.
Ich möchte aber das dieses Makro auch bei größeren dateien da tut was ich will.
Hier der Code:
Sub Formatieren()
' Formatieren Makro
' Makro am 12.06.2006 von Admin aufgezeichnet
Selection.AutoFilter 'Autofilter setzen
Selection.AutoFilter Field:=1, Criteria1:="=cdn*", Operator:=xlAnd
Range("A2:B86").Select 'Alle sichtbaren Zellen der Spalte A bis B auswählen
Selection.Font.Bold = True
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Columns("B:B").EntireColumn.AutoFit
Columns("A:A").EntireColumn.AutoFit
Range("A1").Select
Selection.AutoFilter Field:=1 'Autofilter wieder ausschalten
Selection.AutoFilter
Range("C1").Select
End Sub
Erreicht werden soll das der Autofilter alles übrig läßt was mit CDN anfängt.
Dann sollen alle sichtbaren Zeilen Fett formatiert werden.
Dann sollen alle Zellen der Spalte A bis B von der zweiten Zeile bis zur letzten sichtbaren Zeile im Rahmen oben einen Doppelstrich bekommen.
Schließlich wird der Autofilter gelöst und entfernt werden
Wer kann mir bitte helfen meinen Code allgemeingültig zu machen?
Mein Dank geht schon jetzt in Eure Richtung.
Servus,
Anton