Registriert seit: 11.05.2024
Version(en): Home und Student 2016
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
Nicht registrierter Gast
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
Registriert seit: 11.05.2024
Version(en): Home und Student 2016
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
Nicht registrierter Gast
Folgende(r) 1 Nutzer sagt Danke an Gast für diesen Beitrag:1 Nutzer sagt Danke an Gast für diesen Beitrag 28
• eddie_ce
Registriert seit: 11.05.2024
Version(en): Home und Student 2016
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.
![28 28](https://www.clever-excel-forum.de/images/smilies/pack 2/28.gif)
Eddie King