Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.07.2025 17:39:22
keine Daten Börsenhistorie für den 18.07.2025
19.07.2025 15:24:27
VBA Click-Routine Option-Button
19.07.2025 14:48:31
wenn Funktion mit mehreren Bedingungen
19.07.2025 07:22:38
Datei hochladen
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
1128to1132
1128to1132
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bed. Formatierung mittels VBA

Forumthread: bed. Formatierung mittels VBA

bed. Formatierung mittels VBA
Frank
Hallo Zusammen!!!
Wie immer bin ich wieder einmal mit mein Latein am Ende, hoffe auf eure Hilfe.
In Spalte E5:E310 steht immer ein Datum. Es handelt sich immer um Freitage, Samstage, Sonntage und Montage. Das ist f. d. bed. Formatierung in 2003 einer zuviel! Ich möchte das wenn das Datum ein Freitag ist soll die Schriftfarbe weinrot sein, Samstag blau, Sonntag rot und Montag dunkellila. Das ganze wollte ich hinter einen Button legen und am Ende der Erstellung der Daten auf Klick formatieren!
Ich hoffe ihr könnt mein Problem verstehen und mir eine Lösung anbieten!!! Vielen Dank im Vorraus!
Gruß Frank H.
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Bedingte Formatierung
Tags
#fehlerbehandlung #formatierung #vba
Relevante Fragen
Anzeige
Betreff
Benutzer
Anzeige
so geht das
20.01.2010 13:38:30
Björn
Hallo Frank,
mit diesem Code klappt das: 

Sub Farben()
Dim Zeile As Integer
Range("E5:E310").Font.ColorIndex = xlAutomatic
For Zeile = 5 To 310
Select Case Weekday(Cells(Zeile, 5), 1)
Case 6 'Freitag
Cells(Zeile, 5).Font.ColorIndex = 9
Case 7 'Samstag
Cells(Zeile, 5).Font.ColorIndex = 5
Case 1 'Sonntag
Cells(Zeile, 5).Font.ColorIndex = 3
Case 2 'Montag
Cells(Zeile, 5).Font.ColorIndex = 13
End Select
Next Zeile
End Sub
Auf deinem Blatt einen Commandbutton erzeugen und das diese MAkro zuweisen.
Gruß
Björn B.
Anzeige
AW: so geht das
20.01.2010 14:00:24
Frank
Hallo Björn!
Danke, funzt Super. Wie kann ich aber die Fehlermeldung "Typen unverträglich" abfangen, wenn in Spalte E5:E310 Zellen noch leer sind? Vielleicht weißt du auch hier noch Rat!
Gruß Frank H.
AW: so geht das
20.01.2010 14:08:45
Björn
Hallo,
also auf die Schnelle "unschön" programmiert (einfach bei Dir erweitern): 

On Error Resume Next
Select Case Weekday(Cells(Zeile, 5), 1)
On Error GoTo 0
Schöner wäre es, wenn man in ner If-Schleife das ganze prüft und abfängt.
Aber so funktionioert es. Ich bin da Minimalist und will keine Schönheitswettbewerbe gewinnen ;-)
Wenn es sich allerdings um eine größere VBA-Anwendung handelt, die mit Fehlerbehandlung arbeitet, dann sollte man das nicht so machen.
Gruß
Björn B.
Anzeige
AW: so geht das
20.01.2010 14:08:45
Björn
Hallo,
also auf die Schnelle "unschön" programmiert (einfach bei Dir erweitern): 

On Error Resume Next
Select Case Weekday(Cells(Zeile, 5), 1)
On Error GoTo 0
Schöner wäre es, wenn man in ner If-Schleife das ganze prüft und abfängt.
Aber so funktionioert es. Ich bin da Minimalist und will keine Schönheitswettbewerbe gewinnen ;-)
Wenn es sich allerdings um eine größere VBA-Anwendung handelt, die mit Fehlerbehandlung arbeitet, dann sollte man das nicht so machen.
Gruß
Björn B.
Anzeige
AW: so geht das
20.01.2010 14:52:02
Luschi
Hallo Frank,
mach es so: 

Sub Farben()
Dim Zeile As Integer
Range("E5:E310").Font.ColorIndex = xlAutomatic
For Zeile = 5 To 310
'Datentyp der Zelle prüfen
If VarType(Cells(Zeile, 5)) = vbDate Then
Select Case Weekday(Cells(Zeile, 5), 1)
Case 6 'Freitag
Cells(Zeile, 5).Font.ColorIndex = 9
Case 7 'Samstag
Cells(Zeile, 5).Font.ColorIndex = 5
Case 1 'Sonntag
Cells(Zeile, 5).Font.ColorIndex = 3
Case 2 'Montag
Cells(Zeile, 5).Font.ColorIndex = 13
End Select
End If
Next Zeile
End Sub
Gruß von Luschi
aus klein-Paris
Anzeige
AW: so geht das
20.01.2010 15:35:36
Frank
Hallo Ihr zwei fleißigen Helfer!!!
Funzt nun super!!! Ihr, sowie das gesamte Forum wie immer Spitze!!!
Danke und Gruß Frank H.

Forumthreads zu verwandten Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
Problem mit Drag&Drop und kopieren (VBA)
Micha

Hallo liebe Spezialisten,
ich habe mal wieder ein Problem und hoffe auf Hilfe :-)
Hier im Forum habe ich den folgenden Code zum deaktivieren von „Drag&Drop“ bekommen.
Private Sub Workbook_Activate() 'Verhindert Drag&Drop (Teil-1) Application.CellDragAndDrop = False End Sub...
17.09.2008 10:34:00
Thread-ID: 1010266
2 Beiträge
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Zellenformatierung mit Blattschutz
donald

Hallo ihr vielen Helfer,
ich möchte es gerne zulassen, dass man die Zellen, zeilen und Spalten formatieren sowie auf das Blatt gelegte textfelder bearbeiten kann, obwohl der Blattschutz aktiv ist. Das kann man zwar beim Schutz einstellen, mein Problem ist aber, dass sich diese Einstellunge...
05.12.2008 08:25:00
Thread-ID: 1030343
2 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 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
Anzeige
Formatierung mit VBA
Dave

Hallo zusammen
Ich will Zellen aufgrund des Inhalts, der mit einer Formel geholt wird, formatieren.
Ich habe es in der folgenden Datei versucht, jedoch wird die Formatierung nicht automatisch angepasst, sondern die Zelle muss jedesmal angewählt werden.
Könnt ihr Euch das mal in der...
27.01.2009 08:20:03
Thread-ID: 1044069
10 Beiträge
Bedinte Formatierung mittels VBA
Dinci

Hallo zusammen.
Ich habe eine Liste aus der ich verschiedene Ausagen herausziehen möchte.
Dieses kann man ja gut mit der bedingten Formatierung durchführen.
Da es für Anwender konzipiert ist, möchte ich, dass der Anwender diese Aussagen selber definiert.
Aus diesem Grund habe...
27.01.2009 13:36:57
Thread-ID: 1044216
5 Beiträge
Anzeige
"Bedingte Formatierung" kopieren
Susanne

Hallo,
wenn ich unter Excel 2007 die bedingten Formatierungen von Zelle A1 via Innhalte einfügen auf Zelle A2 kopieren, werden die dort eventuell vorhandenen bedingten Formatierungen (im Gegensatz zu Excel 2003!) nicht automatisch gelöscht bzw. überschrieben.
Wie ersetze ich bei Excel 2...
08.02.2009 20:33:51
Thread-ID: 1048473
5 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
Blatt kopieren mit VBA
Torsten

Hallo beisammen,
wie muß der Code vervollständigt werden, wenn ich das gerade aktive Blatt kopieren und immer an die letzte Position einfügen möchte?
Vielen Dank für Eure Tipps.
Gruß
Torsten
06.03.2009 16:36:27
Thread-ID: 1057377
5 Beiträge
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
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