Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Per Klick Zeilen bzw. Text einfärben

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

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:42:37
Hajo_Zi
Hallo Werner,
per bedingter Formatierung bekommst Du das bestimmt nicht hin.
Schau mal auf diese Seite
http://hajo-excel.de/inhalt_vba_markieren.htm

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

Forumthreads zu verwandten Themen

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:33:59
Thread-ID: 1000866
3 Beiträge
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
Textformatierung in einer Formel
Dieterlem

Hallo Excelfreunde,
ich möchte ein Wort fett innerhalb eines Formelergebnisses fett darstellen. Beispiel:
"WENN(A1="Ja";"Beispieltext soll Fett dargestellt werden";"")
Dabei soll nur das Wort 'Fett', fett formatiert werden.
Ist so etwas möglich?
Gruß
Dieterlem
27.10.2008 19:55:00
Thread-ID: 1019731
3 Beiträge
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
Anzeige
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
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
Text in Zelle abfragen und formatieren
Bernd

Hallo Zusammen,
folgendes Problem: In einer Tabelle mit mehreren Spalten beinhaltet eine Spalte einen Text. Wie kann ich aus dieser Spalte eine bestimmte Zeichenfolge auslesen/erkennen und die betreffende Zelle dann farblich formatieren? Zum Beispiel beinhaltet eine Zelle den Text ABCDEF. W...
19.02.2009 15:19:00
Thread-ID: 1052173
5 Beiträge
Anzeige
Text aus mehreren Zellen in eine Zelle schreiben.
Wolle

Hallo Forum,
möchte Texte aus mehreren Zellen in eine Zelle schreiben. Diese "Gesamtzelle" muss ich mit Strg+V nach Word kopieren können.
Ich denke mit Formeln ist da nichts zu machen, sondern mit VBA?
Könnt Ihr helfen.
Danke und Gruß
Wolle
https://www.herber.de/bbs/user...
31.03.2009 08:34:39
Thread-ID: 1065488
4 Beiträge
Textbox inhalt nicht überschreiben
Rainer

Hallo,
ich komme da bei einer Sache nicht weiter und finde seltsamerweise auch nichts im Netz.
Die Frage ist ganz einfach:
Ich möchte per CommandButtons Texte in eine Textbox einfügen. Also zB per CommandButton1 den Text "A1;", per CommandButton2 den Text "A2;" usw. Jetzt soll aber...
15.06.2009 13:58:48
Thread-ID: 1081573
3 Beiträge
Texte in Textfeldet per Makro umformatieren
Michael

Guten Tag,
ich bekomme von vielen diversen Personen Kommentare in Form von Textfeldern (ca. 90 pro Monat) zugesandt, die ich dann in mein Layout umformatieren muss (Bitten an die Sender mein benötigtes Format zu nehmen, finden leider selten Gehör:-(().
Jetzt habe ich mir die Frage geste...
02.07.2009 12:41:55
Thread-ID: 1085928
3 Beiträge
Formel interpretiert Feldwerte als Text
pietsch.st@gmx.de

Hallo Forum,
habe Werte in vier Zellen. Die Werte stammen jeweils aus folgender selbstgeschriebener Funktion mit Rückgabewert Long:
= Anz_Unf($B$2, "Arbeitsunfall", "3","e").
Die Werte dieser Formel sind im Feld als Zahl dargestellt und sind korrekt. Als Zahl gemäß Excel "Format-Zel...
08.07.2009 22:59:54
Thread-ID: 1087292
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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