hab meine erse Anfrage ledier schin gedchlossen:
eine freundlicher User hat mir diesen Code geschrieben um die Spaltenbreite in Abhängigkeit eines Wertes zu definieren, funktioniert auch soweit gut, nur so wie ich das sehe nur wenn das Sheet in dem der Code steht auch aktiv ist. Ich bediene aber den Inhalt des Feldes "A51" über eine Formel aus einem anderen Sheet und dann wird die Spaltenbreite nicht geändert, gibt es da noch einen Trick?
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A51" Then
Select Case Target
Case "Ford": Columns(1).ColumnWidth = 80
Case "VW": Columns(1).ColumnWidth = 60
Case "Audi": Columns(1).ColumnWidth = 60
End Select
End If
End Sub