Deinitialisierung leerer numerischer Zellen

mein VBA-Level: befriedigend
Hallo Freunde,
die Zellen einer Spalte im UsedRange einer Tabelle von mir sind als numerisch formatiert. Wenn dort
schon einmal Werte eingetragen waren und anschließend gelöscht wurden, ergibt eine Prüfung mit
dem Programm


Public Sub ZellenPruefen()
MsgBox IsEmpty(ActiveCell.Value)
End Sub

den Booleschen Wert "FALSE". Zellen, die noch nie initialisiert wurden, z.B. solche außerhalb des
UsedRange, liefern dagegen das Ergebnis "TRUE".
Nun hatte ich früher einmal folgendes Programm geschrieben, mit dem man initialisierte Zellen
deinitialisieren kann, wenn sie für das Auge leer sind:
For Each c In ActiveSheet.UsedRange
If c.Value = Chr(32) or c.Value = "" Then
c.Value = NULL
End If
Next c
Das funktioniert aber offenbar nicht bei für das Auge leeren (d.h. auf dem Bildschirm weiß erscheinenden)
numerischen Zellen.
Frage: Wie muss ich obigen Makro ändern, damit auch optisch leere numerische Zellen mit
deinitialisiert werden können?
Vielleicht weiß jemand von euch Rat. Dank!! Werner R.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
habe hier mal was mit VBA zusammengebaut.
Es wird die zuerst nach der letzten benutzen Zelle gesucht, Formel bzw. Wert.
Der Bereich darunter wird gelöscht.
Funktioniert aber nur für den unteren Bereich, für den rechten müsste man es noch erweitern.
Die Änderung wird erst nach dem speichern, schließen und erneuten öffnen wirksam.

Option Explicit

Sub TestEmpty()
Dim Bereich As Range
Dim rFormelZelle As Range, rValueZelle As Range, rZelle As Range
Dim booLauf As Boolean
Dim LRow As Long

With Sheets("Tabelle1")

     'UsedRange 
     Set Bereich = .UsedRange
     'Suche letzte Zelle mit Formel 
     Set rFormelZelle = Bereich.Find("*", , xlFormulas, 2, 1, 2, False, False)
     'letzte Zelle mit Wert 
     Set rValueZelle = Bereich.Find("*", , xlValues, 2, 1, 2, False, False)
     
     'Prüfe welche davon die letzte ist 
     If rFormelZelle.Row <= rValueZelle.Row Then
       Set rZelle = rValueZelle
     ElseIf rFormelZelle.Column <= rValueZelle.Column Then
       Set rZelle = rValueZelle
     Else
      Set rZelle = rFormelZelle
     End If
     
     'Den Bereich bestimmen nach der letzten benutzten Zelle 
     Set Bereich = .Range(rZelle, .Cells.SpecialCells(xlCellTypeLastCell))
    
    'Schleife über diesen Bereich 
    For Each Bereich In Bereich
     'prüfe ob gleiche Zeile wie letzte, ohne die letzte 
     '= nicht gleiche Zeile, kann der Rest gelöscht werden. 
     If Bereich.Row > LRow And booLauf = True Then
      Set Bereich = .Range(.Cells(Bereich.Row, 1), .Cells(.Rows.Count, .Columns.Count))
      Bereich.Clear: Exit For
     End If
      booLauf = True: LRow = Bereich.Row
    Next Bereich
End With


End Sub

Gruß Tino

Sub TestEmpty() Dim Bereich As Range Dim rFormelZelle As Range, rValueZelle As Range, rZelle As Range Dim booLauf As Boolean Dim LRow As Long With Sheets("Tabelle1") 'UsedRange Set Bereich = .UsedRange 'Suche letzte Zelle mit Formel Set rFormelZelle = Bereich.Find("*", , xlFormulas, 2, 1, 2, False, False) 'letzte Zelle mit Wert Set rValueZelle = Bereich.Find("*", , xlValues, 2, 1, 2, False, False) 'Prüfe welche davon die letzte ist If rFormelZelle.Row <= rValueZelle.Row Then Set rZelle = rValueZelle Else Set rZelle = rFormelZelle End If If rZelle.Row < .Rows.Count Then Set Bereich = .Range(.Cells(rZelle.Row + 1, 1), .Cells(.Rows.Count, .Columns.Count)) Bereich.Clear End If End With End Sub

Beliebteste Forumthreads (12 Monate)

Deinitialisierung leerer numerischer Zellen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread