|
VBA - Bereich löschen wenn ungleich MR |
 |
 |
 |
|
Geschrieben von: Marcus Rose
|
|
Sonntag, 27. April 2008 um 15:52 Uhr |
|
Hier wird der Inhalt eines Bereiches gelöscht, falls in den Zellen etwas anderes als MR steht.
Option Explicit
Sub Leer()
Dim Loletzte As Long
Dim cell As Range
Loletzte = IIf(IsEmpty(Range("A65536")), Range("A65536") _
.End(xlUp).Row + 1, 65536)
For Each cell In Range(Cells(Loletzte, 1), Cells(19, 7))
If cell <> "MR" Then cell.ClearContents
Next cell
End Sub
|
|
Zuletzt aktualisiert am Sonntag, 27. April 2008 um 15:59 Uhr |
VBA Makro Beispiele 