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

Ansicht des Beitrags:
Von:
Gast9796		 Datum:
14.08.2023 11:55:15		 Views:
199		 Rating:
     
Antwort:
 Nein
Thema:
VBA Code: Spalten löschen wenn Summe gleich Null

Hi khafif.

Du übergibst der Sum-Funktion das falsche Argument - siehe https://learn.microsoft.com/en-us/office/vba/api/excel.worksheetfunction.sum.

Option Explicit

Sub SpaltenLöschen()
  
  Dim rngData As Excel.Range
  
  Set rngData = ActiveSheet.UsedRange.Columns
  
  Dim rngColumn As Excel.Range
  Dim i As Long
  
  For i = rngData.Columns.Count To 2 Step -1
    Set rngColumn = rngData.Columns(i)
    If WorksheetFunction.Sum(rngColumn.Value) = 0 Then
      Call rngColumn.Delete(xlShiftToLeft)
    End If
  Next
  
End Sub

rngColumn.Value ist bei einem Bereich nicht einfach nur ein Wert, sondern eine Liste mit Werten und genau aus diesen willst du ja die Summe berechnen; du hast in deinem Code z.B. den Wert 8 (=Spaltenanzahl) übergeben und hast deshalb 8 wieder als Ergebnis zurück bekommen.

Der Index geht hier nur bis 2, weil du bestimmt nicht die erste Spalte löschen willst, welche die Bezeichner beinhaltet.

 

Grüße

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
14.08.2023 11:11:00 khafif
NotSolved
14.08.2023 11:49:35 Flatulenz
*****
Solved
Rot VBA Code: Spalten löschen wenn Summe gleich Null
 14.08.2023 11:55:15 Gast9796
*****
Solved
14.08.2023 14:23:01 Gast7970
*****
Solved