Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1572to1576
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
1572to1576
1572to1576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Anzeige
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
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

169 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
Diagramm - Balkenfarben in Abhängigkeit vom Wert
kathy

Guten Morgen Leute,
ist es in einem Excel-Balkendiagramm möglich, die Balkenfarbe je nach Wert, z.B. Abteilung 1 = rot, Abteilung 2 = blau usw. automatisch zu verädern?
Bin für jede Hilfe dankbar.
Gruß
kathy
08.02.2010 09:57:33
Thread-ID: 1136677
9 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
Kopieren und Einfügen Abhängig von Zellenwert
Zellenwert

Guten morgen und Hallo,
bisher finde ich keine Hilfe für mein Excelproblem, weder ist mir selber was eingefallen, noch habe ich im www eine Lösung gefunden.
Eigentlich ist es nicht komplex was ich will und ich denke jemanden fällt sofort eine Lösung ein, ich nehme auch gerne VBA-Codes...
14.03.2010 08:58:49
Thread-ID: 1145677
12 Beiträge
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
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
2
6
3
9
8
5
8
11
2
2
6
7
4
6
1
2
4
7
3
2
16
1
10
2