Supportnet / Forum / Tabellenkalkulation

Hi zusammen, habe ein Problemchen und zwar sollen alle leere Spalten in einer Tabelle automatisch ausgeblendet werden... Habe zwar ein makro für Zeilen gefunden, kann es aber nicht umschreiben :-( Hat jemand eine Idee oder bin ich auf dem völlig falschen Weg ??? Sub ausblenden() ' spalten anpassen: bei cells(reihe,Spalte) hinter dem Komma Spaltenindex ändern For i = 1 To Cells(65000, 1).End(xlUp).Row If IsEmpty(Cells(i, 1)) Then Rows(i).Hidden = True End If Next End Sub Vielen lieben Dank im Voraus für Eure Tips !! Beste Grüsse Karsten

Hi Karsten,

For i = 1 To Cells(1, 256).End(xlToLeft).Column
If IsEmpty(Cells(1, i)) Then
Columns(i).Hidden = True
End If
Next

Geprüft wird Zeile 1.

Bis später,
Karin

Hallo Karsten..
versuch es mal damit:

Sub ausblenden()
' Schleife für die 255 Spalten
For i = 1 To 255
' Wenn letzte belegte Zelle = in Zeile 1
If Sheets("Tabelle1").Cells(Rows.Count, i).End(xlUp).Row = 1 Then
' dann ..wenn Zelle in erster Zeile =NICHTS, dann ausblenden
If Sheets("Tabelle1").Cells(1, i) = "" Then Sheets("Tabelle1").Columns(i).Hidden = True
End If
Next
End Sub

Wenn alle Zellen einer Spalte leer sind, dann wird eine 1 zurückgegeben, deshalb eine Extra- Prüfung ob erste Zeile wirklich leer ist.

Probier mal aus...

Gruß Andreas

Hallo, Ihr beiden !!!
Erstmal vielen lieben Dank für eure schnellen Antworten, sorry, dass meine etwas verspätet kommt...

Das ist genau das was ich gesucht habe !!

Kann ich die Abfrage auch auf einen bestimmten Bereich festlegen,
also, dass die 1. Spalte und Zeile 1 bis 3 nicht abgefragt werden, da dort die "Überschriften stehen ? Versuche das schon mit Range ..Select, bekomme es leider nicht hin...

ich hoffe, ich nerve Euch nicht zu sehr !!!!

Beste Grüsse
Karsten

sorry, das mit der 1. Spalte war natürlich Blödsinn, denn die ist nie leer.....

Hallo Karsten...

Sub ausblenden()
' Schleife für die 255 Spalten
For i = 1 To 255
' Wenn letzte belegte Zelle = in Zeile 1
If Sheets("Tabelle1").Cells(Rows.Count, i).End(xlUp).Row <4 Then
' dann ..wenn Zelle in erster Zeile =NICHTS, dann ausblenden
If Sheets("Tabelle1").Cells(1, i) = "" Then Sheets("Tabelle1").Columns(i).Hidden = True
End If
Next
End Sub

Schreib hinter Row statt =1 einfach <4 .

Dann werden alle Spalten, die ab der vierten Zeile leer sind, ausgeblendet.

Gruß Andreas

Hi Andreas,

vielen lieben Dank für Deine Hilfe !!!

Hast mich "gerettet" ;-)

Beste Grüsse
Karsten

Hallo Karsten..

vielen Dank für die Rückmeldung.

Gruß Andreas

• Exel spalten löschen und leere Spalten mit 0 füllen
• leere Zeilen gruppieren/ausblenden
• Excel Spalten ausblenden
• Spalten ausblenden
• Spalten vermehren