Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1196to1200
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
1196to1200
1196to1200
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Per Klick Zeilen bzw. Text einfärben

Per Klick Zeilen bzw. Text einfärben
werner
Guten Morgen Forum,
Ich benötige einmal mehr eure Hilfe.
Habe bereits im Forum gesucht, jedoch nicht das gefunden was ich suche. Vielleicht auch übersehen.
Durch Anklicken eines beliebigen Felds in Spalte A soll der Inhalt der entsprechenden Zeile (Text sowie Ziffern) der Felder A bis K eine andere Farbe erhalten, und kursiv dargestellt werden.
Wie muss die bedingte Formatierung aussehen?
Das soll ja auch mit Buttons möglich sein. Aber davon habe ich überhaupt keine Ahnung :-(. Die oben genannte Möglichkeit würde mir schon ausreichen.
Danke für eure Hilfe
Werner

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Per Klick Zeilen bzw. Text einfärben
29.01.2011 09:43:34
Josef

Hallo Werner,
das geht aber nur per Code.
Rechtsklick auf das Blattregister > Code Anzeigen > in das rechte Fenster folgenden Code kopieren.

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Range("A:K")
    .Font.Italic = False
    .Font.ColorIndex = xlAutomatic
  End With
  With Target
    If .Column = 1 And .Row > 1 Then
      Range(Cells(.Row, 1), Cells(.Row, 11)).Font.Italic = True
      Range(Cells(.Row, 1), Cells(.Row, 11)).Font.ColorIndex = 3
    End If
  End With
End Sub

Gruß Sepp

Anzeige
AW: Per Klick Zeilen bzw. Text einfärben
30.01.2011 12:36:01
werner
Hallo Sepp,
Das klappt prima :-).
Sobald jedoch ein anderes Feld in der Spalte A angeglickt wird, bekommt die Inhalte der vorhergehende Zeile wieder ihre "alte" Farbe, und die "neue" Zeile wird eingefärbt.
Gibt es eine Möglichkeit, das die Einfärbung bleibt, es sei denn, dass das selbe Feld ein zweites Mal angeglickt wird um die alte Einfärbung wieder herzustellen?
Wenn es diese Möglichkeit gibt, würdest Du mir bitte ein Beispiel zukommen lassen?
Danke und Gruß
Werner
AW: Per Klick Zeilen bzw. Text einfärben
29.01.2011 10:09:10
Tino
Hallo,
meinst Du so?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A:K").FormatConditions.Delete
If Not Intersect(Columns(1), Target) Is Nothing Then
    With Intersect(Columns(1), Target).Resize(, 11)
        .FormatConditions.Add Type:=xlExpression, Formula1:="=ANZAHL2(" & .Address & ")>0"
        With .FormatConditions(1).Font
            .ColorIndex = 3
            .Italic = True
        End With
    End With
End If
End Sub
Gruß Tino
Anzeige
AW: Per Klick Zeilen bzw. Text einfärben
29.01.2011 12:48:51
werner
Danke für Eure Tipps -:)
werde sie nach Feierabend gleich ausprobieren.
Wünsche euch ein angenehmes Wochenende
Werner

300 Forumthreads zu ähnlichen Themen

Mit formel Anfang und ende bestimmen
Stephan

Hallo zusammen,
Wie kan ich mit einer formel den anfang und das ende Festlegen?
Ich habe eine Tabelle mit dem Datum vom 1.8.08-31.8.08, und möchte nur eine woche anzeigen, das heisst in einer zelle "A1" das anfangdatum (4.8.2008) in der "A2" das enddatum (10.8.2008) und "A3" die berec...
09.08.2008 09:19:13
Thread-ID: 1000462
14 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Automatisch Zeilen einfügen und Text reinschreiben
oblivion

Hallo,
hab folgendes Problem.
Ich habe ein Tabelle mit 4 Spalten. Wegen dem automatischen Zeilenumbruch habe ich keine vebundenen Zeilen.
In Excel ist die Zeilenhöhe ja auf 409 begrenzt. Ich habe aber teilweise Text der größere Spalten bräuchte.
Wenn ich die Spalte größer mach...
02.09.2008 20:54:00
Thread-ID: 1006942
5 Beiträge
Anzeige
TextBox Hintergrundfarbe
Rosenwasser

Hallo Experts,
Ich habe ein Formular (mit den Name 'Kassa') wo 33 Text Boxes ausgewählt werden können. ( tb1, tb2.... tb33 )
Wie kann ich erreichen dass nur den aktive Textbox einen gelbe Hintergrund hat.
Vielen dank & Gruess,
08.11.2008 19:07:18
Thread-ID: 1022979
5 Beiträge
Textbox Werte in Zellen schreiben
pritt

Hallo zusammen, ich komme nicht so richtig klar: Ich habe eine Userform mit 4 Textboxen, die zu Laufzeit vom User mit Werten gefüllt werden. Wenn alle 4 Textboxen gefüllt sind, sollen diese Werte in 4 verschiedene Zellen eines Tabellenblatts geschrieben werden. Folgenden Code habe ich bisher er...
13.11.2008 12:59:19
Thread-ID: 1024171
7 Beiträge
Userform Textboxen Text in Tabelle schreiben
Erich

Hallo Excelprofis,
habe ein Problem und hoffe ich könnt mir weiterhelfen.
ich habe eine Userform mit 100 Textboxen
1. ich will den inhalt der Textboxen 1 - 50 in die Tabelle Gültigkeit Spalte A 1 bis A50 eintragen den inhalt der Textboxen 51 - 100 in die Spalte B 1 bis B50
2...
18.11.2008 19:16:31
Thread-ID: 1025756
6 Beiträge
Textboxhintergrundfarbe ändern wenn aktiv
Jochen

Hallo Forum
Ich habe in einer UserForm fünf Textboxen in die nach einander Werte eingetragen werden.
Die Hintergrundfarbe der Textboxen ist weiss.
Möchte jetzt erreichen wenn die einzelnen Texboxen aktiv werden das sich die Hintergrundfarbe
ändert.
ZB. so: Textbox1 ist aktiv...
29.11.2008 18:50:15
Thread-ID: 1028885
15 Beiträge
Text in einer Spalte formatieren
Martin

Hallo
in einer Zelle habe ich sehr viel Text hineingeschrieben. Möchte für den Ausdruck die Spalte aber nur ca. 5 cm breit formatieren. Der Text soll dann automatisch Linie für Linie untereinander zu stehen kommen. Keine Ahnung wie das möglich ist. Wenn ich die Spalte schmaler formatiere bl...
04.01.2009 10:57:00
Thread-ID: 1036687
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
13
2
4
4
2
4
6
5
14
4
4
3
2
2
2
3
1
3
9
8
1
1
10
9
3