Supportnet / Forum / Tabellenkalkulation

Hallo zusammen! Diesmal hab ich eine kompatibilitätsfrage: Ich habe eine Exceltabelle bearbeitet, und mit VBA-Code versehen. Unter Office2000 funktioniert das auch wunderbar, allerdings gibts es unter O97 die Split-Funktion noch nicht! (Diese muss ich zum Trennen von Datensätzen benutzen, die ich manuell aus einer Datei auslese) Demnach kommt hier die Fehlermeldeuing, das die Funktion nicht existiert. Der Natur des Dokuments entsprechend muss es aber sowohl auf O2k und O97 laufen. Hat jemand einen Tip für mich, wie ich das lösen kann? Vielen Dank im Voraus! Greets, ich

hi ProxYa :)

vielleicht so gemeint :)

teilt spalte A anhand des angegebenen zeichens zu spalte b

gruss nighty

Sub makro01()
Dim zaehler1 As Long
Dim zaehler2 As Long
For zaehler1 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
For zaehler2 = 1 To Len(Cells(zaehler1, 1).Value)
If Mid(Cells(zaehler1, 1).Value, zaehler2, 1) = "DEIN ZEICHEN" Then
Cells(zaehler1, 2).Value = Mid(Cells(zaehler1, 1).Value, zaehler2 + 1, Len(Cells(zaehler1, 1).Value))
zaehler2 = Len(Cells(zaehler1, 1).Value)
End If
Next zaehler2
Next zaehler1
End Sub

hi ProxYa :)

ups so besser glaub ich :)

gruss nighty

Sub makro01()
Dim zaehler1 As Long
Dim zaehler2 As Long
For zaehler1 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
For zaehler2 = 1 To Len(Cells(zaehler1, 1).Value)
If Mid(Cells(zaehler1, 1).Value, zaehler2, 1) = " " Then
Cells(zaehler1, 2).Value = Mid(Cells(zaehler1, 1).Value, zaehler2 + 1, Len(Cells(zaehler1, 1).Value))
Cells(zaehler1, 1).Value = Mid(Cells(zaehler1, 1).Value, 1, zaehler2 - 1)
zaehler2 = Len(Cells(zaehler1, 1).Value)
End If
Next zaehler2
Next zaehler1
End Sub

Hallo!

Vielen Dank, aber so war es nicht gemeint.

Ich hab mittlerweile das gefunden was ich gesucht habe.
Es ging nur um die Excelinterne(VB) Funktion

Split(String,delimiter)
[/code
(ab Office2k), die es im 97'er Paket nicht nicht gab (bzw. VB4 od. 5). Ich habe einen alternativen Code für diese Funktion gefunden und in das Workbook eingebettet.
Die Funktion wandelt nur einen String nach einem Trennzeichen in ein Array um!

Vielen Dank trotzdem!

Greets, ich