AW: Trennzeichen in Zeichenfolge (für csv) mit Makro
03.11.2004 09:32:23
grumble
~f
Sub trennen()
Dim s, s2 As String
Dim i, j, m, pos As Integer
For m = 1 To 2 ' festlegen wieviele spalten (1 und 2 sind a und b)
For i = 1 To 3 ' festlegen wieviele zeilen (jetzt sinds 3)
s2 = ""
s = ""
j = 0
s = Cells(i, m).Value ' lesen spalte m
pos = 1
Do While pos > 0
pos = 0
pos = InStr(2, s, "1", 1) ' suche nach erstenm vorkommen einer 1 nach dem ersten zeichen
If pos > 1 Then
j = j + 1
If j = 1 Then
s2 = Mid(s, 1, pos - 1) ' schreibt teil vor 1 in s2
Else
s2 = s2 & "- " & Mid(s, 1, pos - 1)
End If
s = Right(s, Len(s) - pos + 1) ' schreibt rest in s
End If
Loop
Cells(i, m + 4).Value = s2 & "-" & s ' (m+x gibt die spalte an wo es hinsoll , hier spalte a nach e und b nach f)
Next i
Next m
End Sub
f~
so gehts.. achte auf die kommentare... wenn was unklar frage bitte
gruss grumble