spaltenbreite abhängig vom Wert einer Zelle

[eddie_ce]

Hallo,

ich wende mich wieder an die Excel Experten.

Gibt es eine Möglichkeit eine Spaltenbreite wie folgt zu definieren:

Wenn Zellwert B3="lang"   soll Spaltenbreite Spalte E=15  sein, ansonsten soll Spaltenbreite Spalte E=4 sein.

Wie immer vielen Dank für Hinweise und Tipps.

[00202]

Moin,  

nimm den Code in den Codebereich des Tabellenblattes:  

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If LCase(Range("B3").Value) = "lang" Then Columns(5).ColumnWidth = 15 Else Columns(5).ColumnWidth = 4
End Sub

Oder so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Columns(5).ColumnWidth = IIf(LCase(Range("B3").Value) = "lang", 15, 4)
End Sub

[eddie_ce]

Hallo,
vielen Dank für die schnelle Antwort, ich glaube ich kann das Ganze so weit verstehen. 
Allerdings habe ich keine Ahnung wie und wo ich diesen Text einfügen muss. 

[00202]

Moin,

schau mal hier:  

Wie fügt man ein Makro in das Codefenster der Tabelle ein?

Eventuell brauchst du auch noch das:

Anzeigen der Registerkarte "Entwicklertools"

Jetzt klarer?

[eddie_ce]

Case,

vielen herzlichen Dank. Ich bin wieder etwas schlauer geworden. 

Ich habe den 2. Vorschlag genommen und es hat perfekt geklappt.

Ich finde es immer wieder toll, dass es Menschen gibt die bereit sind ihr Fachwissen in solchen Foren weiter zu geben. 

Eddie King