Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1136to1140
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
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige