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 Molares vom 03.09.2021, 15:20 Options
Makro Leere Spalten löschen ab Zeile 2
Hallo,
ich habe hier im Forum schon ein Makro gefunden, dass alle leeren Spalten löscht.
Dim leere_Spalte As Integer
Application.ScreenUpdating = False
For leere_Spalte = 256 To 1 Step -1
If Application.CountA(Columns(leere_Spalte)) = 0 Then
Columns(leere_Spalte).Delete
End If
Next
Ich habe jedoch in der ersten Zeile jeweils für jede Spalte eine Überschrift stehen und somit ist ja keine Spalte leer.
Wie kann man das Makro anpassen, dass er erst alle leeren Spalten ab Zeile 2 löscht?
ich habe hier im Forum schon ein Makro gefunden, dass alle leeren Spalten löscht.
Dim leere_Spalte As Integer
Application.ScreenUpdating = False
For leere_Spalte = 256 To 1 Step -1
If Application.CountA(Columns(leere_Spalte)) = 0 Then
Columns(leere_Spalte).Delete
End If
Next
Ich habe jedoch in der ersten Zeile jeweils für jede Spalte eine Überschrift stehen und somit ist ja keine Spalte leer.
Wie kann man das Makro anpassen, dass er erst alle leeren Spalten ab Zeile 2 löscht?
Antwort 1 von Hajo_Zi vom 03.09.2021, 15:40 Options
Hallo Molares,
es soll als Spale C2:C6536 zu B2:B65536 werden?
Gruß Hajo
es soll als Spale C2:C6536 zu B2:B65536 werden?
Gruß Hajo
Antwort 2 von Molares vom 04.09.2021, 08:03 Options
Äh nein,
das Problem ist, dass ja in Zeile 1 immer etwas steht, also für jede der Spalten ist da ja eine Überschrift enthalten.
Heißt A1, B1, C1, D1, E1 etc. haben alle INhalt und somit gibt es keine Spalte, die komplett leer ist.
Es gibt aber Spalten, die leer sind, wenn man sich die Überschriften wegdenkt.
Das heißt, das Makro soll alle Spalten erst ab zeile 2 durchsuchen und nicht schon die erste mit.
Angenommen Spalte D ist leer. Komplett. Dann steht jedoch immer noch in Spalte D1 etwas drinnen und somit erkennt das Makro die Spalte nicht als leer an.
Also alle Spalten erst ab der zweiten Zeile überprüfen und die erste Zeile aus lassen.
das Problem ist, dass ja in Zeile 1 immer etwas steht, also für jede der Spalten ist da ja eine Überschrift enthalten.
Heißt A1, B1, C1, D1, E1 etc. haben alle INhalt und somit gibt es keine Spalte, die komplett leer ist.
Es gibt aber Spalten, die leer sind, wenn man sich die Überschriften wegdenkt.
Das heißt, das Makro soll alle Spalten erst ab zeile 2 durchsuchen und nicht schon die erste mit.
Angenommen Spalte D ist leer. Komplett. Dann steht jedoch immer noch in Spalte D1 etwas drinnen und somit erkennt das Makro die Spalte nicht als leer an.
Also alle Spalten erst ab der zweiten Zeile überprüfen und die erste Zeile aus lassen.
Ähnliche Themen
Zeile mit "Auftrag" + Leerzeilen löschen (Makro)
SteffenL 07.03.2008 - 38 Hits - 2 Antworten
2 spalten per makro kopieren
johnjohn 31.07.2008 - 4 Hits - 4 Antworten
Zeile löschen ohne "Zeile zu löschen"?
korfuweb 12.08.2008 - 20 Hits - 3 Antworten
Spalten per Makro einblenden
speedy71 21.12.2008 - 41 Hits - 5 Antworten
Mit Makro in neu eingefügte Zeile springen
Johannes94 16.08.2009 - 283 Hits - 10 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
