Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1024to1028
1024to1028
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textboxinhalt in html konvertieren?

Forumthread: Textboxinhalt in html konvertieren?

Textboxinhalt in html konvertieren?
17.11.2008 17:59:00
Timo
Hallo,
gibt es eine einfache Möglichkeit den Textboxinhalt in html zu konvertieren?
Ich hab in einer Userform ein Textbox welche als Mailinhalt dient! Wenn ich nun mit
.HTMLBody = Mailtext.TextBox1
die Mail versende wird die Mail ohne Zeilenumbrüche und Schriftfarbe geschrieben!
.TextBody = Mailtext.TextBox1
werden zwar die Zeilenumbrüche berücksichtigt jedoch nicht die Schriftfarbe!
Gruß Timo
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textboxinhalt in html konvertieren?
17.11.2008 18:53:03
Tino
Hallo,
ungetestet
.HTMLBody = "<font color=yellow>" & Mailtext.TextBox1 & "</font>"
Hier noch ein Link der helfen könnte.
http://www.rzuser.uni-heidelberg.de/~x02/html/tcae.htm
Gruß Tino
Anzeige
AW: Textboxinhalt in html konvertieren?
17.11.2008 19:17:00
Tino
Hallo,
vielleicht geht es ja auch so.
Auch nicht getestet!
Dim strFarbe As String
strFarbe = Mailtext.TextBox1.ForeColor
.HTMLBody = "<font color=#" & strFarbe & ">" & Mailtext.TextBox1 & "</font>"


Gruß Tino

Anzeige
hier die getestete Version
17.11.2008 19:41:00
Tino
Hallo,
nun mal getestet.
Option Explicit

Private Sub CommandButton1_Click()
Dim strFarbe As String
Dim MyOutApp As Object, MyMessage As Object

strFarbe = Farbe_Hexa(TextBox1.ForeColor)
    
    Set MyOutApp = CreateObject("Outlook.Application")
    Set MyMessage = MyOutApp.CreateItem(0)
    With MyMessage
        .To = "Hier kommt die Adresse rein"
        .Subject = "hier der Betreff"
        .HTMLBody = "<font color=" & strFarbe & ">" & TextBox1 & "</font>"
        .Importance = 2 'Wichtigkeit hoch 
        .Display
        '.Send 
       
    End With

    Set MyOutApp = Nothing
    Set MyMessage = Nothing
End Sub

Function Farbe_Hexa(ByVal ZellFarb As Long) As String
Dim R, G, B As Long

R = Hex(ZellFarb - (ZellFarb \ 65536) * 65536 - _
    ((ZellFarb - (ZellFarb \ 65536) * 65536) \ 256) * 256)

G = Hex((ZellFarb - (ZellFarb \ 65536) * 65536) \ 256)

B = Hex(ZellFarb \ 65536)

If Len(R) < 2 Then R = R & "0"
If Len(G) < 2 Then G = G & "0"
If Len(B) < 2 Then B = B & "0"

Farbe_Hexa = "#" & R & G & B
End Function


Gruß Tino

Anzeige
AW: hier die getestete Version
17.11.2008 20:00:00
Timo
Hallo Tino,
erstmal Vielen Dank! Ich glaube ich kann noch viel lernen!
funktioniert super mit der Farbe!
Jetzt ist noch die Frage mit den Zeilenumbrüchen! Kann man die aus der Textbox irgendwie auslesen und dann mit
ersetzen?
Gruß Timo
AW: hier die getestete Version
17.11.2008 20:30:00
Tino
Hallo,
versuche es mal hiermit.
Es funktioniert aber nur bei von Hand eingefügter Zeilenumbrüchen,
dafür die Textboxeigenschaft EnterKeyBehavior auf True und MultiLine auf True setzen, jetzt kannst Du Zeilenumbrüche mit der Entertaste erzeugen.
Option Explicit

Private Sub CommandButton1_Click()
Dim strFarbe As String
Dim strText As String
Dim MyOutApp As Object, MyMessage As Object

strText = Replace(TextBox1, vbNewLine, "<br>")

strFarbe = Farbe_Hexa(TextBox1.ForeColor)
    
    Set MyOutApp = CreateObject("Outlook.Application")
    Set MyMessage = MyOutApp.CreateItem(0)
    With MyMessage
        .To = "Hier kommt die Adresse rein"
        .Subject = "hier der Betreff"
        .HTMLBody = "<font color=" & strFarbe & ">" & strText & "</font>"
        .Importance = 2 'Wichtigkeit hoch 
        .Display
        '.Send 
       
    End With

    Set MyOutApp = Nothing
    Set MyMessage = Nothing
End Sub

Function Farbe_Hexa(ByVal ZellFarb As Long) As String
Dim R, G, B As Long

R = Hex(ZellFarb - (ZellFarb \ 65536) * 65536 - _
    ((ZellFarb - (ZellFarb \ 65536) * 65536) \ 256) * 256)

G = Hex((ZellFarb - (ZellFarb \ 65536) * 65536) \ 256)

B = Hex(ZellFarb \ 65536)

If Len(R) < 2 Then R = R & "0"
If Len(G) < 2 Then G = G & "0"
If Len(B) < 2 Then B = B & "0"

Farbe_Hexa = "#" & R & G & B
End Function


Gruß Tino

Anzeige
AW: Danke!
17.11.2008 20:52:21
Timo
Hallo Tino,
vielen Dank!!
Eine Frage hätte ich noch!
Ist es möglich einzelne Wörter in der Textbox mit verschiedenen Farben zu Formatieren, also so dass sie vor dem senden schon in Der Textbox farbig angezeigt werden?
Ich mein ich habe schon mal hier im Forum gelesen dass das nicht geht oder?
Anzeige
AW: Danke!
17.11.2008 21:50:00
Tino
Hallo,
in der Textbox geht dies nicht, Du könntest aber in Excel ein Textfeld verwenden,
da kannst du einzelne Texte Farbig machen.
Aber dies in ein HTML- Code zu Konvertieren wird recht schwierig,
da müsste ich auch erst mal experimentieren.
Gruß Tino
;

Forumthreads zu verwandten Themen

Suchfunktion - TextBox kein Text sondern Datum
Frank

Hallo Liebe Excelgemeinde!!!
In einer UserForm befindet sich folgender Code um bestimmte Einträge zu suchen. Da in der TextBox1 aber kein Text sondern ein Datum steht funktioniert dies nicht, da kommt die Meldung " Suchbegriff wurde nicht gefunden".
Was muss ich ändern, damit auch nach...
21.08.2008 15:35:00
Thread-ID: 1003541
4 Beiträge
Anzeige
Jüngstes Datum in Textstring ausgeben
Markus

Hallo zusammen,
nachdem meine Netzrecherchen nicht zum Ziel führten, anbei mein erster Beitrag in Form einer Frage...
Zum Hintergrund: Für meine Diplomarbeit hab ich ein Makro geschrieben, welches die Pressemitteilungen (ca. 3000) der Firmen einer Industrie aufbereitet. Hierbei bereinig...
25.08.2008 18:19:00
Thread-ID: 1004535
17 Beiträge
Markierte Zellen: Text in Datum umwandeln
Peter

Guten Tag
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich än...
15.09.2008 11:41:00
Thread-ID: 1009737
6 Beiträge
Uhrzeit als Text
Herbert

Hallo,
in meiner Tabelle in Zelle A1 steht das Datum und die Uhrzeit z.B. "14.10.2008 07:00".
Ich möchte in der Zelle B1, dass nur die Uhrzeit erscheint. Diese muss aber im Textformat hinterlegt sein.
Bin für jede Hilfe dankbar.
Gruß Herbert
15.10.2008 11:20:00
Thread-ID: 1016508
5 Beiträge
Datumseingabe in textbox
Winfried

Guten Tag
was muss ich in einer Textbox für einen Eintrag vornehmen
das in dieser immer das aktuelle Datum angezeigt wird.
Leider bin ich in VBA noch nicht so fit.
Über eine Hilfe von einem Profi würde ich mich sehr freuen.
Gruss
Winfried
05.11.2008 12:39:45
Thread-ID: 1021858
5 Beiträge
Formel mit Text Datum und wert in Zeitreihe
Karel

Hallo Forum,
Habe ein bezahl blatt mit betragen in eine Spalte wird eingetragen als Text Bezahlt oder Offen wie kann ich an hand von Datum und Text (bezalt oder Offen) diese wert in eine Zeitreihe darstellen ab Zelle i11 und i12
Tabelle1

 BCDEFGHIJKLMN11   &...
19.11.2008 20:37:00
Thread-ID: 1026214
5 Beiträge
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 Beiträge
Datum in Zahl umwandeln
P.Mackes

Hallo,
was ich machen möchte ist folgendes:
ich habe eine Zahl, die ein Datum darstellt, z.B. 20080507. Dabei handelt es sich NICHT um ein Datumsformat, sondern um eine richtige Zahl. Jetzt muss ich davon allerdings 90 Tage abziehen. Also wandle ich mit Date(left...mid...right) das gan...
27.11.2008 00:37:57
Thread-ID: 1028186
3 Beiträge
Datumswerte in Spalte richtig umwandeln
chris

Hallo zusammen,
ich habe ein Problem und würde ecuh um Hilfe bitten.
ich habe eine Exceldatei.in dieser habe ich eine Spalte in dieser stehen Datumswerte.
Nur das Problem ist manche zellen sind nicht als Datum formatiert das merke ich z.b wenn ich den Autofilre verwende sind die Dat...
02.12.2008 11:57:00
Thread-ID: 1029457
6 Beiträge
Anzeige
Uhrzeitprüfung einer Textbox in einem UserForm
Lenhard

Moin Excellianer!!
Ich habe ein UserForm mit einer TextBox, welche ich folgender Prüfung unterworfen habe:
Private Sub CommandButton1_Click() With TextBox1 If Len(.Text)
Nun habe ich aber eine weitere TextBox, bei der eine Zeiteingabe geprüft werden soll. Die Eingabe soll folgend...
11.12.2008 20:11:27
Thread-ID: 1032201
9 Beiträge
Vergleich und Prüfung von Uhrzeiten in Textboxen
Uhrzeiten

Moin Excellianer!
Alle Fragen habe ich auch in die Beispieldatei (ins UserForm) hinein geschrieben:
https://www.herber.de/bbs/user/57593.xls
Wenn das UserForm1 aufgerufen wird, soll das aktuelle Datum in der TextBox1 schon stehen. Ich habe da einiges im Forum-Archiv gefunden, aber...
13.12.2008 00:21:00
Thread-ID: 1032556
5 Beiträge
Formatiert Text nicht als Datum
Günter

Hallo Zusammen,
ich habe wieder ein sicherlich einfaches Problem.
In Spalte A stehen Werte wie "18.12 15:30".
Die Spalte ist als Datum formatiert.
Um nun ein komplettes Datum mit Jahr zu bekommen habe ich folgendes Makro geschrieben:
Sub JahrErgaenzen() Dim Z As Integer F...
21.12.2008 08:20:33
Thread-ID: 1034520
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige