Zellen färben

Hallo zusammen,
Ich stehe mal wieder auf dem Schlauch und benötige Eure Hilfe!
Bisheriger Stand!
Ich habe in meienm Excelsheet einen Bereich mit einem Namen versehen und kontrolliere diesen Bereich!
Dazu habe ich folgendes Makro

Private Sub CommandButton3_Click()
ActiveWorkbook.Names.Add Name:="Prüfen", RefersTo:= _
"=Tabelle1!C4,Tabelle1!C5"
Dim z As Range
Dim Leer As String
For Each z In Tabelle1.[Prüfen]
If z.Value = "" Then _
Leer = Leer & z.Address & ", "
Next
If Len(Leer) = 0 Then Exit Sub
Leer = Left(Leer, Len(Leer) - 2)
MsgBox "Die Zellen " & Leer & " müssen noch ausgefüllt werden."
End Sub

hier lass ich mir also anzeigen, welche Zelle noch leer ist!
Die MSGBox benennt mir die Zellen!
Mein Problem ist nun:
Ich möchte gern die benannten Zellen färben und weiß nicht wie ich es anstellen soll!
Kann mir hierzu jemand einen Tip geben?
Lg Lisa

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() ActiveWorkbook.Names.Add Name:="Prüfen", RefersTo:= _ "=Tabelle1!C4,Tabelle!C5" Dim z As Range Dim Leer As String For Each z In Sheet1.[Prüfen] If z.Value = "" Then Leer = Leer & z.Address & ", " z.Interior.Color = 65535 'gelb End If Next If Len(Leer) = 0 Then Exit Sub Leer = Left(Leer, Len(Leer) - 2) MsgBox "Die Zellen " & Leer & " müssen noch ausgefüllt werden." End Sub

Sub Test_Leer_Zellen() Dim z As Range ActiveWorkbook.Names.Add Name:="Prüfen", RefersTo:= _ "=Tabelle1!C4,Tabelle1!C5" Tabelle1.[Prüfen].Interior.Color = xlNone On Error Resume Next Set z = Tabelle1.[Prüfen].SpecialCells(xlCellTypeBlanks) On Error GoTo 0 If Not z Is Nothing Then z.Interior.Color = vbYellow MsgBox "Die Zellen " & z.Address(0, 0) & " müssen noch ausgefüllt werden." End If End Sub

…die (auch) von Anderen genutzt wdn nicht generell so machen, Matti,
da dann bei gesperrtem Projekt nur die Meldung Fehler in verborgenem Modul kommt (für Testzwecke ist es aber so iO). Damit dürfte der jeweilige Nutzer kaum etwas anfangen können. In solchen Fällen, anfängl wurde ja On Error Resume Next verwendet, ist es besser, diese „unvorhergesehenen Fehler“ durch eine Fehlerbehandlungsroutine mit Meldung abzufangen, also zB On Error GoTo fx und unten fx: MsgBox Err.Description, vbCritical, "InternFehler " & Err.Number. Die Meldung könnte ggf noch die Bezeichnung des PgmTeils enthalten, in dem der Fehler auftrat.
Im Übrigen enthält die neue VBA-Hilfe eine sehr ausführliche Beschreibung des Ganzen.
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen färben

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread