VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Rich	Datum: 01.06.2016 17:28:04	Views: 1187	Rating:	Antwort:
Thema: Zellenmakierung
Hallo, ich habe eine Excel-Tabelle bei der ich wenn ich eine Zelle im Bereich a4:ba100 möchte das die erste Zelle in der Zeile färbt. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Range Dim bereich As Range Set bereich = Range("a1:a100") For Each i In bereich If i.Interior.ColorIndex <> 15 Then i.Interior.ColorIndex = xlColorIndexNone End If Next i If Cells(Selection.Row, 1).Interior.ColorIndex <> 10 Then Cells(Selection.Row, 1).Interior.ColorIndex = 17 End If End Sub Das gleiche bräuchte ich jetzt aber auch noch für die Zellen in der 4. Reihe... kann mir wer weiterhelfen ?

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen