Ich habe mir mit folgender Formel das zusammengebastelt, was ich brauche. Dabei sollen die Zellen nach Auswahl größer werden, damit das Drop Down Menü voll angezeigt wird und daraufhin soll sich die Spaltenbreite an den Inhalt anpassen. Wie in dem Code zu erkennen bezieht sich das Makro nur auf Spalte eins (Spalte A). Leider verzweifle ich daran den Code so umzuschreiben, dass er auf alle Spalten in meiner Arbeitsmappe angewendet wird. Ich würde mich freuen, wenn mir da einer weiterhelfen könnte.
Mein Code ist wie folgt:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then
Target.Columns.ColumnWidth = 20
Else
Columns(1).EntireColumn.AutoFit
End If
End Sub