Supportnet / Forum / Tabellenkalkulation
Nullen in Zellen und Spalten löschen !!!
Frage
Hallo Leute,
ich habe eine Auswertung, die über 200 Spalten und 45000 Zeilen geht.
Ich bräuchte ein Makro, was die Spalten, deren Summe gleich Null ist, löscht, und die Spalte, rechts von der gelöschten nach rechts verschiebt.
Würde mich über eine Lösung sehr freuen !
Danke und bis bald.
Diogenessos
Antwort 1 von rainberg
Hallo,
folgendes Makro löscht alle Spalten mit der Spaltensumme=0.
Der Code geht davon aus, dass sich in Zeile 1 eine Spaltenüberschrift befindet.
Option Explicit
Sub spalte_loeschen()
Dim intI As Integer
Application.ScreenUpdating = False
For intI = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
If WorksheetFunction.Sum(Range(Cells(2, intI), Cells(65536, intI))) = 0 Then
Columns(intI).Delete Shift:=xlToLeft
End If
Next
Application.ScreenUpdating = True
End Sub
Gruß
Rainer
folgendes Makro löscht alle Spalten mit der Spaltensumme=0.
Der Code geht davon aus, dass sich in Zeile 1 eine Spaltenüberschrift befindet.
Option Explicit
Sub spalte_loeschen()
Dim intI As Integer
Application.ScreenUpdating = False
For intI = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
If WorksheetFunction.Sum(Range(Cells(2, intI), Cells(65536, intI))) = 0 Then
Columns(intI).Delete Shift:=xlToLeft
End If
Next
Application.ScreenUpdating = True
End Sub
Gruß
Rainer