Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1040to1044
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
1040to1044
1040to1044
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Zellen in roter Schrift

Alle Zellen in roter Schrift
15.01.2009 13:37:55
Klaus
Hallo zusammen
Ich möchte in einer Tabelle, sobald in Spalte A ein "P" eingetragen wird (Egal in welcher Zelle in Spalte A), in Spalte J der entsprechenden Zeile die Zahl "20" eingetragen wird. die Schrift sollte dann in der ganzen Zeile rot sein.
Es sollte irgendwie mit
Private Sub Worksheet_Change(ByVal Target As Range)
gehen, aber wie?

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Zellen in roter Schrift
15.01.2009 13:42:25
Hajo_Zi
Hallo Klaus,
das geht auch ohne VBA mit WENN() in Zelle J.. und bedingte Formatierung.

AW: Alle Zellen in roter Schrift
15.01.2009 14:22:00
Klaus
Hallo Hajo
Leider müsste ich, falls in Zelle A kein "P" steht, die Formel in J überschreiben und das will ich nicht
AW: Alle Zellen in roter Schrift
15.01.2009 14:31:30
RS
Hi Klaus,
Deine Aussage verstehe ich nicht.
Diese bedingte Formatierung in A2

Formel ist =UND($A2="P";$J2=20) Schrift rot


dannach A2 kopieren und über Inhalte einfügen - Formate bis J2
Zeile 2 markieren und über Inhalte einfügen - Formate nach unten
Grüsse RS

Anzeige
AW: Alle Zellen in roter Schrift
15.01.2009 13:53:50
Tino
Hallo,
mit VBA geht es hiermit?
kommt als Code ins entsprechende Tabellenplatt 
Option Explicit 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
Dim A As Long 
With Application 
 .ScreenUpdating = False 
 .EnableEvents = False 
     
    For A = 1 To Target.Count 
     If Target(A).Column = 1 Then 
       
      If Target(A) = "P" Then 
       Cells(Target(A).Row, 10) = 20 'Wert für Bedingung erfüllt 
       Target(A).EntireRow.Interior.ColorIndex = 3 
      Else 
       Cells(Target(A).Row, 10) = "" 'Wert für Bedingung nicht erfüllt 
       Target(A).EntireRow.Interior.ColorIndex = xlColorIndexNone 
      End If 
      
     End If 
    Next A 
  
 .ScreenUpdating = True 
 .EnableEvents = True 
End With 
End Sub


Gruß Tino

Anzeige
AW: Alle Zellen in roter Schrift
15.01.2009 14:12:00
Klaus
Hallo Tino
Das funktioniert bei mir gar nicht, es passsiert nichts....
AW: Alle Zellen in roter Schrift
15.01.2009 14:30:18
Tino
Hallo,
wo hast Du den Code eingefügt?
Gruß Tino
AW: Alle Zellen in roter Schrift
15.01.2009 14:34:00
Klaus
Hallo Tino
Funtioniert doch, ich hatte das Modul in einer falschen Tabelle eingefügt.
Danke für die Hilfe
auch so wie gewollt? oT.
15.01.2009 14:36:00
Tino
AW: auch so wie gewollt? oT.
15.01.2009 14:42:18
Klaus
ja, wunderbar, nochmals vielen Dank

300 Forumthreads zu ähnlichen 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
Anzeige
An Zellengröße anpassen in Verbundenen Zellen
Kai

Hallo
Ich habe folgendes Problem.
Ich habe die Zellen D12-G23 verbunden.
Darin soll ein längerer Text stehen, welcher mit sverweis geholt wird.
Wenn ich die Zelle mit Zeilenumbruch formatiere, dann ist der Text zu lang (unten fehlt was).
Wenn ich den Text mit "An Zellengröße...
18.08.2008 17:09:00
Thread-ID: 1002694
3 Beiträge
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Anzeige
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Schriftgröße in Textbox anpassen
Kai

Hallo
Ich habe eine Textbox, die mit einer Zelle verlinkt ist, so da die Box den Text aus der Zelle anzeigt.
Die Box ist mit Zeilenumbruch eingerichtet.
Wenn der Text zu lang ist, dann wird der Rest abgeschnitten.
Gibt es eine Möglichkeit, die Box so einzurichten, das sich die S...
24.08.2008 14:25:00
Thread-ID: 1004257
5 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Text verbinden und den Inhalt der Zelle ausgeben
Jörg

Hallo,
ich benötige etwas Hilfe, vermutlich für euch kein Problem:
in Zelle A1 möchte ich den Spaltenbuchstaben eintragen
in Zelle A2 möchte ich eine Zeilennummer eintragen
in Zelle A3 fehlt mir nun die Formel, mit der ich A1undA2 verbinden kann UND dann den Inhalt der Zelle aus...
19.09.2008 11:42:31
Thread-ID: 1010969
6 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
2
4
2
5
3
3
4
9
3
5
1
10
2
1
6
4
1
4
6
1
5
11
5
4
22