Einfaches Problem
24.01.2006 10:34:51
Zsolti
habe folgendes Problem: Habe mehrere Namen in einer Zelle, die durch ein ";" getrennt sind. z.B. abc;def;ghi. Da ich jedes Element einzeln überprüfen will, also "abc" und "def" ..., suche ich zuerst nach dem ersten ";" und nehme mir alles links vom ersten ";" also das "abc", das mache mit dem befehl:
For i = 1 To 256
If Right(Left(dateiname, i), 1) = ";" Then
Filename = Left(dateiname, i - 1)
Spalte = 6
Makrosheet.Cells(1, Spalte) = Filename
Spalte = Spalte + 1
End If
Next i
Wie lautet jetzt der Befehl, mit dem ich alles rechts vom ";" als neuen Input einspeichern kann?
MfG Zsolt