es fehlt nur eine Kleinigkeit im Makro
10.07.2005 23:29:42
Karl
folgendes Makro sollte aus Spalte C die Werte bearbeiten und nicht aus Spalte A
Sub ZellenAuseinandernehmen()
Dim intPos As Integer
Dim intz As Integer
With Sheets("Tabelle1")
intz = 1
Do Until .Cells(intz, 1).Value = ""
intPos = InStr(.Cells(intz, 1).Value, "/")
intl = Len(.Cells(intz, 1).Value)
.Cells(intz, 9).Value = Mid(Cells(intz, 1).Value, intPos + 1, intl - 1)
intz = intz + 1
Loop
End With
End Sub
Vieln Dank