Zeile makieren

Forumthread: Zeile makieren

Zeile makieren

10.03.2009 12:58:45

Kurt

Guten Tag Zusammen,
ich habe mal in Google das gefunden:


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
With ActiveCell
Rows(Target.Row).Select
'    Rows(Target, 6).Select
.EntireRow.Interior.ColorIndex = 6
'       .EntireColumn.Interior.ColorIndex = 6
End With
End sub
ich möchte gern von der aktiven Zelle aus allerdings nach links 7 Spalten GELB
makiert haben, krieg das leider nicht hin.
Leider wird hier die ganze Zeile makiert.
mfg Kurt aus K

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeile makieren

10.03.2009 13:07:02

D.Saster
AW: Zeile makieren

10.03.2009 13:46:37

Kurt
AW: Zeile makieren

10.03.2009 13:56:33

Renee
Genau das Renee, danke !!! -)

10.03.2009 14:37:40

Kurt
Habe mal so...aber

10.03.2009 14:00:31

Kurt
AW: Habe mal so...aber

10.03.2009 14:18:31

D.Saster
Hallo Dierk DANKE

10.03.2009 14:39:14

Kurt

AW: Zeile makieren

10.03.2009 13:07:02

D.Saster

Hallo


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Column > 6 Then
Target.Offset(, -6).Resize(, 7).Interior.ColorIndex = 6
End If
End Sub

Aber irgendwann ist deine Tabelle komplett gelb.
Gruß
Dierk

AW: Zeile makieren

10.03.2009 13:46:37

Kurt

Hallo Dierk,
die Farbe rein, klappt und wie geht die Farbe wieder raus,
sonst habe ich ja überall gelbe Zeilen,
mfg Kurt aus K

AW: Zeile makieren

10.03.2009 13:56:33

Renee

Hi Kurt,
so:


Option Explicit
Public pLastAddress As String
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If pLastAddress  "" Then Range(pLastAddress).Interior.ColorIndex = xlColorIndexNone
If Target.Column > 6 Then
Target.Offset(, -6).Resize(, 7).Interior.ColorIndex = 6
pLastAddress = Target.Offset(, -6).Resize(, 7).Address
End If
End Sub

...und damit wären dann irgendwann alle Zelle ohne Farbe ;-))
GreetZ Renée

Genau das Renee, danke !!! -)

10.03.2009 14:37:40

Kurt

Habe mal so...aber

10.03.2009 14:00:31

Kurt

Hallo Dierk,
habe mal so eingesetzt:
Target.Offset(, -7).Resize(, 8).Select
mal ohne Farbe aber leider Fehlermeldung 1004.
Wenn ich aber das Tabellenblatt ansehe, wurde genau der gewünschte
Bereich makiert.
mfg Kurt aus K

AW: Habe mal so...aber

10.03.2009 14:18:31

D.Saster

Hallo,
dann musst du auch die Bedingung entsprechend ändern.


If Target.Column > 7 Then

Gruß
Dierk

Hallo Dierk DANKE

10.03.2009 14:39:14

Kurt

Hallo Dierk,
das von Renee geht auch die Farbe weg,
danke nochmals,
mfg Kurt aus K

Beliebteste Forumthreads (12 Monate)

Forumthread: Zeile makieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread