Einfügen Text mit Userform ohne Überschreibung
10.04.2018 09:46:16
Idence
dank diesem Forum habe ich schon zahlreiche Probleme lösen können, doch nun stehe ich vor einer Aufgabe, die ich nicht ohne aktive Hilfe nicht bewältigen kann.
Es geht um folgendes: Ich habe eine Userform erstellt (siehe Bild). Der in das Textfeld "Eingabe" geschriebene Text erscheint in der aktiv angeklickten Zelle des Tabellenblattes. Für das Textfeld "Termin" ähnliches. Das habe ich schon hingekriegt, war kein großes Problem.
Bild von der Userform:
Hier mein Code:
Private Sub OKButton_Click()
ActiveCell.Value = Titel.Value 'Fügt Text in "Eingabe" ein
ActiveCell.Offset(0, 6).Activate '
ActiveCell.Value = DatumTextBox.Value 'Fügt Text in "Termin" ein
ActiveCell.Offset(0, -6).Activate '
Vorschau.Value = ActiveCell.Value 'Zeigt den Zellinhalt der aktiven Zelle
'in dem Textfeld "vorhandener Text" an.
End Sub
Doch nun ist die Anforderung die, dass der in das Textfeld "Eingabe" geschriebene Text den Zellinhalt der angeklickten nicht überschreibt, sondern innerhalb der Zelle darunter eingefügt wird.
Hier benötige ich eure Hilfe. Ich danke euch herzlich im voraus.
