Textbox Inhalt mit Zeilenumbruch in Zelle einfügen
11.10.2017 14:34:20
Pierre
habe folgendes Problem.
Im meinem UserForm2 suche ich in einer Tabelle nach eine Nummer.
Wen er die Nummer findet werden alle Eintragungen im UserForm2 dargestellt.
Danach kann man in einer TextBox einen Eintrag schreiben dieser soll dann über einen Button in der Zeile der gesuchten Nummer in eine bestimmte Spalte geschrieben werden.
Das funktioniert auch alles Super.
Jetzt kann es aber sein das die selbe Nummer nochmal gesucht wird. Wen der User nun die den Eintrag in die Zelle schreiben will soll folgendes passieren:
Wenn ein Text vorhanden ist soll diesen Durchstreichen werden,
einen Zeilenumbruch gemacht werden,
und der neue Text hinzufügt werden.
Hir mein Code um die Zelle zu überprüfen und Reinzuschreiben
Private Sub CommandButton3_Click()
Dim z As Long
With Worksheets("Fehler_Datenbank")
z = UserForm2.TextBox15 + 5
While .Cells(z, "A") = UserForm2.TextBox15
z = UserForm2.TextBox15
Wend
If IsEmpty(Cells(z, "Q").Value) = True Then
.Cells(z, "Q").Value = UserForm2.TextBox14
Else
With .Cells(z, "Q")
.Font.Strikethrough = True
End With
.Cells(z, "Q").Value = vbCrLf & TextBox14.Value
End If
End With
End If
End Sub
Ich hoffe ihr könnt mir weiterhelfen.