Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

bestimmten Bereich ändern

Forumthread: bestimmten Bereich ändern

bestimmten Bereich ändern
Erwin
Hallo Experten
ich habe in meiner Tabelle den Inhalt des Bereiches c11 bis e13 nach bestimmten Eingaben mit color.index=2 weiß schreiben lassen und somit momentan unsichtbar. Jetzt möchte ich, dass wenn alle Felder ausgefüllt sind, die Schriftfarbe wieder auf schwarz gesetzt wird.
Mit

Sub zeigen()
dim rgn as Range
set rgn = Range("c11:e13")
if rgn  "" then
rgn.colorindex=0
end if
End Sub

klappt es nicht.
Hat jemand eine Idee, wies funktioniert
Wäre super
Danke im voraus
Erwin
Anzeige

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

Betreff
Benutzer
Anzeige
AW: bestimmten Bereich ändern
09.02.2010 18:28:44
Tino
Hallo,
stelle die Farbe normal wie die Werte angezeigt werden sollen und
verwende die Formateinstellung für die Anzeige.
Dim rgn As Range
Set rgn = Range("c11:e13")
With Application.WorksheetFunction
If .CountIf(rgn, "") > 0 Then
rgn.NumberFormat = "General"
Else
rgn.NumberFormat = ";;;"
End If
End With
Gruß Tino
Anzeige
AW: rgn.Font.ColorIndex = 0 owT.
09.02.2010 18:30:15
Chris
Gruß
Chris
AW: Funktioniert nicht
09.02.2010 19:27:22
Erwin
Hallo Tino und Chris,
tut mir leid, passiert nichts. Bei Tion's Tipp bleibt alles gleich, also weiß und damit "ausgeblendet" und bei Chris's Tipp kommt die Meldung Laufzeitfehler 13. Typen unverträglich.
Trotzdem Danke
Erwin
AW: Problem gelöst!
09.02.2010 19:34:06
Erwin
Hallo Tino und Chris,
ich habs jetzt so gelöst:
Sub zeigen()
If Range("c11") "" And Range("d11") "" And Range("e11") "" _
And Range("c12") "" And Range("d12") "" And Range("e12") "" _
And Range("c13") "" And Range("d13") "" And Range("e13") "" Then
Range("c11:e13").Select
Selection.Font.ColorIndex = 0
End If
Danke nochmals für eure Hilfe
Erwin
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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