Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1024to1028
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Betreff
Datum
Anwender
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?
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

311 Forumthreads zu ähnlichen 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
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
Datum als Text kopieren
Thomas3

Hallo zusammen,
ich habe folgendes Problem.
Aus einer Datei werden aus einer Spalte das Tagesdatum in eine andere Datei kopiert.
Das ist kein Problem.
Aus der zweiten Datei werden dann mittels Serienbrief diese Daten ausgelesen.
Und nun beginnt das Problem.
Das Datum ko...
16.09.2008 18:22:00
Thread-ID: 1010173
4 Beiträge
Anzeige
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
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
16
5
3
6
4
4
4
3
2
5
8
4
10
4
5
2
4
3
6
2
4
7
3
3