Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

@Ramses

Forumthread: @Ramses

@Ramses
22.05.2004 14:06:33
christian
Hallo
Formatiere die Zelle mit
Format - Zelle - Ausrichtung - Option "Zeilenumbruch"
Dann sollten die Kästchen weg sein
Gruss Rainer
Hallo Rainer,
mit der Option "Zeilenumbruch" macht er nach jeder Zeile nur noch ein Kästchen, vorher waren es zwei. Hast Du irgendeine Idee wie man dieses eine Kästchen auch noch vermeiden kann?
Grüße Christian
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: @Ramses
Ramses
Hallo
leider nicht.
Das können irgendwelche Steuerzeichen oder zusätzliche Zeilenumbrüche sein.
Das kann nur gefiltert werden, BEVOR der Text in die Zelle gesetzt wird.
Danach weiss ich leider nicht, wie man nach dem Zeichen suchen kann.
Die VB Variante bevor der Text in die Zelle geschrieben wird, könnte so aussehen

Sub Remove_2_Chr10()
Dim myStr As String
Dim i As Byte
myStr = Me.TextBox1.Value
'On Error muss verwendet werden bei einer unbekannten
'Anzahl von Rücklaufzeichen. Dadurch wird die For Schleife
'beeinflusst, weil die Zeichenkette "myStr" ja immer kürzer wird
'und zum Schluss weniger Zeichen enthält als am Anfang der Schleife
'so dass i ins Leeere läuft
On Error Resume Next
For i = 1 To Len(myStr) - 2
Debug.Print Mid(myStr, i, 1)
Debug.Print Asc(Mid(myStr, i, 1))
If Asc(Mid(myStr, i, 1)) And Asc(Mid(myStr, i + 1, 1)) = 13 Then
myStr = Application.WorksheetFunction.Replace(myStr, i, 2, "")
End If
Next i
Cells(i, n) = myStr
End Sub

Gruss Rainer
Anzeige
AW: @Ramses
22.05.2004 18:02:01
Well
ab 2000 replace(DeinText,Chr(13),""))
E97 aufwärts : Worksheetfunction.substitute(DeinText,Chr(13),"")
Excel mag in Zellen kein CR sondern nur LF
(Habe ich in einem anderen Forum gelesen beim stöbern, nicht von mir)
Fare Well
AW: @Ramses
Ramses
Hallo Well Ness
Willkommen in der erlauchten Runde :-)
Danke für die Info mit den Versionen. Man sollte nicht glauben wie viele noch mit 97 arbeiten ;-))
Der Text kommt aus einer Textbox in einer UF und ich habe keine Ahnung welches Steuerzeichen sich hinter dem "Kästchen" verbirgt. Das mit der 13 ist nur ein Verdacht.
Trotzdem danke für die Info :-)
Gruss Rainer
Anzeige
Danke!
christian
Danke für die schnelle und ausführliche Hilfe!
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige