der Text aus Zellen, hier B5:B7, wird in die TextBox (tb1), auf der Userform (usf1), eingetragen. Das funktioniert. Hatte prima Hilfe dabei aus diesem Forum!
Was nicht funktioniert:
Der Text in Musterdatei, hier Zellen B5 "Text1", B6 "Text2", B7 "Text3", wird durch Code in: B5 "Text1", B6 "Text1", B7"Text1".
Ich denke, da wird der Text aus B5 in B6 und B7 übernommen.
Das soll NICHT sein! Es soll der Text unberändert in die Textbox.
Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)
Musterdatei: https://www.herber.de/bbs/user/162397.xlsm
Es kann mit diesem Codeteil zusammen hängen, bin mir aber nicht sicher.
... For Each Zelle In Selection
Zelle.Value = Replace(activecell.Value, "AW: ", "") 'von Herber: Daniel. AW: löschen wenn da
Next ...
Hier mein derzeitiger, ganzer Code:
'Herber: hary 05.08.2023 11:17:07
'AW: Text in Zellen am Anfang einfügen und Resttext belassen
Sub Text_rein()
Dim Zelle As Range
'Ergänzung von Mx
If MsgBox("Richtige Zellen markiert?", vbQuestion + vbYesNo, " Markierung") = vbYes Then
Selection.ClearFormats 'Zellformate löschen
'Mx: In markierten Zellen, alle AWs löschen
For Each Zelle In Selection
Zelle.Value = Replace(activecell.Value, "AW: ", "") 'von Herber: Daniel. AW: löschen wenn da
Next
Selection.Font.Color = vbBlue 'Nach AW: Resttext blau
'Ende Mx
For Each Zelle In Selection
Zelle.Value = "AW: " & Zelle.Value
Zelle.Characters(1, 3).Font.Color = vbRed
Next
Else
MsgBox "Markierung vornehmen!", vbInformation, " Markierung"
usf1.opt1.Value = False
Exit Sub
End If
Call ZellText_in_TextBox
End Sub
'Herber: GerdL 07.08.2023 17:32:51
'Zelltext aller markierten Zellen, untereinander in Textbox
Sub ZellText_in_TextBox()
Dim strText As String, lrgCell As Range
usf1.tb1.AutoSize = True 'Mx
strText = "Markierte Zelle(n): " & Selection.Address(0, 0) & Chr(10)
For Each lrgCell In Selection
strText = strText & Chr$(10) & lrgCell
Next
usf1.tb1 = strText
If MsgBox("Text vorlesen?", vbQuestion + vbYesNo, " Vorlesen") = vbYes Then
usf1.opt1.Value = False
Application.Speech.Speak usf1.tb1, SpeakAsync:=True
Else
End If
End Sub