Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1572to1576
1572to1576
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Formatierung über aktuelle Formatierung

Forumthread: VBA Formatierung über aktuelle Formatierung

VBA Formatierung über aktuelle Formatierung
14.08.2017 14:43:01
ralph
Hallo zusammen,
aktuell scheitere ich an etwas wahrscheinlich sehr banalem, ich habe eine Zelle Grau gefärbt und möchte, dass diese sofern in einer andern Zelle der Wert 3 steht zusätzlich mit dem Pattern xlGray16 versehen. Lösche ich die 3 aus dem Feld, soll der Pattern wieder verschwinden und mein Feld ganz normal in Grau erscheinen. Auch während der Pattern sichtbar ist, soll die Zelle Grau bleiben, ich möchte den Pattern also nur über die bereits vorhandene Formatierung "drüber" legen.
Vielen Dank im Voraus für eure Tips.
Gruß
Raplh
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Formatierung über aktuelle Formatierung
14.08.2017 14:51:09
Werner
Hallo Ralph,
mit bedingter Formatierung. Im Beispiel ist auf der Zelle A1 eine bedingte Formatierung. Lösch mal die 3 in der Zelle B1.
https://www.herber.de/bbs/user/115448.xlsx
Gruß Werner
AW: VBA Formatierung über aktuelle Formatierung
14.08.2017 14:57:15
ralph
Hallo Werner,
vielen Dank, genau was ich brauche. Finde nur gerade nicht den Code, wo hast du das denn geschrieben oder wie hast du es gemacht?
Gruß
Ralph
Anzeige
AW: VBA Formatierung über aktuelle Formatierung
14.08.2017 15:29:42
Werner
Hallo Ralph,
da gibt es keinen Code, wie schon geschreiben über die bedingte Formatierung.
Klick mal die Zelle A1 an, dann im Menü Start - bedingte Formatierung - Regeln verwalten, da kannst du es dir anschauen.
Gruß Werner
AW: VBA Formatierung über aktuelle Formatierung
15.08.2017 09:06:04
ralph
Hi Werner,
habe gerade die bedingte Formatierung als Makro aufgezeichnet und in einem neuen Modul mit Schleifen an meine endlose Liste angepasst. Die direkte bedingte Formatierung kann ich nicht nutzen (zumindest weis ich nicht wie) weil ich ein Blatt habe, das ich Stückchenweise befülle und immer die ersten 3 Spalten kopiere und überschreibe.
    Worksheets(Sheets("Daten").Cells(rt, 6).Value & " Kalender").Range(Columns(xy), Columns(xy + _
2)).FormatConditions.Add Type:=xlExpression, Formula1:= _
Cells(8, xy) = "passiv"
Worksheets(Sheets("Daten").Cells(rt, 6).Value & " Kalender").Range(Columns(xy), Columns(xy + _
2)).FormatConditions(Worksheets(Sheets("Daten").Cells(rt, 6).Value & " Kalender").Range(Columns(xy), Columns(xy + 2)).FormatConditions.Count).SetFirstPriority
With Worksheets(Sheets("Daten").Cells(rt, 6).Value & " Kalender").Range(Columns(xy),  _
Columns(xy + 2)).FormatConditions(1).Interior
.Pattern = xlGray16
.PatternColorIndex = xlAutomatic
.ColorIndex = xlAutomatic
End With
Worksheets(Sheets("Daten").Cells(rt, 6).Value & " Kalender").Range(Columns(xy), Columns(xy + _
2)).FormatConditions(1).StopIfTrue = False
Next xy
Die Formatierung klappt soweit, dass auf allen Blättern, die Passiv makierten Spalten ausgegraut werden, leider jedoch bleiben sie grau, auch wenn sie nicht mehr passiv sind. Gibt es da einen Trick?
Danke im Voraus und Grüße
Ralph
Anzeige
Beispielmappe bitte. o.w.T.
15.08.2017 10:46:34
Werner
AW: Beispielmappe bitte. o.w.T.
15.08.2017 12:42:28
ralph
https://www.herber.de/bbs/user/115480.xlsm
Bitte sehr, das Makro muss leider manuell ausgeführt werden. Problem ist, dass die Ausgrauung nicht wieder weg geht, wenn "passiv" nicht mehr in der Zelle steht.
Leider muss ich das ganze so umständlich machen, da ich die Spalte mit den Variablen-Werten rechts in den freien Bereich kopiere und überschreibe.
Vielen Dank und Grüße
Ralph
Anzeige
AW: Beispielmappe bitte. o.w.T.
15.08.2017 14:14:19
Werner
Hallo Ralph,
hier deine Beispielmappe.
https://www.herber.de/bbs/user/115485.xlsm
Dein Datenbereich geht bis Zeile 380 du hattest im Code aber nur bis Zeile 376 drin, das habe ich geändert.
Gruß Werner
AW: Beispielmappe bitte. o.w.T.
15.08.2017 15:29:57
ralph
Hallo Werner,
vielen Dank nochmals, klappt 1A.
Gruß
Ralph
Anzeige
Gerne u. Danke für die Rückmeldung und....
15.08.2017 15:32:02
Werner
Hallo Ralph,
wenn das Problem gelöst ist, dann bitte nicht den Haken neben dem Passwortfeld setzen. Der kennzeichnet den Beitrag nämlich als "noch offen" also ungelöst.
Gruß Werner
AW: Gerne u. Danke für die Rückmeldung und....
16.08.2017 16:44:45
ralph
Hi Werner,
Danke für den Hinweis, ist gemacht.
Gruß
Ralph
;

Forumthreads zu verwandten Themen

Information aus Excel an Outlook VBA Makro übergeb
Christian

Hallo zusammen,
ich wüsste gerne, wie ich in einem Outlook Makro auf Daten, die in einer Excel Tabelle stehen, zugreifen kann.
Ich verwende ein Outlook Makro welches eine Excel-Datei als e-mail-Anhang an einen Empfänger sendet und wie folgt aussieht:
----------
Sub versand() D...
17.08.2008 18:48:53
Thread-ID: 1002451
8 Beiträge
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
Formatieren als Zahl/Währung im VBA
Nadine

Hallo,
ich habe jetzt folgende Formel im VBA erfasst;
Private Sub FldKurs_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not IsDate(FldKurs) Then FldKurs = "" Else FldKurs = Format(FldKurs, "#,##0.00 $") End If End Sub
Diese soll bezwecken, dass in einem Textfeld nur eine Zahl st...
20.08.2008 14:28:00
Thread-ID: 1003209
2 Beiträge
VBA - Zellen nach Prozentformat abfragen
Jenny

Hi, Excel-Freaks!
Kann mir bitte jemand sagen, wie ich per VBA Zellen auf ein beliebiges Prozentformat abfragen kann?
If rngZ.NumberFormat = "0%" Then...
findet leider/natürlich nur die Zellen, die ohne Nachkommastellen formatiert sind.
Danke im Voraus!
Grüße von Jenny im Ex...
28.08.2008 15:03:49
Thread-ID: 1005460
4 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
Dateiformat nicht erkennabar (VBA)
Richard

hallo
hab da ein vba-skript, das beim unteren der beiden Zeilen eine Fehlermeldung bringt:
CreateObject("Scripting.FileSystemObject").CopyFile "C:\Program Files\" & Dateiname_neu, "C:\Program Files\Kopie.txt", True
Workbooks.OpenText FileName:="C:\Program Files\Kopie.txt" _
02.10.2008 19:52:02
Thread-ID: 1013959
2 Beiträge
Anzeige
Formatierung schützen per VBA ?
Hans

Hallo,
ich habe eine Tabelle erstellt, in denen täglich mehrere Daten eingegeben werden.
Um die Dateneingabe möglichst einfach zu gestalten, habe ich die einzelnen Zellen entsprechend formatiert.
Jedoch wir mir die Formatierung oftmals wieder "zerschossen" meistens unwissentlich vom...
27.10.2008 19:59:59
Thread-ID: 1019733
9 Beiträge
Zahl eingeben und per VBA formatieren
Herbert

Hallo Gemeinde
Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
soll die Zahl in der Form JJ/###A umgewandelt werden.
Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?
P...
05.11.2008 16:08:10
Thread-ID: 1021969
12 Beiträge
Kommentare per VBA formatieren?
David

Hallo zusammen,
ist es möglich, Kommentare in einer Datei per VBA auf eine bestimmte Größe zu bringen? Wenn ja, wie lautet dann die entsprechende Syntax?
Hintergrund:
Ich habe in einer alten Datei den Fall, dass die Kommentare (vermutlich aufgrund ausgeblendeter Zellen) auf die Brei...
06.11.2008 14:33:19
Thread-ID: 1022296
3 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
Anzeige
VBA Querdruck DinA5 auf DinA4 Hochformat
Peter

Hallo,
habe eine Userform die ich aufrufe, dort sind 2 CommandButtons auf die entweder auf DinA5 oder DinA4 gedruckt werden soll.
Habe nun den Makrorecorder laufen lassen.
Private Sub CommandButton1_Click() 'Sub Karte_Druck() ' Karte_Druck Makro Din A 4 Application.ScreenUpdating...
07.12.2008 11:40:36
Thread-ID: 1030830
3 Beiträge
Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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