Supportnet / Forum / Tabellenkalkulation

Hallo Leute: Folgendes Problem: Ich muss in einer Tabelle x-Mail das Gleiche machen und zwar bestimmte Zeilen orange ausfüllen. Nathürlich habe ich ein Makro aufgezeichnet: Sub Makro1() ' ' Makro1 Makro ' Makro am 01.07.2008 von Hapimag / Havag AG aufgezeichnet ' ' Tastenkombination: Strg+x ' Range("B217:AL217").Select With Selection.Interior .ColorIndex = 44 .PatternColorIndex = xlAutomatic End With End Sub , das blöde ist aber, dass er dann immer die Zelle nimmt, in welcher das Mikro aufgezeichnet wurde. Der Ansatz wäre irgendwie: Die Aktivezelle, 10 Zellen nach rechts orange ausfüllen. Kann mir jemand helfen. Besten Dank

Hallo,

versuch es mal so:

Sub faerben()

Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.Row, ActiveCell.Column + 10)).Interior.ColorIndex = 44

End Sub

Gruß

M.O.

Funktioniert!!

Besten Dank

• Handbuch zur Einführung in die VBA Programmierung in EXCEL
• VBA Skript für Farbumstellung an Powerpointfolien
• mehre Excel Arbeitsblaetter in PowerPoint via VBA ansprechen