habe ein makro, das mir die aktive zelle bzw. zellen verändert wenn ich den dazugehörigen button klicke. nun möchte ich aber, dass das makro gleichzeitig die nachbarten 10 Zellen in gleicher Zeile mit löscht. wie kann so ein code aussehen?
Könnt ihr weiterhelfen?
mein makro sieht derzeit so aus:
Sub SU()
Dim rngIntersect As Range
Set rngIntersect = Application.Intersect(Range("E5:E35"), ActiveWindow.Selection)
If rngIntersect Is Nothing Then
MsgBox "Ungültiger Bereich", vbCritical
Else
Selection.Interior.ColorIndex = 6
Selection.Font.Bold = True
Selection.FormulaR1C1 = "SU"
Selection.Font.ColorIndex = 1
End If
End Sub