Zeilenhöhe automatisch anpassen per VBA
Kris
ich suche eine Lösung (ein Makro), damit mir innerhalb eines Exceltools automatisch die passende Zeilenhöhe einstellt wird.
Ich habe dieses Stück gefunden, weiß aber nicht wie ich es sinnvoll anwenden kann:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.Rows.AutoFit
End Sub
Ich möchte nicht jedes mal jede Zellhöhe einzeln anpassen, das soll z.B. passieren, wenn man den Text der Zelle zuende geschrieben hat und z.B. Enter drückt.
Außerdem sollte die Zelle eine Mindesthöhe (bei leerer Zelle)von 36,75 haben.
Im Tool ist alles außer die Zellen, die mit Text zu befüllen sind, mit Blattschutz belegt.
Das Tool wird mehrfach angewandt und jedesmal wird ein anderer Text in die jeweilige Zelle geschrieben. Dieser Text soll immer sichtbar sein, also Zeilenumbrüche machen und die Zeilenhöhe soll sich automatisch anpassen.
Kann mir bitte jemand helfen?
DANKE!
Kris