Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
936to940
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
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Inhalte der Zelle untereinder aufteilen?

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

Betreff
Datum
Anwender
Anzeige
AW: Inhalte der Zelle untereinder aufteilen?
29.12.2007 00:45:00
Josef
Hallo Sergej,
das geht zB. so.
Sub SplitText()
Dim strText As String, vTmp As Variant, a() As Variant
Dim i As Integer, n As Integer

strText = Range("A1").Text
vTmp = Split(strText, "http:")

Redim a(UBound(vTmp))

For i = 0 To UBound(vTmp)
    If Len(vTmp(i)) > 0 Then
        a(n) = "http:" & vTmp(i)
        n = n + 1
    End If
Next

Range("A2:A" & UBound(a) + 2) = Application.Transpose(a)

End Sub

Gruß Sepp

Anzeige
AW: Inhalte der Zelle untereinder aufteilen?
29.12.2007 01:06:00
Sergej
Hi Sepp,
super danke Dir !
Eine Frage noch. Wie bekomme ich das Leerzeichen (von rechts nach links gesehen) weg? Kann man dies auch im Code einbauen?
Gruß,
Sergej

AW: Inhalte der Zelle untereinder aufteilen?
29.12.2007 01:08:00
Josef
Hallo Sergej,
Sub SplitText()
Dim strText As String, vTmp As Variant, a() As Variant
Dim i As Integer, n As Integer

strText = Range("A1")
vTmp = Split(strText, "http:")

Redim a(UBound(vTmp))

For i = 0 To UBound(vTmp)
    If Len(vTmp(i)) > 0 Then
        a(n) = "http:" & Trim$(vTmp(i))
        n = n + 1
    End If
Next

Range("A2:A" & UBound(a) + 2) = Application.Transpose(a)

End Sub

Gruß Sepp

Anzeige
AW: Inhalte der Zelle untereinder aufteilen?
29.12.2007 01:28:00
Sergej
Dankeschön Sepp !
Gruß Sergej

201 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige