PDA

Vollständige Version anzeigen : Zelle anklicken und Farbe in anderen Zellen ändern


Der_Thomas
29.09.2016, 13:38
Schönen guten Tag,

ich bräuchte mal wieder eure Hilfe.

Der Plan ist, eine beliebige Zelle in den Spalten A:I anzuklicken um dann die Zellen A:I in dieser Reihe einzufärben.

Diesen Code habe ich, damit wird die ganze Zeile eingefärbt, ich bekomme ihn aber nicht so "umgebaut" dass nur die Zellen A:I eingefärbt werden.

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Dim</span> Merk, Farbe
&nbsp;
<span class="TOKEN">Private Sub</span> Worksheet_SelectionChange(<span class="TOKEN">ByVal</span> Target <span class="TOKEN">As</span> Excel.Range)
<span class="TOKEN">If</span> Merk &lt;&gt; &quot;&quot; <span class="TOKEN">Then</span> Rows(Merk).Interior.ColorIndex = Farbe
Merk = Target.Row
Farbe = Target.Interior.ColorIndex
&nbsp;
Rows(Target.Row).Interior.ColorIndex = 6
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span></pre></div>
Code eingefügt mit dem MOF Code Converter (http://www.ms-office-forum.net/forum/codeconverter.php)

Könnt ihr mir helfen?

Jetzt schon mal danke und

Grüße
Thomas

mathieu_91
29.09.2016, 14:31
Hi,

range(cells(Target.row,1).address & ":" & cells(target.row, 9).address).Interior.ColorIndex = 6

Und arbeite mit Me.

Also


Dim Merk, Farbe

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
With Me
If Merk <> "" Then .Range(.cells(Merk ,1).address & ":" & .cells(Merk , 9).address).Interior.ColorIndex = Farbe
Merk = Target.Row
Farbe = Target.Interior.ColorIndex

.range(.cells(Target.row,1).address & ":" & .cells(target.row, 9).address).Interior.ColorIndex = 6
End With
End Sub

Muller2
29.09.2016, 14:31
Hallo,

probier's mal hiermit:
<pre style='background-color:#FFFFFF;border:thin solid #FF8080; padding:12px 24px; margin-left:12px; color:#000000'><span style='color:#0000EE'>Option</span> <span style='color:#0000EE'>Explicit</span> <span style='color:#0000EE'>Private</span> <span style='color:#0000EE'>Sub</span> Worksheet_SelectionChange(<span style='color:#0000EE'>ByVal</span> Target <span style='color:#0000EE'>As</span> Excel.Range) <span style='color:#0000EE'>Static</span> Merk <span style='color:#0000EE'>As</span> <span style='color:#0000EE'>Long</span>, Farbe <span style='color:#0000EE'>As</span> <span style='color:#0000EE'>Long</span> <span style='color:#0000EE'>If</span> <span style='color:#0000EE'>Not</span> Intersect(Target, Range(Columns(<span style='color:#DDAA00'>1</span>), Columns(<span style='color:#DDAA00'>9</span>))) <span style='color:#0000EE'>Is</span> <span style='color:#0000EE'>Nothing</span> <span style='color:#0000EE'>Then</span> <span style='color:#0000EE'>If</span> Merk &lt;&gt; <span style='color:#DDAA00'>0</span> <span style='color:#0000EE'>Then</span> <span style='color:#0000EE'>With</span> Cells(Merk, <span style='color:#DDAA00'>1</span>).Resize(<span style='color:#DDAA00'>1</span>, <span style='color:#DDAA00'>9</span>).Interior <span style='color:#0000EE'>If</span> Farbe = vbWhite <span style='color:#0000EE'>Then</span> .Pattern = xlNone <span style='color:#0000EE'>Else</span> .Color = Farbe <span style='color:#0000EE'>End</span> <span style='color:#0000EE'>If</span> <span style='color:#0000EE'>End</span> <span style='color:#0000EE'>With</span> <span style='color:#0000EE'>End</span> <span style='color:#0000EE'>If</span> <span style='color:#0000EE'>With</span> Target Merk = .Row Farbe = .Interior.Color Cells(.Row, <span style='color:#DDAA00'>1</span>).Resize(<span style='color:#DDAA00'>1</span>, <span style='color:#DDAA00'>9</span>).Interior.Color = vbYellow <span style='color:#0000EE'>End</span> <span style='color:#0000EE'>With</span> <span style='color:#0000EE'>End</span> <span style='color:#0000EE'>If</span> <span style='color:#0000EE'>End</span> <span style='color:#0000EE'>Sub</span><br><br><hr style='color: #FF8080; background-color: #3300B2; height: 1.5px;' /><br><br><p style='font-size: 8px; font-family: Verdana; text-align: right;'><a href='http://www.rholtz-office.de/index.php?index=vbahtml' target='_blank'>VBA/HTML - CodeConverter f&uuml;r Office-Foren</a><br>AddIn f&uuml;r Excel/Word 2000-2010 - komplett in VBA geschrieben von <a href='http://www.office-loesung.de/viewprofile19265.php'>Lukas Mosimann</a><br />Projektbetreuung durch mumpel</p><br /><br />Code erstellt und getestet in Office 14</pre>
Gruß, Muller2

Der_Thomas
29.09.2016, 15:06
Hallo,

beide Codes funktionieren einwandfrei.

Vielen Dank für die schnelle Hilfe

Grüße
Thomas