Verschiedene Zellformatierungen durch Button
18.11.2013 15:15:39
Jonas
ich habe eine Excel-Liste, in der händisch immer eine gleiche Aktion durchgeführt werden muss.
Und zwar wird eine bestimmte Zeile ausgewählt in der dann folgende Aktionen durchgeführt werden:
1. In Zelle (ausgewählte Zeile,Spalte R) wird der Inhalt gelöscht.
2. Zelle (ausgewählte Zeile,Spalte R) wird auf Füllfarbe "No fill" gestellt.
3. Die Gruppierung wird geöffnet über klick auf die "2" in der linken oberen Ecke.
4. die Ganze Zeile wird markiert und die Schrift auf Fett gestellt.
5. Gruppierung wird durch Knopf "1" geschlossen.
Da das ganze händisch sehr aufwändig ist, soll es per Button in der Ribbonleiste realisiert werden. Als ausgewählte Zeile soll die Zeile in der der Cursor steht dienen.
Die Makro-Aufnahme bringt nichts verwertbares, da es nicht flexibel ist.
Dennoch hier der Code:
Sub Macro2()
Selection.ClearContents
Range("Q4").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
Rows("4:4").Select
Selection.Font.Bold = False
Selection.Font.Bold = True
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
Range("Q5").Select
End Sub
Vielen Dank und beste Grüße
Jonas