Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Code: Spalten löschen wenn Summe gleich Null
 14.08.2023 11:11:00 khafif
NotSolved
14.08.2023 11:49:35 Flatulenz
*****
Solved
14.08.2023 11:55:15 Gast9796
*****
Solved
14.08.2023 14:23:01 Gast7970
*****
Solved

Ansicht des Beitrags:
Von:
khafif		 Datum:
14.08.2023 11:11:00		 Views:
929		 Rating:
     
Antwort:
  Ja
Thema:
VBA Code: Spalten löschen wenn Summe gleich Null

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Code: Spalten löschen wenn Summe gleich Null
 14.08.2023 11:11:00 khafif
NotSolved
14.08.2023 11:49:35 Flatulenz
*****
Solved
14.08.2023 11:55:15 Gast9796
*****
Solved
14.08.2023 14:23:01 Gast7970
*****
Solved