verschieden gleiche Zellen in einer Matrix mit Makro löschen?

10/07/2008 - 22:27 von Josef Gietzen | Report spam
Hallo NG,

in einer Matrix A1:AA27 stehen in verschiedenen Zellen ein "x".
Wenn diese nicht mehr benötigt werden sollen Sie alle auf einen
Schlag möglichst mit Makro oder VBA-Script gelöscht werden.

Bisher markiere ich jede betroffene Zelle einzeln und benutze
dann den Button "Löschen".

Das würde ich gern vereinfachen.

Dank und Gruß
Josef
 

Lesen sie die antworten

#1 Claus Busch
10/07/2008 - 22:35 | Warnen spam
Hallo Josef,

Am Thu, 10 Jul 2008 22:27:23 +0200 schrieb Josef Gietzen:

in einer Matrix A1:AA27 stehen in verschiedenen Zellen ein "x".
Wenn diese nicht mehr benötigt werden sollen Sie alle auf einen
Schlag möglichst mit Makro oder VBA-Script gelöscht werden.

Bisher markiere ich jede betroffene Zelle einzeln und benutze
dann den Button "Löschen".



dann probiers mal so:
Sub Loeschen()

Dim rngZelle As Range

For Each rngZelle In Range("A1:AA27")
If rngZelle.Value = "x" Then
rngZelle.ClearContents
End If
Next

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen