Makro anpassen bei einfügen von Zellen
04.12.2007 19:55:45
Zellen
ich hab da ein kleines, für euch sicher lösbares, Problem.
Habe ein kleines Makro, dass automatisch Zellen farbig markiert und OptionButtons auswählt.
Allerdings ist es auf bestimmte Zeilen fixiert.
Jetzt möchte ich, dass die gleichen Zellen markiert werden auch wenn ich mehrere Zeilen davor einfüge oder löschen sollte.
Was muss ich ändern, dass ich beim Einfügen einer Zeile nicht die falsche Zelle markiere?
Ich hoffe ihr könnt mir helfen - vielen Dank im voraus
Gruß Marcel
Private Sub OptionButton1_Change()
If Range("D26").Value = True Then
Range("A33:G33").Select
With Selection.Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
Range("D33").Value = True
Else
Range("A33,B33,D33,F33,G33").Select
With Selection.Interior
.ColorIndex = 0
.Pattern = xlSolid
End With
Range("C33, E33").Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
Range("D33").Value = False
End If
End Sub
Anzeige