Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
300to304
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
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilenumbruch mittels VBA?

Zeilenumbruch mittels VBA?
26.08.2003 18:32:55
Josef
Hallo!

Ich habe z. B. folgende Zeile:

Ambulatorium f. Labordiagnostik Bruck/Leitha: Niederösterreich Ordner 6

Gibt es bitte die Möglichkeit mittels VBA in allen Datensätzen diesen Zeilenumbruch zu erreichen:

Ambulatorium f. Labordiagnostik Bruck/Leitha:
Niederösterreich Ordner 6

Manuelle Lösung wäre ALT+Enter.
Nur habe ich leider eine Menge Datensätze.

Danke
Josef

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilenumbruch mittels VBA?
26.08.2003 18:59:45
andre
hallo josef,
im prinzip so:

Sub Makro1()
' Makro1 Makro
' Makro am 26.08.2003 von wanderer aufgezeichnet
Dim i% ' % bei integer, & bei long
' Trennung nach dem ersten Doppelpunkt einer Zeichenkette
For i = 1 To 100 ' hier Beginn- und  Endzeile eingeben
If InStr(1, Cells(i, 1), ":") > 1 Then
Cells(i, 1) = _
Left(Cells(i, 1), InStr(1, Cells(i, 1), ":")) & _
Chr(10) & _
Right(Cells(i, 1), Len(Cells(i, 1)) - InStr(1, Cells(i, 1), ":") - 1)
End If
Next
End Sub

gruss andre
AW: Zeilenumbruch mittels VBA?
26.08.2003 19:07:29
Josef
Hallo Andre!
Besten Dank für Deine Hilfe. Hat alles bestens funktioniert.
Josef
Anzeige
AW: Zeilenumbruch mittels VBA?
26.08.2003 19:04:48
Matthias G
Hallo Josef,

Jetzt war Andre schneller und hat schon was brauchbares geschrieben.
Trotzdem noch meine Variante:


Sub Zeilenumbruch(ber As Range) 'Zellen in angegebnenen Bereich durchsuchen
Const Trennzeichen = ":" 'Zeilenumbruch nach dem ersten gefundenen Zeichen
Dim i, l As Long
Dim t1, t2 As String
Dim b As Variant
For Each b In ber
i = InStr(1, b, Trennzeichen)
If i <> 0 Then
l = Len(b.Value)
t1 = Left(b.Value, i)
t2 = Right(b.Value, l - i)
If Left(t2, 1) = Chr(32) Then t2 = Mid(t2, 2) 'evtl. führendes Leerzeichen abschneiden
b.Value = t1 + Chr(10) + t2
End If
Next b
End Sub


Viele Grüße,
Matthias
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige