Makro automatisch ausführen?
20.09.2021 15:48:19
Andreas
habe unten stehende VBA von Uwe bekommen (Danke nochmal an dieser Stelle Uwe),
diese passt mir die Spaltenbreite automatisch an den Wert an, der in der ersten Zeile eingegeben wird.
Funktioniert auch alles wunderbar :)
Das Problem ist nur, dass ich die Werte, die in der ersten Zeile eingetragen werden jetzt mit einer Formel ermitteln möchte.
Wird dieser Wert jetzt also mittels meiner (WENN-Fomel) ermittelt und ändert sich, aktiviert sich die VBA nicht.
Habe dann versucht die VBA auf Calculate zu setzten, das hat aber leider nichts gebracht.
Weiß jemand Rat?
Vielen Dank vorab
Gruß Andreas
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Z, MMin As Integer, RNG As Range
MMin = 5 'Mindestbreite
Set RNG = Intersect(Target, Rows(1))
If Not RNG Is Nothing Then
For Each Z In RNG
Z.Columns.ColumnWidth = WorksheetFunction.Max(MMin, Z.Value)
Next
End If
End Sub