Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Eingefärbte Zellen Wert angeben

Forumthread: Eingefärbte Zellen Wert angeben

Eingefärbte Zellen Wert angeben
02.10.2007 13:36:26
Matts
Hallo
Ich habe im Juli eine Anfrage mit obigem Titel gestellt, um eingefärbte Zellen automatisch mit einem Wert zu versehen. Damals hat mir Heiko S. sehr geholfen. Nun habe ich eine zusätzliche Frage zum Thema:
Kann man das von ihm gemachte Script auch so machen, dass nur eingefärbte Zellen mit einem Wert versehen werden, in welchen noch nichts steht? Wäre grossartig, wenn das gehen würde.
Vielen Dank. Matts

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Eingefärbte Zellen Wert angeben
02.10.2007 13:49:00
Andi
Hi,
mit Sicherheit kann man das.
Wenn Du das von ihm gemachte Script mal herzeigst, dann kann Dir auch jemand verraten, wie man das machen kann...
Schönen Gruß,
Andi

AW: Eingefärbte Zellen Wert angeben
02.10.2007 14:53:00
Matts
Hi Andi
Hier isses:

Sub FarbeInZahl()
Dim rngbereich As Range
For Each rngbereich In ActiveSheet.UsedRange
If rngbereich.Interior.ColorIndex  xlNone Then
With ActiveSheet
rngbereich.Value = .Range(.Cells(1, rngbereich.Column), .Cells(1, rngbereich.Column) _
_
)
End With
End If
Next rngbereich
End Sub


Anzeige
AW: Eingefärbte Zellen Wert angeben
02.10.2007 15:01:19
Andi
Hi,
so geht's:

Sub FarbeInZahl()
Dim rngbereich As Range
For Each rngbereich In ActiveSheet.UsedRange
If rngbereich.Interior.ColorIndex  xlNone And rngbereich.Value = "" Then
With ActiveSheet
rngbereich.Value = .Range(.Cells(1, rngbereich.Column), .Cells(1, rngbereich.Column) _
_
_
)
End With
End If
Next rngbereich
End Sub


Schönen Gruß,
Andi

Anzeige
AW: Eingefärbte Zellen Wert angeben
02.10.2007 15:30:00
Matts
So einfach, wenn man weiss wie ;-)
Funzt einwandfrei und ist mir eine sehr grosse Erleichterung.
Vielen Dank für die schnelle Hilfe Andi!

Gern geschehen... (ot)
02.10.2007 15:36:00
Andi
.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige