folgendes Problem:
Die Spalte B in Tabelle 2 soll je nach Inhalt im Feld A2 in Tabelle 1 eine vorgebene Breite annehmen.
Das Feld A2 ist ein Listenfeld mit 3 verschiedenen Texten.
Geht das?
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A2" Then
Select Case Target
Case "Erster Text": Columns(2).ColumnWidth = 25
Case "Zweiter Text": Columns(2).ColumnWidth = 75
Case "Dritter Text": Columns(2).ColumnWidth = 45
End Select
End If
End Sub