VBA Inhalt einer Zelle nur teilweise kopieren?

[p***@web.de]

Hallo,

möchte gern den Textinhalt einer Zelle in eine andere übergeben.
Dabei möchte ich nciht den ganzen Text übernehmen, sondern nur bis
zum ersten Komma. Also:

Hund, Katze -> Hund



Gibt es da aine Möglichkeit?

Danke.


Gruss Bernhard Huber

[Melanie Breden]

Hallo Bernhard,

schreibe bitte deinen Realnamen in das Absenderfeld.

Post by p***@web.de
möchte gern den Textinhalt einer Zelle in eine andere übergeben.
Dabei möchte ich nciht den ganzen Text übernehmen, sondern nur bis
Hund, Katze -> Hund
Gibt es da aine Möglichkeit?

ab Excel2000 kannst du dafür die Split-Funktion verwenden.
Dazu ein Beispiel:

Public Sub TextTrennen()
Dim strText As String
Dim varSplit As Variant
Dim lng As Long

strText = Range("A1").Value
varSplit = Split(strText, ",")

MsgBox varSplit(0)

For lng = 0 To UBound(varSplit)
' Ausgabe ohne Leerzeichen
Debug.Print Trim(varSplit(lng))
Next lng
End Sub


Mit freundlichen Grüssen
Melanie Breden

[Thomas Ramel]

Grüezi Bernhard

Post by p***@web.de
möchte gern den Textinhalt einer Zelle in eine andere übergeben.
Dabei möchte ich nciht den ganzen Text übernehmen, sondern nur bis
Hund, Katze -> Hund
Gibt es da aine Möglichkeit?

Wenn es immer bloss der Anfang des Textes bis zum Komma ist, kannst Du auch
String-Operationen verwenden:

MsgBox Left(Range("A1"), InStr(1, Range("A1"), ",") - 1)



Mit freundlichen Grüssen
Thomas Ramel (@work)