Spalten-Makro für mehrere Spalten gültig machen
05.11.2003 12:05:02
Andreas
ich würde mich freuen, wenn mir hierzu jemand helfen könnte:
Ich habe hier ein Makro, welches die leeren Zellen der 3. Spalte löscht.
Da meine Tabelle aber sehr viele Spalten hat, möchte ich es automatisiert über die Gesamtzahl an Spalten laufen lassen. Wer hat da einen Tipp für mich?
Vielen Dank im Voraus,
Andreas
Hier das Makro:
Sub Zellenlöschenwennleer()
Application.ScreenUpdating = False
Dim RS As Long
Dim Letzte As Long
Letzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
For RS = Letzte To 1 Step -1
If Cells(RS, 3) = "" Then
Cells(RS, 3).Delete Shift:=xlUp
End If
Next
Application.ScreenUpdating = True
End Sub