Bestimmten Bereich formatieren
11.03.2017 15:34:16
Blue
ich bräuchte mal eure Hilfe bei einem Makro mit folgenden Aufgaben:
1. Tabelle Einbauteile
2. Bereich A16:C16 bis letzte gefüllte Zeile markieren
3. Bereich löschen (Inhalt und Rahmen)
4. Bereich A16:C16 bis letzte gefüllte Zeile markieren
5. Sortieren nach Größe (aufsteigend) Spalte A also Grundlage
5. Textausrichtung Horizontal und Vertikal "Zentriert"
6. Rahmen Zeichnen siehe Makroaufzeichnung:
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
Hoffe mir kann da jemand helfen.
mfg Blue Bird