Office: (Office 2019) Textfelder verschieben

Hallo Forum,
ich habe zwei Textfelder auf meinem Tabellenblatt (Textfeld 4 und Textfeld 5) in meiner xlsm Excel Datei. Textfeld 4 befindet sich unter Textfeld 5. Diese beiden Textfelder nutze ich, da in Textfeld 5 teilweise recht langer Text stehen kann. Die Länge des Textes in Textfeld 5 hängt von der Auswahl im Dropdown in Zelle C19 ab. Textfeld 4 soll je nach länge des Textes in Textfeld 5 entsprechend unter Textfeld 5 positioniert werden. Das funktioniert mit folgendem VBA einwandfrei:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$19" Then Dim newText As String newText = Application.WorksheetFunction.Index(Sheets("Texte").Range("A2:K2"), _ Application.WorksheetFunction.Match(Sheets("Briefpapier").Range("C19"), Sheets("Texte").Range("A1:K1"), 0)) ' Setzen Sie den Text des oberen Textfelds Me.Shapes("Textbox 5").TextFrame.Characters.text = newText ' Anpassen der Position des unteren Textfelds basierend auf der Länge des Textes Dim upperTextbox As Shape Dim lowerTextbox As Shape Set upperTextbox = Me.Shapes("Textbox 5") Set lowerTextbox = Me.Shapes("Textbox 4") ' Ändern Sie "Textbox 4" entsprechend Ihrem unteren Textfeld ' Anpassen der Position des unteren Textfelds lowerTextbox.Top = upperTextbox.Top + upperTextbox.Height + 15 ' Hier 15 ist ein Beispiel für den Abstand zwischen den Textfeldern End If End Sub
Für ein Szenario aus Dropdown C19 muss jedoch Inhalt in den Zeilen und Zellen zwischen den Textfeldern platziert werden. Textfeld 4 soll sich für dieses Szenario unter dem eingefügten Inhalt platzieren. Es werden bei diesem speziellen Szenaria 30 Zeilen Inhalt eingefügt. Dieser Inhalt muß wieder gelöscht werden, sobald in C19 wieder ein anderes Szenario ausgewählt wird. Kann das funktionieren und wie würde der Code aussehen?
Vielen Dank für eure Hilfe.

 

Anbei der VBA Code noch als Text-Datei.

 

Hallo Peter,

es wäre besser gewesen, die Datei hochzuladen. In eine Excelzelle passen übrigens 32.767 Zeichen, das reicht nicht aus?

Der Text deiner Anfrage umfasst 1818 Zeichen (incl. Leerzeichen), da sind wir von über zweiunddreißigtausend noch ein ordentliches Stück weg. Willst du da Bücher darstellen?

 

Nein, ich will keine Bücher posten. Allerdings soll der Text in der Breite über die Spalten C:G gehen. Und die Zellenhöhe soll sich automatisch an die Textmenge anpassen. Das geht nur mit Textfeldern, richtig? Die Textmenge variiert wie gesagt. Gibt es einen anderen Ansatz als den von mir angedachten?

 

Soll ich die Datei noch posten?

 

Hallo,

ja mach das.

 

Hallo,
hier ist die Datei.

 

Hallo Peter,

so wie ich das jetzt sehe, missbrauchst du Excel als Textverarbeitungsprogramm. Die Serienbrieffunktion von Word kennst du?

 

Hallo Klaus-Dieter, danke für die Antwort. Es hat seinen Grund, warum ich das in Excel machen will / muss. Die Datei ist schlußendlich komplexer als hier geposted. Es handelt sich auch nicht um einen Serienbrief, sondern um eine Angebots und Rechnungsdatei. In dieser Datei sollen Auftragsdaten und Rechnungsdaten verknüpft sein.

 

Hallo Peter,

das hatte ich mir schon gedacht, habe mir die vielen Makros nicht näher angesehen. Für mich bleibt es trotzdem der Versuch, die Serienbrieffunktion im Excel nachzubauen.
Wobei ich nicht verstehe, warum das Textfeld 4 unter dem Textfeld 5 stehen soll. Oder habe ich da etwas falsch verstanden?

 

Für meine Bedürfnisse funktioniert die Datei gut. Ich habe in Textfeld 5 kürzere und längere Texte und Textfeld 4 reagiert passend darauf. Nur für ein Szenario soll eine Rechnungszusammenfassung zwischen die beiden Textfelder geschrieben werden. Textfeld 4 muss dann unter dieser Rechnungszusammenfassung stehen. Diese zusätzlichen Zeilen müssen dann natürlich wieder gelöscht werden, wenn es sich nicht um eine Rechnung, sondern um ein z.B. Anschreiben handelt.

 

Manchmal frage ich mich, wieso noch niemand auf die Idee gekommen ist, Excel als Ersatz für z.B. Photoshop zu verwenden.

Aber sei es drum, was hindert dich die 15 bei

Code:

lowerTextbox.Top = upperTextbox.Top + upperTextbox.Height + 15 ' Hier 15 ist ein Beispiel für den Abstand zwischen den Textfeldern

anhand der zwischen den Textboxen eingefügten Zeilen zu berechnen?
Wenn du genauer beschreiben würdest, wie du diese Zeilen einfügst, könnte man auch genauer helfen.

 

Hallo, ich poste den Code zum einfügen der Zeilen 29:42 und Einfügnen Inhalt in die Zellen. Allerdings fehlen in der oben geposteten Exeldatei die Blätter aus denen eine Information übernommen wird. Ich hoffe, die Prozedur ist dennoch klar.
Alles in allem werde ich vielleicht dennoch versuchen, auf lange Texte im oberen Textfeld (5) zu verzichten und nur mit einfachen Zellen arbeiten. Die langen Texte werden dann auf einem extra Blatt eingefügt, oder ähnliches.

 

Hi,

da du offensichtlich bis Zeile 42 etwas einfügst, wenn in C19 "AR" oder "SR" steht, kannst du deine Code-Zeile

Code:

lowerTextbox.Top = upperTextbox.Top + upperTextbox.Height + 15 ' Hier 15 ist ein Beispiel für den Abstand zwischen den Textfeldern

durch diese Zeilen ersetzen

Code:

If Target = "AR" Or Target = "SR" Then
    lowerTextbox.Top = Range("A43").Top + 15    'die 15 sind der Abstand zur Unterkante Zeile 42
Else
    lowerTextbox.Top = upperTextbox.Top + upperTextbox.Height + 15 ' Hier 15 ist ein Beispiel für den Abstand zwischen den Textfeldern
End If

Wenn ich mir die Datei so anschaue, und sehe, was alles in deinen Modulen steht, dann sieht das für mich so aus wie bei Hempels unter dem Sofa (oder wie auf meinem Schreibtisch ). Module mit etlichen, gleich lautenden Funktionen, Worksheet-Events in allgemeinen Modulen überhaupt viele Module mit nichtssagenden Namen, das alles geht gar nicht.

 

Du hast recht. Die Datei muß aufgeräumt werden.