HERBERS Excel-Forum - das Archiv
Spalte ein/ausblenden
Andreas

Hi,
ich brauche einen Code um eine komplette Spalte auszublenden, wenn in einer bestimmten Zelle dieser Spalte nichts steht.
Jemand eine Idee?
Grüße

AW: Spalte ein/ausblenden
Steff

Hi,
zum Beispiel, wenn Deine zu überprüfende Zelle S39 ist:
If Len(Range("S39")) = 0 Then
Columns("S:S").Select
Selection.EntireColumn.Hidden = True
End If
Gruß
Steff

AW: Spalte ein/ausblenden
Andreas

Hi Steff,
funktioniert super gut,
Danke :-)

AW: Spalte ein/ausblenden
HuberFranz

Probier mal:
If Trim(Range("A10")) = "" Then Columns("A:A").EntireColumn.Hidden = True
"A10" ist die Zelle, welche auf Inhalt überprüft wird. "A:A" ist die Spalte die bei Inhalt "" (also kein Inhalt) ausgeblendet wird

AW: Spalte ein/ausblenden
Andreas

Hi HuberFranz,
funktioniert auch gut.
Danke dir :-)

Spalte ein/ausblenden
Andreas

Hi,
ich brauche einen Code um eine komplette Spalte auszublenden, wenn in einer bestimmten Zelle dieser Spalte nichts steht.
Jemand eine Idee?
Grüße

AW: Spalte ein/ausblenden
Steff

Hi,
zum Beispiel, wenn Deine zu überprüfende Zelle S39 ist:
If Len(Range("S39")) = 0 Then
Columns("S:S").Select
Selection.EntireColumn.Hidden = True
End If
Gruß
Steff

AW: Spalte ein/ausblenden
Andreas

Hi Steff,
funktioniert super gut,
Danke :-)

AW: Spalte ein/ausblenden
HuberFranz

Probier mal:
If Trim(Range("A10")) = "" Then Columns("A:A").EntireColumn.Hidden = True
"A10" ist die Zelle, welche auf Inhalt überprüft wird. "A:A" ist die Spalte die bei Inhalt "" (also kein Inhalt) ausgeblendet wird

AW: Spalte ein/ausblenden
Andreas

Hi HuberFranz,
funktioniert auch gut.
Danke dir :-)

Bewerten Sie hier bitte das Excel-Portal