Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1056to1060
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1056to1060
1056to1060
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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

Anzeige
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige