VBA Hintergrundfarbe ändern wenn bestimmte Zelle ausgewählt :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] VBA Hintergrundfarbe ändern wenn bestimmte Zelle ausgewählt

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

Posaune
Besserwisser

Anmeldedatum: 06.09.2007
Beiträge: 66

Verfasst am: 01.07.2008, 20:09

Hallo Excel Profis
ich habe mal wieder ein Problem. Very Happy

In einer Tabelle möchte ich die Hintergrundfarbe ändern, wenn andere Zellen ausgewählt werden um etwas einzugeben.
Also in der Beispieltabelle steht in der Zelle A6 ein Name.
Wenn jetzt eine der Zellen zwischen C5:AH5 ausgewählt um etwas einzugeben, möchte ich das die Zelle A6 eine andere Hintergrundfarbe bekommt (z.B. Hellgrün). Aber nur solange einer der Zellen C5:AH5 angesteuert wird.
Genauso dann mit der Zelle A8 (Name) und den Zellen C7:AH7.
Geht das mit einem Makro über den Code?
Vielen Dank für eure Mühe
Gruß Posaune

Test.xls

Beschreibung:

Download

Dateiname:

Test.xls

Dateigröße:

55 KB

Heruntergeladen:

32 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 01.07.2008, 20:36

Hallo!

Magst du das nicht lieber über Kommentare steuern?
Die Farbänderung (und vor allen Dingen wieder ZURÜCK) ist wesentlich aufwändiger.

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen!

Posaune
Besserwisser

Anmeldedatum: 06.09.2007
Beiträge: 66

Verfasst am: 01.07.2008, 20:40

Hallo Schatzi
kann ich mir momentan nicht vorstellen wie das aussieht, aber klar. Es geht nur darum besser zu sehen in welcher Reihe zum Namen man sich befindet.
Gruß Posaune

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 450
Wohnort: Fridingen an der Donau

Verfasst am: 01.07.2008, 22:39

Hallo,

also so wie ich das sehe willst du die einfärbung der Übersicht wegen?
dann könntest du z.B. auch sowas nehmen Tabellenblatt Rechtsklick-> Code anzeigen und da einfügen.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Rows(Target.Row).Select
Target.Activate
Application.EnableEvents = True
End Sub

Gruß

Posaune
Besserwisser

Anmeldedatum: 06.09.2007
Beiträge: 66

Verfasst am: 02.07.2008, 09:25

Hallo Gook
im Prinzip ist das so wie ich mir das vorstelle, allerdings soll nur die jeweilige Zelle A6 oder A8 oder A10...... so gekennzeichnet werden.
Der Sinn ist nur übersichtlichkeit.
Wenn in der Zelle A6...... ein Vereinskollegenname steht und nun in den Zellen AH5 eine Eingabe gemacht wird ist die Übersichtlichkeit schlecht, da man nicht in der selben Zeile ist wir der Name steht.
Danke für die Vorschläge
Gruß Posaune

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 450
Wohnort: Fridingen an der Donau

Verfasst am: 02.07.2008, 10:26

Dann probier mal so ein Code

Code:

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 <> 15 Then
Cells(Selection.Row, 1).Interior.ColorIndex = 5
End If
End Sub

Musst aber den Blattschutz rausnehmen...

Gruß

Posaune
Besserwisser

Anmeldedatum: 06.09.2007
Beiträge: 66

Verfasst am: 02.07.2008, 15:04

Hallo Gook
schon fast Perfekt.
Nur soll die Zelle A6 sich Blau färben wenn ich in der Zeile C5:AH5 aktiv bin, da die Zellen C6:AH6 gesperrt sind weil Formeln darin enthalten sind. Wenn das jetzt auch noch geht wäre es super Perfekt.
Danke
gruß Posaune

Posaune
Besserwisser

Anmeldedatum: 06.09.2007
Beiträge: 66

Verfasst am: 02.07.2008, 17:21

Hallo Gook und freunde
habe die Lösung
Hinter "Rows" ein "*1" einfügen und jetzt stimmts
Danke
für euer Support

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Zeile suchen, wenn gefunden zwei Dati...	cyRus-tC	Microsoft Excel Hilfe	0	22.11.2008, 16:11
	Zählen wenn mit oder funktion	ASchmelzer	Microsoft Excel Hilfe	5	20.11.2008, 11:46
	Bitte um Hilfe mit wenn dann Formel.	NeXi	Microsoft Excel Hilfe	2	19.11.2008, 15:55
	Kann man seinen Usernamen ändern ?	saschathede	Lob, Kritik und Verbesserungsvorschläge	0	18.11.2008, 13:55
	komplette Zeile ausblenden, wenn Tabe...	enzo	Microsoft Excel Hilfe	21	18.11.2008, 12:17

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de