Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Benjo_pont vom 01.07.2020, 12:12 Options

VBA

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

Antwort schreiben

Antwort 1 von M.O. vom 01.07.2020, 13:28 Options

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.

Antwort 2 von benjo_pont vom 03.07.2020, 16:27 Options

Funktioniert!!

Besten Dank

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken