VBA – Programmierung mit Excel Grundlagen

Löschen von Zellinhalten und Zeilen
Range("B3") = Cdate("31.12.99")
Das aktuelle Datum wird zugewiesen über:
Range("B3") = Date
die aktuelle Zeit mit:
Range("B3") = Time
✘ Tips zu Praxislösungen:
1. Zuweisen von Werten in Abhängigkeit von Werten anderer Zellen.
Sub Zuweisung()
If IsNumeric(Range("B2").Value) Then
ActiveCell.Value = Cells(3, ActiveCell.Column).Value * 0.75
Else
MsgBox "Zelle B2 nicht numerisch"
End If
End Sub
2. Füllen eines Bereiches in Abhängigkeit von Werten in seinen Zellen
Sub Ersatz()
For Each Wert In Range("B3:C4")
If IsNumeric(Wert.Value) Then
Wert.Value = Wert.Offset(0, 3).Value * Wert.Value
Else
Wert.Value = 0
End If
Next Wert
End Sub
Sind die Werte in B3:C4 numerisch werden sie mit den Werten der drei Spalten weiter
rechts liegenden Zellen multipliziert. Die Ursprungswerte werden überschrieben. Für
nicht numerische Werte soll das Ergebnis 0 sein.
Sollen die Nullen nicht im Tabellenblatt erscheinen, wird der Else – Zweig in der Form
Wert.Value = Empty
benutzt. Dies gleicht der Funktionskombination (EXTRAS / OPTIONEN / ANSICHT /
NULLWERTE) von Excel.
10.4 Löschen von Zellinhalten und Zeilen
Zellen oder Zellbereiche können unterschiedliche Inhalte besitzen. Neben numerischen oder
alphanumerischen Werten und Formeln können es Formatierungen (incl. Rahmen,
Füllfarben, Muster) und Kommentare,. sein. Daher ist auch die Menge der Löschoptionen
differerent:
CLEAR Löscht im angegebenen Bereich alle Einträge und Formatierungen.
CLEARCONTENTS Löscht im angegebenen Bereich alle Einträge
CLEARCOMMENTS Löscht im angegebenen Bereich alle Kommentare.
CLEARFORMATS Löscht im angegebenen Bereich alle Formate
DELETE Löscht Zellen
Worksheets("Tabelle1").Range("B3").Clear
Worksheets("Tabelle1").Range("B3").ClearContents
Worksheets("Tabelle1").Range("B3").ClearFormats
Seite 75