MID
23.04.2004 17:49:34
Andreas
ich habe folgendes Problem. Folgender Code funktioniert in eínem Projekt aber auf dem gleichen Computer im gleichen Excel in einem anderen Projekt sagt er mir er fände "MID" nicht in der Bibliothek.
Hat jemand eine Idee was da los ist. Muss ich irgendwo was verknüpfen???
Sub test()
Cells(1, 1).Select
Cells(1, 2).Value = Mid(ActiveCell.Value, InStr(ActiveCell.Value, " ") + 1, _
Len(ActiveCell.Value) - InStr(ActiveCell.Value, " "))
End Sub
wäre cool wenn einer eine Idee hat oder mir eine Alternativfunktion zu "MID" nennen könnte.
Viele Grüße
Andy
Anzeige