Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1156to1160
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
1156to1160
1156to1160
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Format aus rtf in Zelle darstellen

Format aus rtf in Zelle darstellen
Felix
Hallo,
in unserer ERP-Datenbank werden einige kurze Texte im rtf-Format gespeichert. Diese lese ich aus und stelle sie erfolgreich, also mit den Formatierungen im rtf-Control auf einer Userform dar.
Ist es möglich, die gleiche Darstellung auch innerhalb einer Zelle hinzubekommen? Wenn ja, wie geht das per VBA? Und: Gibt es eine Möglichkeit, Formatierungen und Inhalt einer Excel-Zelle als rtf darzustellen?
Vielen Dank für Eure Hilfe!
Felix

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Format aus rtf in Zelle darstellen
22.05.2010 20:54:51
fcs
Hallo Felix,
Excel hat kein RTF-Import-Modul.
Die Übernahme der Daten dürfte nur über den Umweg Word (oder ein anderes Programm mit rtf-Import) funktionieren.
RTF-Datei mit Word öffnen. Dann kompletten Text in Word kopieren und in Excel im HTML-Format einfügen. Dabei werden allerdings einige Zahlenformate nicht unbedingt 1:1 übernomen.
Nachfolgend ein Beispielmakro für den Import.
Gruß
Franz 
Sub RTF_Import()
Dim wks As Worksheet
Dim vDatei As Variant
Dim oApp As Object, oDoc As Object, oRange As Object
On Error GoTo Fehler
'Einfüge-Zelle in Excel selektieren
Set wks = ActiveSheet
With wks
.Cells(.Cells.SpecialCells(xlCellTypeLastCell).Row + 1, 1).Select
End With
'RTF-Datei - hier ggf. Dateiauswahldialog einbauen
vDatei = "C:\Users\Admin\Documents\200.rtf"
'RTF-Datei in Word schreibgeschützt öffnen
Set oApp = VBA.CreateObject("Word.Application")
Set oDoc = oApp.Documents.Open(Filename:=vDatei, _
ConfirmConversions:=False, ReadOnly:=True)
Set oRange = oDoc.StoryRanges(1) '1 = wdMainTextStory
'Wordtext kopieren und als HTML in Excel einfügen
oRange.Copy
wks.PasteSpecial Format:="Html", link:=False
'RTF-Datei wieder schliessen und Word beenden
oDoc.Close False
oApp.Quit
Fehler:
With Err
Select Case .Number
Case 0
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
If Not oDoc Is Nothing Then oDoc.Close
If Not oApp Is Nothing Then oApp.Quit
End Select
End With
End Sub

Anzeige

135 Forumthreads zu ähnlichen Themen

Höhe einer Textbox nach Grafik ausrichten
TomTom

Hi,
ich habe eine Frage zur Ausrichtung einer Textbox: Ich habe auf meinem Sheet ein paar Textboxen (untereinender) die je nach Grösse und Inhalt zueinander in Höhe ausgerichtet werden (Makro)
Ganz unten im Sheet habe ich sowas , wie eine Fusszeile eingefügt, eine kleine Grafik (jpg, ei...
04.09.2008 11:19:00
Thread-ID: 1007335
5 Beiträge
Anzeige
Textformatierung in einer Formel
Dieterlem

Hallo Excelfreunde,
ich möchte ein Wort fett innerhalb eines Formelergebnisses fett darstellen. Beispiel:
"WENN(A1="Ja";"Beispieltext soll Fett dargestellt werden";"")
Dabei soll nur das Wort 'Fett', fett formatiert werden.
Ist so etwas möglich?
Gruß
Dieterlem
27.10.2008 19:55:00
Thread-ID: 1019731
3 Beiträge
Textformat in Zahl umwandeln
Josef

Hallo!
Ich habe in einer Spalte textformatierte Zahlen mit führenden Nullen stehen.
Wie kann ich ohne Hilfsspalte (z.B. =A2*1) die führenden Nullenden in der Spalte wegbringen, damit eine Zahlenformatierung vorhanden ist?
z.B. 00013,80 = 13,80
Danke
Josef
09.07.2009 11:34:12
Thread-ID: 1087382
6 Beiträge
Anzeige
Textformat in Zelle mit Formel
joerg

Hallo,
Ich hätte gern in einer Zelle in der Kopfzeile eine Mischung aus Text und Werten aus anderen Zellen, etwa so:
A B Total: 1 netto 1234,56 brutto 2345,67 2 Dabei hätte ich gern das Wort "Total" fett und schwarz, die beiden anderen Zeilen klein...
10.02.2010 01:20:13
Thread-ID: 1137218
6 Beiträge
Bedingte Formatierung für Texte
Werner

Hallo,
ich möchte per bedingte Formatierung erreichen, dass Texte unterschiedliche Hintergrundfarben bekommen.
Gibt man z.B. "Qualität" ein, so soll auch später das Wort wieder die gleiche Hintergrundfarbe erhalten.
Dazu habe ich nun bereits mehrere Regeln erstellt, ich wollte damit...
01.03.2010 16:48:06
Thread-ID: 1142432
11 Beiträge
Benutzerdefiniertes Format bei Text (kein VBA)
Tino

Hallo,
ich beiße mir gerade an etwas die Zähne aus.
Wenn ich eine 10 Stellige Zahl (Bsp. 1111111111) in einer Zelle so darstellen möchte
1 111 111 111 (Leerzeichen zwischen den Zahlen),
kann ich dies übers Benutzerdefinierte Format '0 000 000 000' einstellen.
Aber was wenn...
10.03.2010 16:43:40
Thread-ID: 1144943
14 Beiträge
Text im Format 00/00/0000 in Datum umwandeln
Mike

Hi Ihr,
ich erstelle per Formel durch Verketten von Texten einen Eintrag im Datumsformat, der dann z.B. so aussieht: 25/01/2010
Diese Texte stehen in Spalte A meiner Tabelle.
Weiss jemand, wie ich einen solchen Text per Formel in ein echtes Datum umwandeln kann ?
VG u. vielen...
20.04.2010 15:48:36
Thread-ID: 1152920
8 Beiträge
Excel-Tabellen in Word umwandeln
joko0803

Hallo alle,
ich bin nicht sicher, ob dieses Thema hier her gehört.
Falls nein, wäre ich für das Benennen eines entsprechenden Forums dankbar.
In einem Word Dokument habe ich viele Excel-Tabellen eingebunden.
Dieses Word Dokument muss ich an eine Behörde zur Weiterverarbeitung ve...
07.05.2010 16:29:49
Thread-ID: 1156132
6 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

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
4
9
2
5
4
5
10
13
7
5
3
7
2
2
2
3
2
4
4
2
13
7
11
3
2