Office: Fehler abfangen VBA

Hallo,

ich habe einen Code, in dem die selektierten LEEREN Zellen mit einer Null aufgefüllt werden soll. Das funktioniert auch. Aber wenn in dem Bereich keine leeren Zellen vorhanden sind, kommt ein Laufzeitfehler "Keine Zellen gefunden"- was ja auch logisch ist. Wie kann ich diesen Fehler abfangen?

Hier mein Code:

Code:

Range("A1:B5").SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "0"

Das Programm soll dann einfach in der nächsten Zeile des Codes weiterarbeiten.

Ich benutze Excel 2010
Danke

 

Hallo!

If Not Range("A1:B5").SpecialCells(xlCellTypeBlanks) Is Nothing Then...

 

Hi Marius,

zähle einfach die leeren Zellen im Bereich:

Code:

   If Range("A1:B5").SpecialCells(xlCellTypeBlanks).Count > 0 Then _
      Range("A1:B5").SpecialCells(xlCellTypeBlanks) = 0

Bis später,
Karin

 

Prima, danke!

 

Ich habe beide Versionen nun probiert, aber beide funktionieren nicht.
Es kommt immer der Laufzeitfehler "Keine Zellen gefunden"
Hier die beiden Codes:

Code:

Sub Nullen_auffuellen1()
    If Not Range("A1:B5").SpecialCells(xlCellTypeBlanks) Is Nothing Then _
        Range("A1:B5").SpecialCells(xlCellTypeBlanks) = 0
End Sub

Sub Nullen_auffuellen2()
    If Range("A1:B5").SpecialCells(xlCellTypeBlanks).Count > 0 Then _
      Range("A1:B5").SpecialCells(xlCellTypeBlanks) = 0
End Sub

 

Hi Marius,

ist das Tabellenblatt leer (also neu erstellt)? Dann ist das logisch, denn xlCellTypeBlanks bezieht sich immer auf Zellen im benutzten Bereich eines Tabellenblattes und ein neues Tabellenblatt hat noch keinen benutzten Bereich.
Wenn du z.B. etwas in A2 und in B3 einträgst (auf einem neuen Tabellenblatt) und den Code laufen lässt, tritt kein Fehler auf, aber es werden nur die Zellen A1, A3, B1, B2 mit 0 gefüllt, obwohl du als Bereich A1:B5 angegeben hast - der benutzte Bereich endet aber in Zeile 3.

Bis soäter,
Karin

 

Hallo,

das Blatt ist nicht neu. In dem Bereich steht immer etwas drin, manchmal sind alle Zeilen gefüllt, manchmal nur ein paar.
Wenn alle Zellen gefüllt sind tritt ja der Fehler auf... und den Fehler will ich ja abfangen.

Anbei meine Beispiel

 

Hi Marius,

Code:

Sub Nullen_auffuellen2()
   Dim lngAnzahl As Long
   On Error Resume Next
   lngAnzahl = Range("A1:B5").SpecialCells(xlCellTypeBlanks).Count
   On Error GoTo 0
   If lngAnzahl > 0 Then _
      Range("A1:B5").SpecialCells(xlCellTypeBlanks) = 0
End Sub

Wenn du ohne On Error auskommen willst, musst du über jede Zelle im Bereich laufen und prüfen, ob sie leer ist:

Code:

Sub NullenAusffuellen()
   Dim rngZelle As Range
   For Each rngZelle In Range("A1:B5")
      If IsEmpty(rngZelle) Then rngZelle = 0
   Next rngZelle
End Sub

Bis später,
Karin

 

Danke, so gehts!!!