Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1684to1688
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
1684to1688
1684to1688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formatierung für alle gleichen Werte übernehmen

Formatierung für alle gleichen Werte übernehmen
03.04.2019 13:48:38
Andreas
Hallo alle zusammen,
Folgende Ausgangslage:
https://www.herber.de/bbs/user/128888.xlsm
In diesem Dokument sollen Typen (001-...) farblich formatiert werden, da sowohl die Menge als auch die Position einen guten Überblick über die Datenbasis gibt. Die Farbwahl erfolgt manuell, ich möchte zum Beispiel alle Zellen mit dem Wert 001 in Grün haben, aber eine andere vielleicht mal in Pink mit Punkten.
Theoretisch könnte man das mit der bedingten Formatierung lösen, das Problem ist aber dass ich für jeden neuen Typ (100) eine neue Regel erstellen müsste (zum Beispiel für alle Typen von 001-500 = 500 Regeln)
Das Arbeitsblatt "Daten", wird immer mal wieder aktualisiert, es kommen eine große Zahl an Zeilen,Spalten und Typen hinzu.
Mein Gedanke:
Ein Hilfsblatt in der alle Typen einmalig aufgelistet werden. Sobald ich in dem Hilfsblatt einen Typ farbig formatiere, übernimmt er die Formatierung für alle gleichen Werte im Datenblatt.
Wie man das in VBA oder mit Makros lösen könnte weiß ich nicht, die Google Suche mit Wörtern aus dem Betreff sind zu allgemein.
Vielen Dank für eure Vorschläge,
LG Andreas

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formatierung für alle gleichen Werte übernehmen
03.04.2019 15:25:22
ChrisL
Hi Andreas
Ins Modul der Tabelle "Daten"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, ws As Worksheet: Set ws = Worksheets("Farbcodierung")
For Each c In Target
If WorksheetFunction.CountIf(ws.Columns(1), c) Then
c.Interior.Color = ws.Cells(Application.Match(c, ws.Columns(1), 0), 1).Interior.Color
Else
c.Interior.Color = xlNone
End If
Next c
End Sub
cu
Chris
AW:Formatierung für alle gleichen Werte übernehmen
05.04.2019 13:13:21
Andreas
Im VBA Project der Muster.xslm ist das Modul drinnen. Wie kann ich es anwenden? Bin was VBA angeht recht Nichtwissend, und auch durch das überfliegen der VBA-Grundlagen in den Online Tools konnte ich keine Anwort finden.
LG Andreas
Anzeige
AW: AW:Formatierung für alle gleichen Werte übernehmen
05.04.2019 13:23:09
ChrisL
Ins erwähnte Modul kopieren, fertig. Der Code reagiert automatisch, wenn du Eingaben tätigst. Kannst auch mal den ganzen Tabellenbereich kopieren und am gleichen Ort wieder einfügen.
AW:Formatierung für alle gleichen Werte übernehmen
05.04.2019 13:23:54
Andreas
Edit: Hat sich erledigt, hatte dachte Change aktiviert sich wenn ich in Farbcodierung was einstelle, aber es läuft ja sobald ich was in Daten verändere. Der Code funktioniert genauso wie ich es haben wollte. Gibt es auch eine Möglichkeit die komplette Formatierung zu übernehmen (Schriftgröße oder Muster wie streifen). Oder müsste jeder Formatierungstyp einzeln der Funktion hinzugefügt werden?
LG und großes Danke schon mal für die brauchbare Lösung.
Anzeige
AW: AW:Formatierung für alle gleichen Werte übernehmen
05.04.2019 14:49:44
ChrisL 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, ws As Worksheet: Set ws = Worksheets("Farbcodierung")
On Error GoTo errorhandler
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each c In Target
If WorksheetFunction.CountIf(ws.Columns(1), c) Then
ws.Cells(Application.Match(c, ws.Columns(1), 0), 1).Copy c
Else
c.Interior.Color = xlNone
End If
Next c
Application.EnableEvents = True
Exit Sub
errorhandler:
Application.EnableEvents = True
MsgBox "Fehler " & Err.Description
End Sub

307 Forumthreads zu ähnlichen Themen

Laufzeitfehler beim Löschen mehrere Zellen
Tobias

hallo allerseits
Ich habe folgendes Tabellenblatt-Makro
1. der erste teil setzt einen datumsstempel in D
2. teil setzt alle manuellen einträge auf farbe schwarz
Wenn ich einzelne einträge mache, klappt das gut, löschen ebenso.
wenn ich aber mehrere zell-inhalte gleichzeitig...
28.02.2009 03:14:01
Thread-ID: 1054982
5 Beiträge
Anzeige
Änderung für alle Tabellenblätter übernehmen | Herbers Excel-Forum
Thomas
Hallo liebe VBAler
Ich hab eine Excel Datei mit 12 Tabellenblätter (Januar-Dezember).
Ände ich nun z.B. im Tabellenblatt Januar in Spalte A und B etwas, oder füge/lösche eine Zeile ein, dann soll er dies für alle anderen Tabellenblätter übernehmen.
Bis jetzt habe ich dies über Workshee...
14.01.2010 09:11:14
Thread-ID: 1129753
4 Beiträge
Spalte ermitteln für Indirekt-Formel
Joni

Hallo,
kann mir mal kurz jemand auf die Sprünge helfen. In meiner Tabelle sind in den Zellen C1:E1 Spaltenüberschriften (Text) vorhanden. Jetzt möchte ich mit einer Formel ermitteln welche Überschrift einem Eintrag in G2 entspricht (klappt mit wverweis zur Anzeige Spaltenüberschrift). Ich s...
05.01.2011 01:24:53
Thread-ID: 1193960
3 Beiträge
Anzeige
Suche Formel für Hilfsspalte -Werte für Wochentage
hachiman

Hallo
Für einen Kalender benutze ich die Hilfsspalte mit Wochentagswerten.
Nun benötige ich hierfür eine Formel die aus dem Datum heraus diesen Wert einfügt, aber wenn in der Tabelle "Feiertage" Tage wie z.B 25.12.2012 eingetregen sind; die mit dem Datum des Kalenders übereinstimmen (z....
14.10.2012 19:18:31
Thread-ID: 1281982
6 Beiträge
Formel für: Wort suchen und Spaltennummer ausgeben
Eks

Liebe Freunde,
stundenlang habe ich schon gesucht und probiert - ergebnislos.
Ich brauche eine Formel, die den Text aus einer Zelle (A3) in einem Bereich (A4:E25) in einem anderen Blatt sucht und letztlich in die Zelle, in der die Formel steht (C3), die Spaltennummer einträgt.
Für H...
08.09.2013 08:09:54
Thread-ID: 1329921
4 Beiträge
Excel Spalte für Kollegen sperren, Formel übertrag
Peter

Guten Morgen liebe Gemeinde,
ich habe folgendes Problem...
Da ich den ein oder anderen "kompetenten" Arbeitskollegen habe, welche mir immer wieder wichtige Tabellen zerhauen, würde ich diese gerne schützen.
Genauer ist es eine Tabelle, die nach unten hin erweiterbar sein soll, also...
19.02.2015 07:56:44
Thread-ID: 1410250
5 Beiträge
Formel für: SUCHEN versch. Teilstrings in Spalte
Chrstian

Hallo Leute,
ich suche eine Formel-Lösung für folgendes Problem:
In Spalte A stehen verschiedene Strings und wenn einer von verschiedenen Teilstrings enthalten ist, soll die Formel eine entsprechende Zahl zurückgeben (siehe Beispielmappe).
Bsp Teilstrings - Zahl:
"/Thpd T": 1
18.04.2015 10:54:01
Thread-ID: 1421579
6 Beiträge
Formatierung für alle Datensätze übernehmen
Nils

Hallo Zusammen,
ich sitze jetzt schon seit Tage an einem Problem, welches sich nicht lösen lässt.
Ich habe auf (Tabellenblatt 1 =TB1) eine Liste mit 250 Produkten. Jedes dieser Produkte kann ich mittels Checkbox auswählen. Ebenfalls auf TB1 befindet dich ein Liniendiagramm, welches mi...
07.05.2015 11:37:11
Thread-ID: 1425154
8 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
4
13
3
2
3
5
3
4
5
7
3
4
5
3
5
3
2
2
1
2
5
1
6
3
10