Im Textbox geben ich einen Text ein mit Umbruch mit ausgabe in Zelle,nach Folgende Muster.
Massives Vollholz Buffet Landhausstil!
- Größe: ca. B 110 x T 50/30 x H 210 cm
- Farbe: Cremeweiss von Hand gestrichen
- in Handarbeit gefertigt aus Massivholz
- das Glas hat einen Facettenschliff
- sehr gute Verarbeitung und Qualität
- Das Buffet besteht aus zwei Elementen
Oberteil:
- 2 Glasturen mit Facettenschliff
- im Inneren befinden sich jeweils 2 Einlegeböden
Gerne möchte ich bestimmte Zeile in Format Fett darstellen sehe beispiel.
Ich hatte gedacht dass alle Zeile die ein Sonderzeichen "führendem Hochkomma" im Anfang ihre Zeile habe bekommen das Format Fett in der Zelle. Sonderzeichen ist führendem Hochkomma " ' "
Wenns geht dann sollte nach übertrag in der zelle das Sonderzeichen Hochkomma im Zelle entfernt werden.
'Massives Vollholz Buffet Landhausstil!
- Größe: ca. B 110 x T 50/30 x H 210 cm
- Farbe: Cremeweiss von Hand gestrichen
- in Handarbeit gefertigt aus Massivholz
'- das Glas hat einen Facettenschliff
- sehr gute Verarbeitung und Qualität
- Das Buffet besteht aus zwei Elementen
'Oberteil:
- 2 Glasturen mit Facettenschliff
- im Inneren befinden sich jeweils 2 Einlegeböden
Code Textbox
Option Explicit
Private Sub CommandButton1_Click()
ActiveCell.Activate
With ActiveCell
.Value = TextBox1.Value
.Replace What:=Chr$(13), Replacement:=" "
End With
Unload Me
End Sub
Private Sub UserForm_Initialize()
TextBox1 = ActiveCell.Value
End Sub
Grüße
Karel