Teile von li. und re. einer Zelle kop/einfügen

Forumthread: Teile von li. und re. einer Zelle kop/einfügen

16.10.2017 12:26:32

li.

Hallo Gönner und Könner.
Eine Bitte:
Muss per VBA eine Zelle "A2" aus vielen .xls auslesen.
Code läuft perfekt nur
Leider wurde von den Usern die Firma und der Stand in eine Zelle mit vielen Leerzeichen (mal 5 mal 20)geschrieben.
z.B.
BABALON.........(Stand 13.05.2017)
BUBBLE POINT.................(Stand 09.09.2017)
FIRST & SECOND HAND BOUTIQUE.........................(Stand 02.06.2017)- Kommentar

Bräuchte jetzt die Firma - also alles von links bis zum großen Leerzeichenabstand:
TB1.Cells(LR, Spalte) = TB2.Range("A2..?..")
und den Stand - also alles von rechts bis zum großen Leerzeichenabstand:
TB1.Cells(LR, Spalte + 21) = TB2.Range("A2..?...")
Wer kann mir da bitte helfen.
Besten Dank und mfg
STeve

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Teile von li. und re. einer Zelle kop/einfügen

16.10.2017 12:44:34

li.

Hi Steve

Sub t()
Dim s As String
's = TB2.Range("A2")
s = "BUBBLE POINT       (Stand 09.09.2017)"
MsgBox Left(s, InStr(1, s, "  ") - 1)
MsgBox Right(s, 18)
End Sub

cu
Chris

AW: Teile von li. und re. einer Zelle kop/einfügen

16.10.2017 12:46:29

li.

Hi
kannst du so machen:
die Firma geht bis zum ersten Punkt:

TB1.Cells(LR, Spalte) = Left(TB2.Range("A2"), Instr(TB2.Range("A2"), ".") - 1)

das Datum findest du, wenn du nach der Position des Textes mit den zwei Punkte suchst.

TB1.Cells(LR, Spalte + 21) = CDate(Mid(TB2.Range("A2"), Worksheetfunction.Search(" ?.?.?)", TB2.Range("A2")) + 1, 10))

gruß Daniel

AW: Teile von li. und re. einer Zelle kop/einfügen

16.10.2017 12:50:43

li.

Hallo,
linken Teil (jetzt nur mal für Zelle A2, für alle Zeilen muss das ganze in eine Schleife eingebunden werden):

Left(TB2.Range("A2"), InStr(TB2Range("A2"), "     ") -1)

(wenn immer mindestens 5 Leerzeichen als Trennung dienen)
rechten Teil:

Mid(TB2.Range("A2"), InStr(TB2.Range("A2"), "Stand ") +6, 10)

Gruß
Robert

AW: Teile von li. und re. einer Zelle kop/einfügen

16.10.2017 12:52:25

li.

Hallo
die Zielzellen musst du noch anpassen

Sub Leerzeichen()
    Dim Tb1, Spalte As Integer, LR As Double, i As Double
    Dim TMP As String, Pos As Integer
    
    Set Tb1 = Sheets("Tabelle1")
    Spalte = 1 'Spalte A 
    LR = Tb1.Cells(Tb1.Rows.Count, Spalte).End(xlUp).Row 'letzte Zeile der Spalte 

    For i = 2 To LR
        TMP = Tb1.Cells(i, Spalte)
        Pos = InStr(TMP, "(")
        If Pos > 0 Then
            Tb1.Cells(i, Spalte + 1) = RTrim(Left(TMP, Pos - 1))
            Tb1.Cells(i, Spalte + 2) = Mid(TMP, Pos)
        End If
    Next
End Sub

LG UweD

DANKE...wie immer super Support

16.10.2017 14:52:04

STeve

Großes Lob und Danke an ChrisL, Daniel, Robert Werner und UweD.
Wie immer habt ihr schnelle und saubere Lösungen angeboten.
Alle Lösungen funktionieren und welche ich anwende kann ich noch nicht sagen.
Wünsche euch einen schönen Tag noch.
mfg STeve

Beliebteste Forumthreads (12 Monate)

Teile von li. und re. einer Zelle kop/einfügen

Forumthread: Teile von li. und re. einer Zelle kop/einfügen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Teile von li. und re. einer Zelle kop/einfügen

Forumthread: Teile von li. und re. einer Zelle kop/einfügen

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

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread