Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1536to1540
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
1536to1540
1536to1540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel Textfeld - Zeile für Zeile

Excel Textfeld - Zeile für Zeile
23.01.2017 12:47:25
Christian
Hallo,
in PowerPoint ist es möglich einzelne Zeilen eines Textfeldes auszulesen, geht das auch in Excel? Ziel ist einen zu langen String für die Diagrammbeschriftung manuell auf maximal 3 Zeilen umzubrechen. Gibt es evtl. sogar eine Möglichkeit direkt in einem Excel-Feld die Zeilen einzeln auszulesen? Der String selbst kann manuelle Umbrüche enthalten oder auch nicht.
ActivePresentation.Slides(1).Shapes("TextBox 1").TextFrame.TextRange.Linies(2)
Danke und Gruß,
Christian

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Textfeld - Zeile für Zeile
23.01.2017 13:08:30
ChrisL
Hi Christian
Nein, gleich wie in PPT funktioniert es nicht, aber vielleicht so...
Sub BeispielZeile2()
MsgBox ZeileAuslesen(Range("A1"), 2)
End Sub


Private Function ZeileAuslesen(strGanzerText As String, lngZeile As Long) As String
Dim ar As Variant
ar = Split(strGanzerText, Chr(10))
ZeileAuslesen = ar(lngZeile - 1)
End Function
cu
Chris
AW: Excel Textfeld - Zeile für Zeile
23.01.2017 13:24:11
Christian
Leider nein, wie gesagt kann es sein, dass der Text keine Umbrüche enthält.
AW: Excel Textfeld - Zeile für Zeile
23.01.2017 13:28:57
ChrisL
hmmm... dann lasse ich die Frage offen
Der String selbst kann manuelle Umbrüche enthalten oder auch nicht.
Anzeige
AW: Excel Textfeld - Zeile für Zeile
23.01.2017 13:55:30
Daniel
Hi
automatische Umbrüche kannst du nur in einer ActiveX- bzw Userform-TextBox identifizieren.
dh du müsstest eine TextBox erstellen, die genauso groß und genauso formatiert ist wie deine Diagrammberschriftung.
Dann schreibst du dort den Text hinein und kannst dann die Zeilenzahl mit Textbox1.LineCount abfragen. Hierbei werden Zeilen, die durch automatische Zeilenumbrüche entstehen und erzwungene Zeilenumbrüche gleichermaßen gezählt.
Die TextBox muss den Focus haben.
für dein Problem könnte die Lösung dann aussehen:
Dim TextGesamt as String
dim TextGekürzt as String
dim i as Long
for i = 1 to len(TextGesamt)
Textbox1.Text = Left(TextGesamt, i)
if Textbox1.LineCount > 3 then Exit for
Next
TextGekürzt = Left(TextGesamt, i - 1)
Gruß Daniel
Anzeige
AW: Excel Textfeld - Zeile für Zeile
23.01.2017 14:43:06
Christian
Perfekt, danke. Hatte die Eigenschaft LineCount schon gesehen, bin aber nicht auf die Idee gekommen, diese auch zum String modifizieren zu nutzen.
Gerade wollte ich den Code noch darauf anpassen, nach jedem Zeilenumbruch ein Enter-Zeichen einzubauen.
Dabei habe ich durch Zufall doch noch die gesuchte Eigenschaft gefunden, für ein im Tabellenblatt hinterlegtes Textfeld: 
With Sheets(1).Shapes("Name").TextFrame2.TextRange
For i = 1 To .Lines.Count
If i = 1 Then strText = .Lines(1) Else Text = Text & Chr(10) & .Lines(i)
If i = 3 Then Exit For
Next
End With

Anzeige

111 Forumthreads zu ähnlichen Themen

Einfügen mit jeder 2. Zeile als Leerzeile
Ulrich

Hallo zusammen,
wie kann ich einen Bereich einer Tabellen markieren, kopieren und in einem anderen Tabellenblatt über "Inhalte einfügen" und "verknüpfen" automatisch mit jeder zweiten Zeile als Leerzeile versehen, ohne das die Verknüpfung verrutscht?
Danke im Voraus und Grüße,
Ulr...
26.08.2008 14:15:00
Thread-ID: 1004799
4 Beiträge
Anzeige
Jede 2. Zeile einfärben
Frank

Hallo und Guten Abend Zusammen!
Mit folgendem Code
Sub Zeilen_formatieren() Sheets("DATEN").Activate Range("A14:K65536").Select For Zeile = 1 To Selection.Rows.Count If Zeile Mod 2 > 0 Then Selection.Rows(Zeile).Interior.ColorIndex = 15 End If Next Zeile End Sub
kann ich jede z...
17.01.2009 19:20:00
Thread-ID: 1040966
4 Beiträge
Jede 2. Zeile Hintergrund ändern
Blum

Hallo zusammen
Habe da noch eine Frage.
In Excel kann man doch jede 2. Zeile anders darstellen, so dass das lesen von grossen Dateien einfacher wird.
z.B. 1. Zeile weiss, 2. Zeile hellgrün, 1. Zeile weiss, 3 wieder hellgrün usw.
Hemm weiss jemand noch wie das automatisiert geht?...
25.06.2009 17:40:07
Thread-ID: 1084417
6 Beiträge
Anzeige
Jede zweite Zeile ausblenden
kleinerfinger

Guten Morgen, ich hoffe das Wetter bei euch ist etwas besser als bei mir !
Ich möchte per VBA über einen Button von der Zeile 8 bis zur Zeile 1000 jede zweite Zeile ausblenden und über einen anderen Button wieder einblenden.
Wie lautet der Code dafür?
Danke für eure Bemühungen im Vo...
27.10.2009 08:18:15
Thread-ID: 1112393
3 Beiträge
Makro zum löschen jeder 2. Zeile
philG

Hallo liebe Herber-Gemeinde,
ich habe ein Problem: elend Lange Tabelle, wo ich die 1., 3., 5. Zeile usw. löschen muss.
Kann mir jemand mit einem VB-Befehl aushelfen, der jede 2. Zeile der Tabelle löscht?
Ich wäre suuperhappy! Habt vielen Dank im Voraus! :-)
05.01.2010 10:26:46
Thread-ID: 1127199
4 Beiträge
Makro: jede zweite Zeile andersfarbig
Holger

Hallo,
aus diesem Forum habe ich unten stehendes Makro gefischt.
Funktioniert soweit alles, nur sobald durch AutoFilter die Auswahl verändert wird,
gerät natürlich alles durcheinander. Mit einer bedingten Formatierung möchte ich es ungern
lösen, mir ist eine reine VBA Lösung li...
07.05.2010 16:37:55
Thread-ID: 1156123
4 Beiträge
Innerhalb Markierung jede 2. Zeile löschen
Henning

Hallo zusammen,
ich habe schon gesucht, aber irgendwie keine Lösung gefunden.
Das Problem: Beim Einfügen von Daten aus einem anderen Programm übernehme ich Zeilen, die ich nicht brauche. Da ich die Daten immer wieder an anderen Stellen einfüge, suche ich nach einer Funktion, die mir in...
10.06.2010 16:54:13
Thread-ID: 1161292
3 Beiträge
Leerzeile nach jeder Zeile
Tom

Hallo
ich suche eine Möglichkeit mit der nach jeder 2.Zeile automatisch eine Leerzeile eingefügt wird.
Zeile 1=Inhalt Zeile2=leer Zeile3=Inhalt Zeile4=leer usw.
Danke vorab
TOM
05.09.2010 15:43:41
Thread-ID: 1175831
2 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
3
4
3
5
4
2
3
3
2
1
8
3
3
6
3
7
3
6
3
1
10
3
4
4
3