Spalten-Makro für mehrere Spalten gültig machen

Bild

Betrifft: Spalten-Makro für mehrere Spalten gültig machen
von: Andreas
Geschrieben am: 05.11.2003 12:05:02

Hallo allerseits,

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

Bild


Betrifft: AW: Spalten-Makro für mehrere Spalten gültig machen
von: WernerB.
Geschrieben am: 05.11.2003 12:15:45

hallo Andreas,

versuche es mal damit (ungetestet):

Sub Zellenlöschenwennleer()
Dim RS As Long, Letzte As Long
Dim i As Integer, laC As Integer
    Application.ScreenUpdating = False
    Letzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    laC = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
    For i = laC To 1 Step -1
      For RS = Letzte To 1 Step -1
        If Cells(RS, i) = "" Then
          Cells(RS, i).Delete Shift:=xlUp
        End If
      Next RS
    Next i
    Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).


Bild


Betrifft: AW: Spalten-Makro für mehrere Spalten gültig machen
von: Andreas
Geschrieben am: 05.11.2003 12:52:48

Hallo Werner,

Super, es hat geklappt!

Vielen Dank und Gruß,

Andreas


Bild


Betrifft: AW: Spalten-Makro für mehrere Spalten gültig machen
von: Andi_H
Geschrieben am: 05.11.2003 12:17:09

Hi Namenskollege,
versuch das mal


Sub Zellenlöschenwennleer()
Application.ScreenUpdating = False
Dim RS As Long
Dim Letzte As Long
Dim Lcol,i as Integer
Letzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Lcol = activesheet.usedrange.specialcells(xlcelltypelastcell).column
for i = 1 to Lcol
For RS = Letzte To 1 Step -1
If Cells(RS, i) = "" Then
Cells(RS, i).Delete Shift:=xlUp
End If
Next
Next
Application.ScreenUpdating = True
End Sub



Gruß
Andi


Bild


Betrifft: AW: Spalten-Makro für mehrere Spalten gültig machen
von: Andreas
Geschrieben am: 05.11.2003 12:53:52

Hallo Andi,

vielen Dank für die Hilfe, es klappt!

Gruß,

Andreas


Bild

Beiträge aus den Excel-Beispielen zum Thema " Spalten-Makro für mehrere Spalten gültig machen"