Hallo Community
Ich versuche ein Excel-File aufzubauen, das nur kontrollierte Eingaben ermöglicht. Daneben sollen die auszudruckenden Blätter dynamisch den Eingaben auf einer separaten Datentabelle „Eingabemaske“ angepasst werden. Nun habe ich auf der „Eingabemaske“ eine Textbox eingefügt, die ich mit einer IF…Then… Abfrage auf die Zeilenanzahl abfrage. Falls die Zeilenanzahl z.B. 30 erreicht, wir der Befehl SendKeys „{backspace}“ ausgegeben. Das alles funktioniert.
Nun sollen aber die Anzahl benutzter Zeilen in dem Textfeld auf eine andere Tabelle übertragen werden. Dort hat nun eine Zeile sich dem benotigten Platzbedarf in der Höhe anzupassen - das mache ich wie folgt:
If Differenz1.LineCount = 1 Then (–> Differenz1 ist die Textbox)
Worksheets(„Mehr-Minderkosten“).Rows(„513:513“).RowHeight = 16.5
ElseIf Differenz1.LineCount = 2 Then
Worksheets(„Mehr-Minderkosten“).Rows(„513:513“).RowHeight = 33
ElseIf Differenz1.LineCount = 3 Then
Worksheets(„Mehr-Minderkosten“).Rows(„513:513“).RowHeight = 49.5
ElseIf Differenz1.LineCount = 4 Then
und so weiter - bis zu LineCount= 24
Ab 25 kommt eine VBA Fehlermeldung! Ich habe nicht herausbekommen, was der Grund dafür sein könnte. Liegt es evtl. daran, dass nicht mehr als 24 elseIf Bedingungen aufgeführt werden können?
Nun meine Frage: Gibt es eine alternative Möglichkeit, um das Problem anders zu lösen - ich möchte ca. 50 Zeilen nutzen können.
Vielen Dank für eure Vorschläge und Ideen!
Ich wünsche schon mal allen eine gute Weihnachtszeit!
Gruss
André