Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
836to840
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
836to840
836to840
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingte Formatierung übergehen mit VBA

Bedingte Formatierung übergehen mit VBA
17.01.2007 19:33:01
carsten
Hallo
Ich habe mal wieder eine frage zu meinem kleinen programm
ich habe einen kleinen Planer für Urlaub gemacht da möchte ich mit ein paar funktionen aus dem Forum und ein paar kleinen Makros Zellen einfärben(Urlaub eintragen)für mehrere Leute.
das ganze funktioniert bis jetzt auch sehr gut allerdings werden mit meiner Version die Wochenenden auch mitgezählt bei den U Tagen die Wochenenden habe ich mit einer Bedingten Formatierung kennzeichenen lassen.wie kann ich mittels VBA die Bedingte formatierung übergehen so dass wenn ich 14 Tage U eintage aber nur 10 Tage in meiner Funktion dann gezählt werden.
Ich habe mal meine Beispieldatei angehängt.
https://www.herber.de/bbs/user/39733.xls
also kurz gesagt wenn zelle bedingte formatierung enthält keine farbe hinzufügen.
Gruß Carsten

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bedingte Formatierung übergehen mit VBA
17.01.2007 20:33:19
Jörg
Mit Farbe Zählen
Die Formel:
Option Explicit

Function FARBEZÄHLEN(Bereich As Range, Farbe As Byte) As Long
Dim c As Range
For Each c In Bereich
If c.Interior.ColorIndex = Farbe Then
FARBEZÄHLEN = FARBEZÄHLEN + 1
End If
Next c
End Function

AW: Bedingte Formatierung übergehen mit VBA
17.01.2007 21:18:21
carsten
Hallo Jörg
Diese funktion kannte ich schon ich habe eine ähnliche benutzt in der Tabelle aber leider zählt sie mir ja die roten zellen auch wenn ich eine Bedingte formatierung überzeichne es wird zwar nich rot sichtbar,weil die bedingte formatierung vorrang hat.ich habe eher daran gedacht dass wenn ich mit dem Button Urlaub eintragen überprüfen kann ob eine zelle überzeichnet wird mit einer bedingten formatierung wenn ja in diese zelle dann nicht rot zeichnen.
Anzeige
Das nutzt dir nichts,...
18.01.2007 04:46:07
Luc:-?
...Carsten,
wenn - wie anzunehmen ist - alle Zellen bedingt formatiert sind! Du deutest es ja schon selber an - "überzeichnet". Mit dem Vorschlag und der von dir verwendeten Konstruktion kannst du stets nur die ursprüngliche Farbgebung feststellen - nie die aktive (auch nicht mit VBA) "Überzeichnung".
Übrigens hättest du mit ein wenig Recherchemühen die Antwort längst, den solche Fragen wdn hier fast jeden Tag (mitunter mehrmals) gestellt. Habe sowas auch schon xmal beantwortet (u.a. in den letzten 2-3 Tagen). Gibt da 3 Möglichkeiten, von denen die einfachste die Auswertung der Bedingung, die zu der "überzeichnenden" Farbe führt, wäre, wenn es in diesem Fall nicht noch einfacher durch Zählen der WE-Tage innerhalb des Urlaubs und Differenzbildung ginge.
Gruß Luc :-?
Anzeige

310 Forumthreads zu ähnlichen 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
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
Anzeige
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
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
"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
Inhalt Textfelder mit Formatierung kopieren
Tobias

Hi zusammen,
ich hab folgenes Problem. Ich habe 2 Textfelder (NICHT aus den Steuerelementen) und möchte den Inhalt des einen Textfeldes in das andere kopieren wobei jedoch die Formatierung beibehalten wird. Ich habe schon alles mögliche versucht (siehe Anhang) aber es funktioniert leider ni...
10.02.2009 11:41:00
Thread-ID: 1048975
10 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
7
1
5
1
19
5
9
4
4
9
3
4
1
5
3
4
2
3
1
5
2
4
1
2
3