Office: Makro um Felder zu formatiern

Hallo,
in diesem Forum bin ich bis jetz immer am besten beholfen worden, deshalb stell ich diese Frage auch wieder hier.:D

Also ich brauche ein Makro das eine Spalte nach leeren feldern durchsucht.
In der Zeile in der es die leeren Felder gefunden hat soll die Zelle in Spalte A rot formatiert werden.

zum Beispiel:
Makro durchsucht Tabelle C6:C100.
Bei C12 ist der Wert 0 oder die Zelle eben leer.
Dann soll Zelle A12 rot makiert werden, da ja C12 leer ist.

Das wars eigentlich schon. Ich habs versucht aber VB hat immer wieder nicht das gemacht was ich gewollt habe:D
Könnt ihr mir en Tipp geben wie der Code auszusehen hat?

Wäre echt net von euch! Danke schonmal im Vorraus!
bis dann
fexs

 

Hallo,

nachfolgend das gewünschte VBA-Makro - am besten in ein allgem. Codemodul kopieren:

Code:

Public Sub LeereZellenKennzeichnen()
  Dim Zelle As Range
  For Each Zelle In Selection.Cells
    With Zelle
      If IsEmpty(.Value) Or .Value = 0 Then
        Cells(.Row, 1).Interior.Color = vbRed
      End If
    End With
  Next Zelle
End Sub

Da Du offenbar zwischen 0 und leer nicht unterscheidest, habe ich Dir beide Fälle eingebaut.
Das Makro geht davon aus, dass im Arbeitsblatt ein Zellbereich markiert ist; dieser wird Zelle für Zelle getestet und gegebenenfalls wird dann die Zelle in Spalte A der betroffenen Zeile rot eingefärbt.

 

Hallo,
danke aber es soll ja nicht der gerade markierte Bereich sondern ein fester bereich sein. Mit Cells () hab ichs versucht wird aber nix.
ich will das Makro dann einem Button zuweisen.
lg
-------------------------
achso ja un des hab ich auchnoch vergessen:
wenn "N/A" in der Zelle steht sollte es auch Rot werden.
Und dann bräuchte ich noch was das das alles wieder zurücksetzt..:D
Wie mach ich das?? :-(

 

Hallo,

einfach Selection.Cells durch Range("C6:C100").Cells ersetzen, wenn Du im aktiven Arbeitsblatt zB. den Bereich C6:C100 durchsuchen/testen willst.

Code:

Public Sub LeereZellenKennzeichnen()
  Dim Zelle As Range
  For Each Zelle In Range("C6:C100").Cells
    With Zelle
      If IsError(.Value) Then
        If .Value = CVErr(2042) Then
          Cells(.Row, 1).Interior.Color = vbRed
        End If
      ElseIf IsEmpty(.Value) Or .Value = 0 Then
        Cells(.Row, 1).Interior.Color = vbRed
      End If
    End With
  Next Zelle
End Sub

EDIT:
Ich habe leider erst hinterher gesehen, dass Du auch #NV getestet haben willst. Ist jedoch ein anderer Fehlerwert im Bereich enthalten, wird er übergangen.

 

Hey toll danke!
Ich werds versuchen.
Ich wollte garnicht den Fehler #NV getestet haben sondern nur den einfachen Inhalt "N/A" aber das werd ich schon selbe irgendwie hinbekommen denk ich.
Also danke nochmal!
Bis zum nächsten mal:D (hoffe bald kann ich hier auch mal jemand weiterhelfen damit es nicht so einseitig wird)
Gruß fexs

 

Hallo,

falls N/A eine simple Textkonstante sein sollte, dann genügt folgendes Makro:

Code:

Public Sub LeereZellenKennzeichnen() 
  Dim Zelle As Range 
  For Each Zelle In Range("C6:C100").Cells 
    With Zelle 
      If .Value = "N/A" Then 
        Cells(.Row, 1).Interior.Color = vbRed 
      ElseIf IsEmpty(.Value) Or .Value = 0 Then 
        Cells(.Row, 1).Interior.Color = vbRed 
      End If 
    End With 
  Next Zelle 
End Sub

 

Ja nach langem probiern hab ichs selbst rausbekommen xD
danke nochmal!!
mfg

 

Hallo!

Ihr bedenkt aber bitte schon, dass es in Excel auch die "eingebaute" Bedingte Formatierung gibt, oder?

Im Allgemeinfall arbeitet diese VIEL schneller und effektiver als eine VBA-Lösung!

 

Ja aber damit geht es nicht. Ich brauche 10 Buttons oder so die alle die selbe Spalte Rot markiern. Aber alle an einer anderen Stelle. Dann brauche ich auchnoch einen Button der das alles wieder zurücksetzt. Mit der bedingten Formatierung wäre das alles konstant rot oder eben ohne Füllung.
fexs