|
Hallo.
Hab da ein kleines Problem.
Habe ein Makro, dass mehrere Zellen z. B. grün markiert. Das heißt, ich wähle Zellen aus, drücke eine Schaltfläche, die dem Marko zugewiesen ist und dann werden diese Zellen grün formatiert.
Ich möchte das gleiche für Text. Aber wenn ich genau so vorgehe also mehrere Zellen markiere und dann die Schaltfläche drücke, die dem Makro für Text einfügen zugewiesen ist, fügt Excel den Text nur in die erste der markierten Zellen ein.
Hier die Makros (einmal für Text und einmal für grün markieren):
Sub JB()
'
' JB Makro
' Makro am 16.02.2016 von Buero aufgezeichnet
'
' Tastenkombination: Strg+j
'
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = "JB"
End Sub
Sub grün()
'
' grün Makro
' Makro am 16.02.2016 von Buero aufgezeichnet
'
'
With Selection.Interior
.ColorIndex = 43
.Pattern = xlSolid
End With
End Sub
|