Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
888to892
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
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textfeld als Aufzählung formatieren

Textfeld als Aufzählung formatieren
23.07.2007 22:06:00
Alex
Hallo forum,
Ich möchte gerne mit VBA Text in ein Textfeld schreiben, das automatisch als Aufzählung mit Bullet-Points formatiert wird. Dazu soll Text aus verschiedenen Zellen ausgelesen und in das Textfeld geschrieben werden.
Bis jetzt versuche ich es wie folgt über Shape:
Set TextField1 = Worksheets(1).Shapes(1).TextFrame
With Worksheets(1)
text = .Cells(1, 1).Value & Chr(10) & _
.Cells(2, 1).Value & Chr(10) & _
....
End With
TextField1.Characters.Text = text
Funktioniert auch soweit, nur ich weiß nicht, wie ich die einzelnen Zeilen als Aufzählung formatieren kann.
Kann jemand helfen?
Besten Dank vorab!
Viele Grüße,
Alexander

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textfeld als Aufzählung formatieren
23.07.2007 23:18:51
Horst
Hi,
prizipiell geht das schon, nur wird das eine elende Bastelei.
Verwende z.B. als Bullet ein kleines L mit Schriftart Wingdings und versuche, das Ganze
mit dem Makrorekorder aufzudröseln.
mfg Horst

AW: Textfeld als Aufzählung formatieren
24.07.2007 05:05:55
fcs
Hallo Alexander,
hier mein Lösungsvorschlag. Die einzulesenden Zellen werden dabei in Arrays für Zele und Spalte festgelegt. In einer 1. Schleife kann man dann zunächst den Text zusammenfügen, wobei gleichzeitig die Position der 1. Zeichen der Zeilen in einem Array gespeichert wird. In einer 2. Schleife wird dann das 1. Zeichen jeder Zeile in Schriftart Wingdings formatiert um das Aufzählungszeichen anzuzeigen.
Gruß
Franz

Sub AufzaehlungInTextbox()
Dim wks As Worksheet, TextField1 As TextFrame, arrZeilen, arrSpalten
Dim arrBeginn(), strText$, i%
Set wks = Worksheets(1)
Set TextField1 = Worksheets(1).Shapes(1).TextFrame
arrZeilen = Array(1, 2, 3) 'Zeilennummern der Zellen
arrSpalten = Array(1, 1, 2) 'Spaltennumern der Zellen
'Feld für die Position des 1. Zeichens jeder Zeile
ReDim arrBeginn(LBound(arrZeilen) To UBound(arrZeilen))
With wks
For i = LBound(arrZeilen) To UBound(arrZeilen)
'Zeichen 108 ist "l", wird zum Bullet mit Font Wingdings
If strText = "" Then
arrBeginn(i) = 1
strText = Chr$(108) & " " & .Cells(arrZeilen(i), arrSpalten(i)).Text
Else
arrBeginn(i) = Len(strText) + 2
strText = strText & Chr$(10) & Chr$(108) & " " _
& .Cells(arrZeilen(i), arrSpalten(i)).Text
End If
Next
End With
With TextField1
.Characters.Text = strText
'Basisformatierung des Textes
With .Characters(Start:=1, Length:=Len(strText)).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 12
.Bold = False
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
'1. Zeichen der Zeile in anderer Schriftart
For i = LBound(arrZeilen) To UBound(arrZeilen)
With .Characters(Start:=arrBeginn(i), Length:=1).Font
.Name = "Wingdings"
.Size = 8
End With
Next
End With
End Sub


Anzeige
Sehr schön! oT
24.07.2007 16:06:07
Horst
ot

303 Forumthreads zu ähnlichen Themen

Spalten als Text formatieren
Steffen

Hallo Leuts,
ich möchte gern die spalten B, D und F als Text formatieren. Habe da aber irgendeinen fehler drin.
ActiveSheet.Columns("B:B,D:D,F:F").NumberFormat = "@"
Das Format ändert sich leider nicht in Text.
Grúß
Steffen
15.09.2008 09:49:00
Thread-ID: 1009678
7 Beiträge
Anzeige
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Bild von Zelle in Zelle verlinken
Zelle

Hi Leute
Ich habe in Tabelle1 Zelle A1 einen Text, und danach habe ich in die Zelle ein Bild eingefügt
Nun möchte ich die gesamte Zelle A1 (Bild und Text) in Zelle Z17 haben.
Bei normalen Texten geht es ja mit =A1 (wenn ich in Zelle Z17 stehe)
Gibt es diesen Befehl auch für mein...
04.11.2008 16:19:07
Thread-ID: 1021687
4 Beiträge
Anzeige
Labels u. TextBoxen in UserForm blinken lassen
Lenhard

Moin Excellianer!
Wie bringe ich in einem UserForm die Caption mehrerer Labels und den Hintergrund von TextBoxen (z.B. Gelb/Weiß im Wechsel) zum blinken, wenn in der TextBox1 ein Wert steht? Wenn in der TextBox1 kein Wert steht, dann soll es auch nicht blinken in den Labels und TextBoxen.
19.12.2008 17:16:00
Thread-ID: 1034201
21 Beiträge
Zelle in Datum umwandeln
Will

Hallo Leutz,
wie in folgender Datei zu sehen, habe ich mal wieder ein Thema mit der Umwandlung von Zellen in ein Datumsformat.
Eine Mainframeanwendung gibt mir die Werte im Format 6/2003 aus was Juni 2003 heißen soll. Excel erkennt diese Daten aber nicht als Datum.
Wie bitte bekomme...
12.01.2009 07:41:00
Thread-ID: 1038745
5 Beiträge
Hyperlinks als Text
Markus

Hallo,
ich habe im Archiv bereits gesucht, aber nix passendes gefunden.
Ich schreibe eine grössere Tabelle mit vielen LINKS
Z.B. info@hammer.ch, www.meier.ch, \\pdc\LaufwerkC$, etc.
Sobald ich diese Werte in eine Tabelle schreibe, macht Excel sofort einen Hyperlink daraus.
W...
15.01.2009 08:18:00
Thread-ID: 1039886
8 Beiträge
TextBox Komma in Punkt umwandeln
Heinz

Hallo Leute
Wie kann ich bitte,wenn in Textbox6 ein Komma eingegeben wird, das es automatisch auf Punkt wechselt ?
Gruß
Heinz
28.01.2009 17:42:00
Thread-ID: 1044650
3 Beiträge
TEXT in Tabelle umwandeln
Martin

Liebe Forumteilnehmer,
möchste aus einem TEXT in WORD der bestimmte wiederholte, standardisierte Abschnitte - in diesem fall Name, Vorname, Geb-Datum, eine Tabelle generieren. Geht das mit einem Makro aus Excel heraus?
Danke
Martin
02.02.2009 17:26:48
Thread-ID: 1046338
4 Beiträge
Anzeige

Links zu Excel-Dialogen

Frame 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
6
5
5
3
3
20
4
7
2
3
2
14
3
1
10
15
3
4
4
2
5
16
17
5
1