Live-Forum - Die aktuellen Beiträge
Datum
Titel
21.05.2025 21:52:44
Doppelte Wert suchen und zählen
21.05.2025 13:33:29
Automatisch ein Kontrollkästchen aktivieren lassen
21.05.2025 11:45:40
aus Zellen-Name Hyperlink erstellen
21.05.2025 09:46:36
letzten 2 Werte aus einer Spalte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
996to1000
996to1000
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bedingte formatierung per VBA

Forumthread: bedingte formatierung per VBA

bedingte formatierung per VBA
07.08.2008 14:50:06
Tom
Hallo,
ich probiere mich schon eine ganze Weile an einer bedingten Formatierung.
Ich hab es mittels der in Excel eingebauten "Bedingten Formatierung" probiert, aber leider nichts gefunden.
Ich kann zwar die Zellenfarbe und Schriftart ändern, daas war ich aber nicht kann ist die Textausrichtung.
Ich würde gern alle Zellen in Spalte D soweit formatieren, dass bei Änderung der Zelle der Wert
Hauptprojekt
soll: Fett, Arial 10 (ist ja meist sowieso so), LINKSBÜNDIG, Hintergrund in .ColorIndex = 40
Teilprojekt
soll: normal, Arial 10 (ist ja meist sowieso so), RECHTSBÜNDIG, Hintergrund in .ColorIndex = 36
Ich peils einfach nicht.
Danke schonmal!
Der Tom

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Bedingte Formatierung
Tags
#formatierung #textausrichtung #vba
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: bedingte formatierung per VBA
07.08.2008 15:04:00
Daniel
Hi
die Bedingte Formatierung kann auch noch keine Ausrichtung beieinflussen, spätere Excelvarianten vielleicht, aber 2002 und wahrscheinlich auch 2003 nicht.
aber du kannst ja Haupt- und Teilprojekte mit dem Autofilter filtern (Benutzerdefiniert; Beginnt mit "H") und dann die Formate von Hand einstellen.
so schnell wird sich ein Teilprojekt nicht in ein Hauptprojekt umwandeln, als das hier ein Schnelles reagieren mit der Bedingten Formatierung erforderlich wäre.
btw ich würde trotzdem die Teil- und Hauptprojekt-benennungen in unterschiedliche Spalten aufteilen.
Gruß, Daniel

Anzeige
AW: bedingte formatierung per VBA
07.08.2008 15:12:00
Tom
Aber mittels VBA kann ich doch einer Zelle die Formatierung - und auch links rechts zuweisen?!
Dass muss gehen...hab ich schon mal gesehen!
Der Tom

das geht ja auch ...
07.08.2008 15:35:00
Matthias
Hallo Tom
... aber Du hast nach bedingter Formatierung gefragt.
Mit VBA ist es kein Problem, aber Du solltest evtl. genauer erläutern, was wann wo und warum passieren soll.

In VBA gibt es diese z.B. Befehle
.Font.Bold = True
.Font.Name = "Arial"
.HorizontalAlignment = xlLeft

Gruß Matthias

Anzeige
AW: das geht ja auch ...
07.08.2008 15:52:29
Daniel
Hi Tom
da muss ich Matthias recht geben.
aber auch wenn du eine VBA-Lösung schreibst, würde ich den autofilter verwenden, um unsinnige Schleifen zu vermeiden.
Gruß, Daniel

Erstelle Dir doch selbst eine bedingte ...
07.08.2008 15:40:00
Backowe
Hi Tom,
... Formatierung. Anbei mal ein kleines Beispiel wie man sowas umsetzen kann, Code kommt in das Tabellenblatt!
VBA-Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("D")) Is Nothing And Target.Count = 1 Then
  With Target
    Select Case Target
      Case 1
        .Font.Name = "Arial"
        .Font.Size = 10
        .HorizontalAlignment = xlLeft
        .Interior.ColorIndex = 40
      Case 2
        .Font.Name = "Arial"
        .Font.Size = 10
        .HorizontalAlignment = xlRight
        .Interior.ColorIndex = 36
      Case Else
        .Font.Name = "Arial"
        .Font.Size = 10
        .HorizontalAlignment = xlGeneral
        .Interior.ColorIndex = xlNone
    End Select
  End With
End If
End Sub
Gruss Jürgen

Anzeige
AW: Erstelle Dir doch selbst eine bedingte ...
07.08.2008 15:55:00
Tom
Ja aber wie weis denn jetzt Case 1, dass er das nur machen soll wenn in der Zelle Hauptprojekt steht?
Der Tom

Case 1 heißt nur, wenn in der Zelle ..
07.08.2008 16:10:51
Backowe
Hi,
... eine 1 steht, formatiert er nach der ersten Bedingung, bei 2 nach der zweiten Bedingung und wenn irgendetwas anderes dasteht als 1 oder 2 wird die Zelle auf "Standard" gesetzt.
Ich kenne Deine Bedingungen nicht, ich habe was gelesen von Haupt und Teilprojekt. Ich tippe jetzt einfach mal ins Blaue.
VBA-Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("D")) Is Nothing And Target.Count = 1 Then
  With Target
    Select Case Target
      Case "Hauptprojekt"
        .Font.Name = "Arial"
        .Font.Size = 10
        .HorizontalAlignment = xlLeft
        .Interior.ColorIndex = 40
      Case "Teilprojekt"
        .Font.Name = "Arial"
        .Font.Size = 10
        .HorizontalAlignment = xlRight
        .Interior.ColorIndex = 36
      Case Else
        .Font.Name = "Arial"
        .Font.Size = 10
        .HorizontalAlignment = xlGeneral
        .Interior.ColorIndex = xlNone
    End Select
  End With
End If
End Sub

Anzeige
AW: Erstelle Dir doch selbst eine bedingte ...
07.08.2008 17:06:00
Tom
So...genau so!
War ja auch zum nachdenken klar.... Aber ich werd wohl meinen Urlaub im Kopf haben....also...ich werd dann mal für eine Woche die Füße hochlegen!
Vielen Dank für die Hilfe!
Der Tom

Forumthreads zu verwandten Themen

bedingte formatierung berechnen lassen unter vba
morbiuz

Hallo,
ich habe eine Spalte A auf der 2 verschiedene bedingte Formatierungen gesetzt sind (rot, grün) für die Scriftfarbe
leider kann ich die Werte nicht über meine Funktion zusammenrechnen lassen:
Sub mtest() Dim zelle As Range Dim bereich As Range Dim a As Integer Set bereich =...
20.08.2008 03:03:00
Thread-ID: 1003056
2 Beiträge
Anzeige
Bedingte Formatierung per VBA prüfen?
onkelbobby

Hallo,
in einer Tabelle in Spalte N und O werden zwei Datumswerte angegeben. Mit der Formel
=UND(HEUTE()-N1größer=0;O1-HEUTE()größer=0) (Anm. kann leider keine größer-Zeichen hier angeben)
habe ich als bedingte Fomatierung festgelegt, dass diejenigen Werte, bei denen das heutige Dat...
29.08.2008 12:45:10
Thread-ID: 1005805
6 Beiträge
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
VBA Bedingte Formatierung
Peter

Hallo,
möchte gern das Abhängig von A1 in der ein "w" oder ein "m" steht, das A2:Z22 alles entweder rosa (w)
oder hell bLau (m) ist.
Habt Ihr eine Idee?
Beim Druck soll nachher alles wieder schwarz weiß sein.
Gruß Peter
09.12.2008 22:32:36
Thread-ID: 1031538
20 Beiträge
Bedingte Formatierung mit Formeln beschränkt?
Vera

Hallo. Stoße gerade auf ein seltsames Phänomen:
wenn ich eine bedingte Formatierung auf ein Formelergebnis lege, klappt das gut. Das Formelergebnis habe ich dann runterkopiert - auch dann ist die bedingte Formatierung noch ok. Aber ab einer gewissen Anzahl Zeilen klappts dann nicht mehr.
16.01.2009 10:39:21
Thread-ID: 1040464
9 Beiträge
Bedingte Formatierung mit VBA-Modul
Fuhrer

Hallo zusammen
Ich will mit einem VBA-Modul einen bestimmten Bereich nach definierten Kriterien einfärben.
Das Modul wird später einem Comnand-Button Zugeordent (dies ist für mich kein Problem).
Nun konnte ich im Internet ein entprechendes Makro finden. Jedoch ist dieses Makro nur f...
19.01.2009 18:03:57
Thread-ID: 1041611
6 Beiträge
Bedingte Formatierung mit VBA
Steffen

Hallo,
habe schon viele Einträge gelesen, aber noch keiner war für mein Problem hilfreich oder ich stelle mich nur zu dämlich an. Folgendes Problem:
1. In einer Tabelle, die vom SQl-Server gefüllt wird, ist außerhalb des benannten Bereiches eine Spalte M, deren Zellen eine bestimmte Far...
13.02.2009 09:44:00
Thread-ID: 1050348
4 Beiträge
Bedingte Formatierung Formel
Karel

Hallo Forum,
Zellen werde durch bedingte markierung nach Minmale (Farbe ROT) und Maximale wert (Farbe Grun)markiert.
Wenn zelle Leer oder Inhalt wert NULL (0) Zelle werd GELB Markiert
mein Problem ist wenn Zelle Leer ist Funktioniert Min und Max .
Aber wenn Zelle inhalt Wert NU...
02.03.2009 16:37:10
Thread-ID: 1055657
5 Beiträge
Anzeige
VBA - Bedingte Formatierung mit For-Next-Schlaufe
Martin

Hallo zusammen
Ich habe ein Makro geschrieben und komme mit der bedingten Formatierung nicht weiter:
Ich habe eine For-Next-Schlaufe, die von unten die Zeilen rauffährt (For i = lezeile To 7 Step -1), unter anderem sollte am Ende der Schlaufe die Spalte A bis J auf der Zeile i jeweils...
12.03.2009 17:38:23
Thread-ID: 1059597
2 Beiträge
Anzeige
VBA - Bedingte Formatierung mit For-Next-Schlaufe
Martin

Hallo zusammen
Ich habe ein Makro geschrieben und komme mit der bedingten Formatierung nicht weiter:
Ich habe eine For-Next-Schlaufe, die von unten die Zeilen rauffährt (For i = lezeile To 7 Step -1), unter anderem sollte am Ende der Schlaufe die Spalte A bis J auf der Zeile i jeweils...
16.03.2009 10:15:21
Thread-ID: 1060621
4 Beiträge
Anzeige
bedingte Formatierung mit VBA
Weis

Hallo Leute,
ich habe leider sehr begrenzte VBA-Kenntnisse. Deswegen baue ich auf Euch. Ich weiß, dass dies mit einer bedingten Formatierung leicht zu lösen ist. Ich möchte allerdings unbedingt eine VBA-basierte Lösung.
Folgendes Problem:
Ich möchte in einem bestimmten Bereich (Spal...
20.03.2009 19:10:26
Thread-ID: 1062337
5 Beiträge
bedingte formatierung per vba
Tobias

Hallo allerseits!
Wie kann ich folgendes bewerkstelligen:
Ich möchte das, wenn in Spalte E="ja" dann in der jew. Zeile von A-E grüner Zellhintergrund.
(am besten ein rgb wert)
Wie mach ich das per VBA?
grüsse,
Tobias
24.03.2009 16:26:14
Thread-ID: 1063438
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige