Zeilenumbruch in String suchen

Forumthread: Zeilenumbruch in String suchen

12.08.2003 14:05:07

PeterA

Hallo !

VBA

Kann mir jemand sagen, wie man einen Zeilenumbruch in einem String suchen kann.
Ich weiss nur das es HEX "0D". Hab aber keine Ahnung wie ich das in dem String finde.

Vielen Dank
Peter

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeilenumbruch in String suchen

12.08.2003 14:08:58

sergiesam
AW: Zeilenumbruch in String suchen

12.08.2003 14:13:36

PeterA

AW: Zeilenumbruch in String suchen

12.08.2003 14:08:58

sergiesam

Hi,

mit InStr(text, chr(13)) findest du die Stelle, wo HEX D (=ascii(13)) vorkommt.

Sam

AW: Zeilenumbruch in String suchen

12.08.2003 14:13:36

PeterA

Hallo Sam

Wunderbar, vielleicht merk ich mir das mal ;-)

Vielen Dank

Peter

Infobox / Tutorial

Zeilenumbruch in String suchen und finden

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Öffne Excel und aktiviere den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Erstelle ein neues Modul: Klicke mit der rechten Maustaste auf "VBAProject", wähle "Einfügen" und dann "Modul".

Füge den folgenden Code ein, um einen Zeilenumbruch in einem String zu suchen:

Sub SucheZeilenumbruch()
   Dim text As String
   Dim position As Integer

   text = "Dies ist ein Beispieltext." & vbCrLf & "Hier ist ein Zeilenumbruch."
   position = InStr(text, Chr(13)) ' Sucht nach dem Zeilenumbruch

   If position > 0 Then
       MsgBox "Zeilenumbruch gefunden an Position: " & position
   Else
       MsgBox "Kein Zeilenumbruch gefunden."
   End If
End Sub

Führe das Makro aus: Drücke F5, um das Makro auszuführen und die Position des Zeilenumbruchs im String zu finden.

Häufige Fehler und Lösungen

Fehler: "Typkonflikt"
Lösung: Stelle sicher, dass der String korrekt definiert ist und keine ungültigen Zeichen enthält.
Fehler: "Objekt nicht gefunden"
Lösung: Überprüfe, ob du das Modul richtig hinzugefügt hast und dass der Code korrekt eingegeben wurde.

Alternative Methoden

Du kannst auch die Funktion Excel Suchen verwenden, um einen Zeilenumbruch zu finden:

Wähle die Zelle mit dem Text aus.
Drücke CTRL + F, um das Suchfenster zu öffnen.
Gib Alt + Enter ein, um nach einem Zeilenumbruch zu suchen.
Klicke auf "Weitersuchen".

Praktische Beispiele

Ein Beispiel für die Verwendung von vba: zeilenumbruch im code string:

Sub BeispielZeilenumbruch()
    Dim text As String
    text = "Erster Satz." & vbCrLf & "Zweiter Satz."

    If InStr(text, vbCrLf) > 0 Then
        MsgBox "Zeilenumbruch vorhanden."
    Else
        MsgBox "Kein Zeilenumbruch."
    End If
End Sub

In diesem Beispiel prüft das Makro, ob ein Zeilenumbruch im String vorhanden ist und gibt eine entsprechende Nachricht aus.

Tipps für Profis

Verwende vbNewLine: Anstelle von Chr(13) kannst du auch vbNewLine verwenden, um eine plattformunabhängige Lösung zu erzielen.
Fehlerbehandlung einfügen: Stelle sicher, dass du Fehlerbehandlungsroutinen implementierst, um unerwartete Fehler während der Ausführung zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich in Excel VBA prüfen, ob ein Zeilenumbruch vorhanden ist?
Verwende die Funktion InStr mit dem entsprechenden Zeichen für den Zeilenumbruch (z.B. Chr(13)).

2. Was ist der Unterschied zwischen vbCrLf und Chr(13)?
vbCrLf ist eine Konstante, die sowohl den Wagenrücklauf (Carriage Return) als auch den Zeilenumbruch (Line Feed) enthält, während Chr(13) nur den Wagenrücklauf repräsentiert.

Beliebteste Forumthreads (12 Monate)