Registriert seit: 02.06.2016
Version(en): 2013
Hallo,
Ich habe in Tabelle1 mit vielen Bedingte Formatierung.
Kann man in dem Tabelle1 von A1:K100 die Bedingte Formate in eine neue Tabelle auflisten. Auflistung soll die Formel, Zellbezug, Farbe und Schrift sein.
Im Internet habe ich durchsucht nichts funktioniertes gefunden. für Namensmanager gibt's und es funktioniert auch.
Danke
Registriert seit: 20.06.2016
Version(en): 2021
Hallo s...,
in VBA gibts das Objekt "FormatCondition" und die Auflistung "FormatConditions". Diese kannst du so nutzen wie "Name" und "Names".
Welche Eigenschaften das Objekt FormatCondition hat findest du im Objektkatalog oder auch hier:
https://docs.microsoft.com/de-de/office/...tcondition
helmut
Für mich ist die Möglichkeit in Excel an Zellen und Bereichen Namen zu vergeben die wichtigste Funktionalität.
Sie macht Formeln und den VBA-code verständlicher. Für Makros gilt die Regel: "Nur über benannte Bereiche auf den Inhalt der Zellen zugreifen."
Und wofür sind Regeln da? Um nachzudenken bevor man sie bricht.
Registriert seit: 02.06.2016
Version(en): 2013
Hallo ego
Ich habe die Seite angeschaut, und da war eine Bespiel
With Worksheets(1).Range("e1:e10").FormatConditions(1)
With .Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 6
End With
With .Font
.Bold = True
.ColorIndex = 3
End With
End With
und das habe ich in eine Modul kopiert und kam Fehler beim kompilieren.
Wo kommt diese Code und wie benutz man das
Danke
Registriert seit: 29.09.2015
Version(en): 2030,5
Zitat:Kann man in dem Tabelle1 von A1:K100 die Bedingte Formate in eine neue Tabelle auflisten. Auflistung soll die Formel, Zellbezug, Farbe und Schrift sein
Und dann, Wozu ?
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
Zitat:Wo kommt diese Code und wie benutz man das
Vor dem code fehlt noch Sub ... und danach End Sub. Hast Du das nicht gemacht? Wird eine Zeile markiert? Außerdem, Du wolltest doch die Formatierung auslesen und nicht setzen?
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 02.06.2016
Version(en): 2013
28.12.2020, 21:04
(Dieser Beitrag wurde zuletzt bearbeitet: 28.12.2020, 21:05 von schwarzeteufel.)
Hallo Schauan,
Ich war in den Seite von ego
Ich kann Ja die Code nicht lesen. soviel Ahnung habe ich nicht.
Ich hab gedacht ego hat mir die richtige Seite geschickt da habe ich diese Code gefunden und ausprobiert.
Was der Code sagt keine Ahnung.
Aber Danke für den Info.
Registriert seit: 14.04.2017
Version(en): 2016/19
29.12.2020, 01:08
(Dieser Beitrag wurde zuletzt bearbeitet: 29.12.2020, 01:10 von echo.)
Hallo
du suchst ja nach einer VBA-Lösung, daher TO aber wenn ich deine Frage lese, denke ich unweigerlich an ein AddIn
http://www.excel-jeanie-html.de
Es liefert für den markierten Bereich eine HTML-Datei die so aussieht, Gruß Holger
Tabelle1| Bedingte Formatierungen der Tabelle |
| Zelle | Nr.: / Bedingung | Format | | B6 | 1. / Formel ist =C6=HEUTE() | Abc | | B6 | 2. / Formel ist =WOCHENTAG(B$1+ZEILE(B1)-1;2)>=6 | Abc | | C6 | 1. / Formel ist =C6=HEUTE() | Abc | | C6 | 2. / Formel ist =C6=HEUTE() | Abc | | C6 | 3. / Formel ist =WOCHENTAG(B$1+ZEILE(B1)-1;2)>=6 | Abc | | D6 | 1. / Formel ist =(D6<>"")*(VERGLEICH(D6;systolisch2;1)=1) | Abc | | D6 | 2. / Formel ist =(D6<>"")*(VERGLEICH(D6;systolisch2;1)=2) | Abc | | D6 | 3. / Formel ist =(D6<>"")*(VERGLEICH(D6;systolisch2;1)=3) | Abc | | D6 | 4. / Formel ist =(D6<>"")*(VERGLEICH(D6;systolisch2;1)=4) | Abc | | D6 | 5. / Formel ist =(D6<>"")*(VERGLEICH(D6;systolisch2;1)=5) | Abc | | D6 | 6. / Formel ist =(D6<>"")*(VERGLEICH(D6;systolisch2;1)=6) | Abc | | D6 | 7. / Formel ist =(D6<>"")*(VERGLEICH(D6;systolisch2;1)=7) | Abc | | D6 | 8. / Formel ist =(D6<>"")*(VERGLEICH(D6;systolisch2;1)=8) | Abc | | D6 | 9. / Formel ist =WOCHENTAG(B$1+ZEILE(B1)-1;2)>=6 | Abc | | E6 | 1. / Formel ist =(E6<>"")*(VERGLEICH(E6;diastolisch2;1)=1) | Abc | | E6 | 2. / Formel ist =(E6<>"")*(VERGLEICH(E6;diastolisch2;1)=2) | Abc | | E6 | 3. / Formel ist =(E6<>"")*(VERGLEICH(E6;diastolisch2;1)=3) | Abc | | E6 | 4. / Formel ist =(E6<>"")*(VERGLEICH(E6;diastolisch2;1)=4) | Abc | | E6 | 5. / Formel ist =(E6<>"")*(VERGLEICH(E6;diastolisch2;1)=5) | Abc | | E6 | 6. / Formel ist =(E6<>"")*(VERGLEICH(E6;diastolisch2;1)=6) | Abc | | E6 | 7. / Formel ist =(E6<>"")*(VERGLEICH(E6;diastolisch2;1)=7) | Abc | | E6 | 8. / Formel ist =(E6<>"")*(VERGLEICH(E6;diastolisch2;1)=8) | Abc | | E6 | 9. / Formel ist =WOCHENTAG(B$1+ZEILE(B1)-1;2)>=6 | Abc |
|
Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Registriert seit: 02.06.2016
Version(en): 2013
29.12.2020, 09:08
(Dieser Beitrag wurde zuletzt bearbeitet: 29.12.2020, 09:12 von schwarzeteufel.)
Hallo Echo,
Ja genau so was brauche ich.
Ich habe diese Add-ins Heruntergeladen und die 3 Dateien
EJHT_R.dll
EJHT_R.manifest
ExcelJeanieHtml.xlamin
In Ordner C:\Users\Benutzername\AppData\Roaming\Microsoft\AddIns kopiert
Danach habe Ich die ExcelJeanieHtml.xlamin Add-ins abgelegt und angehakt.
Aber bekomme Ich Fehler. Kompilierungsfehler
Ich weiß nicht was ich da falsch gemacht habe?
Gibt's vielleicht andere Add-ins wo ich Herunterladen kann?
Registriert seit: 14.04.2017
Version(en): 2016/19
Ein weiters AddIn, habe ich schon öfter gesehen aber keine Erfahrung mit.
https://www.clever-excel-forum.de/Thread...darstellen.
Warum Excel Jeanie Html nicht läuft kann ich nicht beantworten
Gruß Holger
Registriert seit: 02.06.2016
Version(en): 2013
29.12.2020, 09:51
(Dieser Beitrag wurde zuletzt bearbeitet: 29.12.2020, 09:53 von schwarzeteufel.)
Hallo Echo,
Da bekomme ich auch die gleiche Fehler.
Ich habe in Microsoft gefundene Kompilierungsfehler: Ein geschütztes Modul enthält einen Kompilierungsfehler. Da sich der Fehler in einem geschützten Modul befindet, kann er nicht angezeigt werden.
Mögliche Lösung: Wenn Sie Zugriff auf den VBA-Code im Dokument oder Projekt haben, heben Sie den Schutz des Moduls auf und führen den Code dann erneut aus, um den jeweiligen Fehler anzuzeigen.
Weil da die beiden VBA Geschütz ist funktioniert nicht. Wie kann ich die Schutz aufheben?
VBA Bedingte formate auflisten
