Sub spaltenausblenden()
lSpa = ActiveSheet.UsedRange.Columns.Count
For i = 1 To lSpa
If Cells(2, i) = "" Then
Columns(i).EntireColumn.Hidden = True
End If
Next i
End Sub
Viel Erfolg
Holger
Sub ausbl()
For i = 1 To 256
If Cells(2, i) = "" Then
Columns(i).EntireColumn.Hidden = True
End If
Next i
End Sub
gruß selli
Sub ausbl()
Dim i As Integer
For i = 1 To 256
If len(Cells(2, i)) = 0 Then
Columns(i).Hidden = True
End If
Next
End Sub
mfg Kurt
Um leere Spalten in Excel auszublenden, wenn die Zelle in der Zeile 2 leer ist, kannst du ein einfaches VBA-Makro verwenden. Hier sind die Schritte, die du befolgen solltest:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
Kopiere den folgenden Code in das Modul:
Sub spaltenausblenden()
Dim i As Integer
For i = 1 To 256
If Len(Cells(2, i)) = 0 Then
Columns(i).Hidden = True
End If
Next i
End SubSchließe den VBA-Editor und kehre zu Excel zurück.
Drücke ALT + F8, wähle spaltenausblenden aus und klicke auf Ausführen.
Das Makro wird alle leeren Spalten in der Zeile 2 automatisch ausblenden.
Fehlermeldung: "Variable ist nicht definiert"
i in deinem Code deklariert hast, wie es im Beispiel gezeigt wird. Füge die Zeile Dim i As Integer hinzu, wenn du Option Explicit verwendest.Makro funktioniert nicht wie erwartet
Falls du kein VBA verwenden möchtest, kannst du auch die Filterfunktion in Excel nutzen:
Daten und aktiviere die Filterfunktion.Diese Methode ist jedoch nicht so automatisiert wie das VBA-Makro.
Angenommen, du hast eine Tabelle mit verschiedenen Daten und möchtest die Spalten ausblenden, deren Zellen in Zeile 2 leer sind. Das obige Makro kann in diesen Situationen sehr hilfreich sein.
Ein Beispiel wäre eine Verkaufsdaten-Tabelle, in der nur die Spalten mit tatsächlichen Verkaufszahlen angezeigt werden sollen, während leere Spalten ausgeblendet werden.
1. Wie kann ich das Makro anpassen, um nur bestimmte Spalten auszublenden?
Du kannst den For-Loop so anpassen, dass er nur über die gewünschten Spalten iteriert, anstatt über alle 256 Spalten.
2. Funktioniert das Makro in jeder Excel-Version?
Ja, das VBA-Makro sollte in den meisten Versionen von Excel funktionieren, solange die Makros aktiviert sind. Achte darauf, dass du in einer kompatiblen Version arbeitest.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen