Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon diogenessos vom 25.04.2019, 14:10 Options
Nullen in Zellen und Spalten löschen !!!
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
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 vom 25.04.2019, 15:17 Options
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
Ähnliche Themen
Excel - leere Zellen automatisch löschen
iridium 12.01.2007 - 265 Hits - 14 Antworten
Exel spalten löschen und leere Spalten mit 0 füllen
Sandrak 16.06.2007 - 135 Hits - 9 Antworten
Excel: Zellen kopieren
madleine 27.07.2007 - 73 Hits - 2 Antworten
Zeilen mit leeren Zellen löschen
brs 16.06.2008 - 301 Hits - 7 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
