Makro kopieren
02.01.2018 00:02:45
Elias
ich habe folgendes Problem:
Ich führe eine Inventarliste über Equipment. Am Ende habe ich eine Spalte in der die An- bzw. Abwesenheit der Gegenstände sichtbar sein soll. Ist der Gegenstand anwesend soll die Zelle grün gefüllt sein, ist er abwesend rot. Diese An/Abwesenheit soll neben der Spalte mit zwei Buttons "An" und "Ab" eingetragen werden können. Soweit so gut. Allerdings möchte ich das für alle weiteren Zeilen unterhalb extra haben. Zeile 5 hat in Spalte F die An/Abwesenheit und in Spalte G die zwei Knöpfe, um eben jene An/Abwesenheit anzuzeigen. Das hätte ich aber auch gerne für zum Beispiel Zeile 20.
Gibt es also eine Möglichkeit diese zwei Makros nach unten zu kopieren, so wie es auch mit Auto-Ausfüllen für Formeln funktioniert, ohne 100x die Buttons einzeln zu kopieren und einzufügen und jedes Mal den Code für die jeweilige Zelle ändern zu müssen?
Bin für Hilfe sehr dankbar.
Liebe Grüße
Elias
Sub Anwesend()
' Anwesend Makro
Range("F5").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 13561798
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
Sub Abwesend()
' Abwesend Makro
Range("F5").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
