Hallo zusammen,
in dieser Beispeiltabelle möchte ich ganze Spalten löschen, deren Spaltensumme = 0 ist.
Spalte A |
Spalte B |
Spalte C |
Spalte D |
Spalte E |
Spalte F |
Spalte G |
Spalte H |
Holz |
45 |
- |
- |
0 |
6 |
4 |
0 |
Papier |
6 |
- |
0 |
0 |
3 |
0 |
0 |
Tier |
83 |
- |
- |
0 |
4 |
8 |
0 |
- |
5 |
- |
0 |
0 |
1 |
7 |
0 |
Das ist mein VBA Code. Wenn ich ihn ausführe, passiert nichts. Kann jemand helfen?
Sub SpaltenLöschen()
AnzahlSpalten = ActiveSheet.UsedRange.Columns.Count
For Spalte = AnzahlSpalten To 1 Step -1
If WorksheetFunction.Sum(Spalte) = 0 Then
Columns(Spalte).EntireColumn.Delete
End If
Next Spalte
End Sub
|