Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 14:03:38
Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1588to1592
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
1588to1592
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

vba per Klick Zeile in Bereich färben

vba per Klick Zeile in Bereich färben
06.11.2017 22:47:35
bassi
Hallo Zusammen,
ich bräuchte Eure Hilfe.
Ich möchte in einem Bereich eine Zelle anklicken und es soll die gesamte Spalte des Bereichs eingefärbt werden.
Ich habe mir folgenden Code aus den weiten des Inet gezogen und soweit zurecht gestrickt das es schon fast richtig funktioniert...
Allerdings möchte ich, dass nur bei Klick in dem Bereich A8 bis S1000 und auch nur genau in diesem Bereich sich etwas ändern soll. 

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'bereich der "normalisiert" wird
With Range("A8:S1000")
.Interior.ColorIndex = xlAutomatic
End With
'bereich der farblich angezeigt wird
With Target
Range(Cells(.Row, 1), Cells(.Row, 19)).Interior.ColorIndex = 6
End With
End Sub

Könnte hier vielleicht mal einer drüber schauen?
Viele Grüße
bassi

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

Betreff
Datum
Anwender
Anzeige
AW: vba per Klick Zeile in Bereich färben
06.11.2017 23:18:52
Ralf
...dann solltest Du auch diesen Bereich nehmen....:)
also, die Spalte, in der sich der Cursor befindet? Von Zeile 8 bis 1000?

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range, isec As Range
Set rng = Range("A8:S1000")
Set isec = Intersect(Target, rng)
If Not isec Is Nothing Then
rng.Interior.ColorIndex = xlAutomatic
Range(Cells(8, Target.Column), Cells(1000, Target.Column)).Interior.ColorIndex = 6
Set isec = Nothing
End If
Set rng = Nothing
End Sub

AW: vba per Klick Zeile in Bereich färben
06.11.2017 23:32:20
bassi
Guten Abend Ralf,
vielen Dank für die schnelle Antwort.
Im Grunde funktioniert das genau richtig.
Nur eben verkehrt herum.
Es werden jetzt die Spalten (ist vertikal - also die Buchstaben die Spalte?) statt wie gewünscht die Zeilen (also horizontal - die Zahlen) eingefärbt.
Hab auch mal versucht das umzudrehen - aber da bin ich wohl zu doof für - geht natürlich nicht :-(
Würdest Du nochmal Hand anlegen?
Viele Grüße
bassi
Anzeige
AW: vba per Klick Zeile in Bereich färben
06.11.2017 23:47:22
Ralf
...Zeilen narkieren, statt spalten....
dann statt dem: 
Range(Cells(8, Target.Column), Cells(1000, Target.Column)).Interior.ColorIndex = 6
so rum: 
Range(Cells(target.row, 1), Cells(target.row, "S")).Interior.ColorIndex = 6

AW: vba per Klick Zeile in Bereich färben
06.11.2017 23:56:02
bassi
also manchmal steige ich einfach nicht dahinter... *ankopfklatsch*
letztes "Problem" mit der Färbung funktioniert nun auf einmal von selbst.
Die Farbe die dort stand kommt auch wieder zurück...
Also alles gut.
Das Einfärben der Zeilen klappt nun auch tadellos.
Vielen herzlichen Dank.
Ich wünsche eine angenehme Nachtruhe :-)
Viele Grüße
bassi
Anzeige
AW: vba per Klick Zeile in Bereich färben
06.11.2017 23:51:14
bassi
Ei verflixt ich sehe gerade noch ein Problem.
Das zurück stellen der Farbe - ginge das, dass der Code erkennt welche Farbe da vorher war und diese auch wieder einstellt?
Oder vielleicht einfacher - wenn in Spalte S ein Text steht - dann soll die Textfarbe der ganzen Zeile Grau sein.
Ist das vielleicht machbar?
Viele Grüße
bassi
AW: vba per Klick Zeile in Bereich färben
07.11.2017 00:02:09
Ralf
...isses... aber das war dann das letzte Mal für heute....;)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range, isec As Range
Set rng = Range("A8:S1000")
Set isec = Intersect(Target, rng)
If Not isec Is Nothing Then
rng.Interior.ColorIndex = xlNone
rng.Font.Color = RGB(0, 0, 0)
'    Range(Cells(8, Target.Column), Cells(1000, Target.Column)).Interior.ColorIndex = 6
With Range(Cells(Target.Row, 1), Cells(Target.Row, "S"))
.Interior.ColorIndex = 6
If Cells(Target.Row, "s")  "" Then .Font.Color = RGB(150, 150, 150)
End With
Set isec = Nothing
End If
Set rng = Nothing
End Sub

Anzeige
Perfekt - Vielen vielen Dank :-)
07.11.2017 00:15:52
bassi
ich danke vielmals für die Hilfe zu so später Stunde :-)
gut Nacht
bassi

303 Forumthreads zu ähnlichen Themen

Letzte beschriebene Zeile suchen
Thomas3

Guten Morgen zusammen,
ich muß aus über 1000 Listen Daten auslesen. Das ist kein Problem.
Jede Liste sollte so beschrieben werden, dass ab Zeile 13 bis je nach Eintragungen x-Zeile Spalte O gefüllt ist.
In der Spalte 1 ist in der Datenliste eine Formel hinterlegt, die sichtbar aut...
19.08.2008 08:29:00
Thread-ID: 1002780
10 Beiträge
Anzeige
Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:17:00
Thread-ID: 1017692
4 Beiträge
Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:28:24
Thread-ID: 1017698
2 Beiträge
Anzeige
VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
letzte benutzte Zeile eines Namens-Bereichs
Klaus

Hallo Forum,
wie bringe ich die letzte benutzte Zeile eines benannten Bereichs in eine Variable?
Beispiel:
Bereichsname = Testfeld
Name Testfeld besteht aus Text, Formeln und Datümern
Formeln dürfen NICHT gefunden werden
Mit
LAST = Cells.Find(What:="*", After:=[A1],...
23.11.2008 19:43:00
Thread-ID: 1027146
11 Beiträge
Letzte Zeile mit bestimmten Wert finden
Harald

Hallo und schönen Abend
Ich suche in einer Spalte die Zeile mit dem letzten Vorkommen eines bestimmten Wertes. Im Netz habe ich folgenden Code gefunden.
Sub suchen() Set Ws1 = Sheets("Dummy") Call Find_Last("9999999999.999") End Sub
Sub Find_Last(FindString As String) Dim Rng A...
07.12.2008 19:37:02
Thread-ID: 1030899
3 Beiträge
Letzte Leere Zelle in Spalte C
Wacker

Ich habe eine Spalte "C" in der Zahlen fortlaufend erfasst werden.
Bin bereits hier bei Zelle C4500.
Ich müsste jetzt Wissen wie kann ich die Letzte Zelle in der Spalte "C" finden, in der noch keine Zahl Eingetragen ist.
Und dann benötige ich noch für diverse Berechnungen, die Forme...
07.12.2008 22:23:00
Thread-ID: 1030940
9 Beiträge
VBA letzte Zeile Ermitteln
Gerhard

Hallo!
Habe ein kleines Problem. Lasse über VBA die letztz Zeile ermitteln.
intPosAktionNummerEnde = Range("K65536").End(xlUp).Offset(0, 0).Row
Das funktioniert immer nur jetzt habe ich in den Zellen eine Formel stehen, die soll aber nicht gezählt werden nur wenn eine Zahl drinnen s...
14.01.2009 17:52:00
Thread-ID: 1039758
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
9
2
3
1
4
2
10
2
8
4
7
7
4
2
1
6
5
6
4
5
8
3
4
6
2