Supportnet Computer
Planet of Tech

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

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: