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

Zellen färben nach Sheet Namen

Forumthread: Zellen färben nach Sheet Namen

Zellen färben nach Sheet Namen
10.08.2017 11:33:45
Kurt
Hallo zusammen,
ich möchte gern mit einem Makro die Zellen (A2:C30) die den Namen der Sheet haben farbig z.b.
hell gelb einfärben aber auch später löschen können.
gruß
kurt k
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen färben nach Sheet Namen
10.08.2017 12:54:44
ChrisL
Hi Kurt
Sub t()
Dim ar As Variant, i As Integer, rng As Range
ReDim ar(ThisWorkbook.Sheets.Count - 1) As Variant
For i = 0 To ThisWorkbook.Sheets.Count - 1
ar(i) = ThisWorkbook.Sheets(i + 1).Name
Next i
For Each rng In ThisWorkbook.Worksheets("Tabelle1").Range("A2:C30")
If IsError(Application.Match(rng, ar, 0)) Then
rng.Interior.Color = xlNone
Else
rng.Interior.Color = vbYellow
End If
Next rng
End Sub

cu
Chris
Anzeige
Ja aber ...
10.08.2017 13:33:19
Kurt
Hallo Chris,
das klappt soweit aber es werden die Namen der 3 Sheets ebenfalls
gefärbt.
Es sollte nur der Name der aktiven Sheet eingefärbt werden.
gruß
kurt k
AW: Ja aber ...
10.08.2017 13:37:55
ChrisL
Hi Kurt
Es kann nur ein Sheet aktiv sein. Meinst du die selektierten Sheets oder die sichtbaren Sheets?
cu
Chris
Anzeige
Habs geändert ! -)
10.08.2017 13:39:06
Kurt
Hallo Chris,
ich habe die Zeile:
ar(i) = ThisWorkbook.Sheets(i + 1).Name
so geändert:
ar(i) = ThisWorkbook.ActiveSheet.Name
ich hoffe das ist so i.o.,
gruß
kurt k
AW: Habs geändert ! -)
10.08.2017 13:43:20
ChrisL
Hi Kurt
Die Array-Schleife brauchst du bei nur einem Blatt nicht...
Sub t()
Dim rng As Range
For Each rng In ThisWorkbook.Worksheets("Tabelle1").Range("A2:C30")
If rng = ActiveSheet.Name Then
rng.Interior.Color = vbYellow
Else
rng.Interior.Color = xlNone
End If
Next rng
End Sub

cu
Chris
Anzeige
Danke !!! -)
10.08.2017 14:05:27
Kurt
;

Forumthreads zu verwandten Themen

Pfeilfarbe- und Bewegung abhängig von Zellwerten
Zellwerten

Hallo zusammen,
unter Online-FAQ bin ich über folgenden Code gestolpert.
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1:B1")) Is Nothing Then Exit Sub With Shapes("Autoform 1") If Range("A1").Value > Range("B1") Then .Rotation = 90# .Fill.ForeCol...
06.11.2008 20:47:00
Thread-ID: 1022428
8 Beiträge
Farbe von Diagrammsäulen in Abhängigkeit von Wert?
Diagrammsäulen

Kann man die Farbe einer Diagrammsäule in Abhängigkeit vom Wert einer bestimmten Zelle ändern? (wobei der Wert der Zelle leider nicht der ist, der die Säule bestimmt, die Säule ist immer der ABS()-Wert der Zahl, die die Farbe bestimmen soll.
Ideen?
Wäre großartig...
Ulrike
17.06.2009 12:06:12
Thread-ID: 1082199
3 Beiträge
Werte nach ausgeblendeter Zellen
Lorenz

Hallo Excelianer
Gibt es eine fertige (Formel) bzw. Funktion mit der man bei fixiertem Fenster den Wert anzeigen kann, der unmittelbar nach der Linie(Begrenzung des geteilten Fensters). Wenn z. B. nach Spalte D fixiert ist und bis Spalte DE gescrollt wurde, so soll in Spalte B der Zellinhal...
20.09.2009 18:45:24
Thread-ID: 1104272
7 Beiträge
Combobox in Abhängigkeit von Wert in 2. Spalte
Wert

Hallo Forum,
Ich habe in Tabelle1 eine Spalte (A2:A45) mit Mitarbeiternamen.
In der 2. Spalte wird festgehalten, ob diese MA eine bestimmte Qualifikation haben (mittels "x" quasi angekreuzt).
In Tabelle2 gibt es eine Combobox, die ich nun mit den Werten aus der o.g. Spalte befüllen...
11.10.2009 23:11:06
Thread-ID: 1108963
4 Beiträge
Zellen nach ident. Werten absuchen und einfärben
RollWeb

Hallo
Ich habe dieses "Problem" gestern bereits im Office-Loesung-Forum gepostet, bis jetzt aber leider noch keinerlei Antworten erhalten. Hoffe, dass ich hier mehr Glück habe.
Folgendes würde ich gerne mit einem Makro lösen (denke mit Formeln ist das so nicht umsetzbar...?):
Über...
16.12.2009 11:55:17
Thread-ID: 1124335
10 Beiträge
Farbe der Autoform abhängig von Zellwert ändern
Zellwert

Hallo liebe Community,
ich habe ein kleines VBA Problem und hoffe ich könnt mir etwas weiterhelfen.
In dem nachfolgenden Bild werden in Spalte "G" die Texte "WAHR" und "FALSCH" eingetragen; diese Werte werden ständig aktualisiert (von einem Server). Bei Mausklick auf den CommandButton "...
26.02.2010 12:33:36
Thread-ID: 1141728
6 Beiträge
Ausdruck nur in Abhängigkeit von Zellwert
Zellwert

Hallo Forumsmitglieder,
ich habe folgendes Problem: der Ausdruck eines Excel-Tabellenblattes soll nur möglich sein, wenn vom Nutzer in einer bestimmten Zelle ein Datumswert eingetragen wurde. Bei einer leeren Zelle bzw. Werten, die kein Datum darstellen sollte kein Ausdruck möglich sein. Wi...
01.03.2010 14:48:41
Thread-ID: 1142380
9 Beiträge
Anzeige
automatische Übernahme von Zellen nach Zellenwert
Zellen

Hallo!
Ich hab grad einen wahnsinnigen Blackout bei der Lösung folgenden kleinen Problems.
https://www.herber.de/bbs/user/68903.xls
Das Excelfile zeigt eine Werteliste auf dem Register "Daten".
Auf dem Register "Auswertung" möchte ich alle Zeilen aus dem Register mit allen Wert...
31.03.2010 14:34:29
Thread-ID: 1149655
3 Beiträge
VBA Formel in Abhängigkeit von anderem Wert
anderem

Hallo,
ich suche nach der entsprechenden VBA-Formel für die Berechnung:
=WENN(M385="Herr";"geehrter";"geehrte")
ListBox1 eines Userforms enthält den Wert "Frau" oder "Herr". Dieser Wert wird in Spalte M eingetragen.
Die oben stehende Formel soll gelöscht und stattdessen in den V...
21.04.2010 14:38:27
Thread-ID: 1153137
8 Beiträge
Anzeige
Zellfüllfarbe abhängig von Zellinhalt?
Zellinhalt?

Hallo Leute,
wie kann ich per VBA folgendes erreichen:
Wenn in Spalte B ab Zeile 3 (bis letzte Zelle mit Inhalt der Spalte B) die Zelle dieses Zeichen enthält %,
dann soll diese Zelle mit Füllfarbe 44 dargestellt werden. Wenn in der Zelle dies /temp vorkommt, dann soll die Zelle mit...
02.07.2010 12:59:59
Thread-ID: 1165121
5 Beiträge
VBA Zellen je nach Inhalt einfärben
jens

Hallo Excel-Profis,
ich habe ein Makro das mir einen Bereich durchgeht und die Zellen je nach inhalt färbt:
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Sheets("Reservierung (3)").Select Dim RaBereich As Range, RaZelle As Range Set RaBereich = Range("B8:P48") 'Set RaBereic...
28.10.2010 12:00:06
Thread-ID: 1184257
7 Beiträge
Drucken in Abhängigkeit von Spaltenwert
Spaltenwert

Hallo Zusammen,
gibt es eine Möglichkeit eine Excel Liste in Abhängigkeit von Zellwerten drucken zu können?
Erklärung: In der Zeile 1 stehen die Überschirften der Liste. In den Zellen A2 bis Axxx sind die Kriterien nach denen ich den Druck steuern möchte. Z.B. steht in A2 eine "1" in A3...
24.11.2010 12:20:50
Thread-ID: 1188490
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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