AW: Zelleninhalt per VBA kopieren
16.11.2006 12:45:46
gerwas
hallo versuche mal folgendes:
Sub zahlen_trennen()
For k = 1 To 50 '00
tn = Cells(k, 1) 'wenn deine nummer in spalte 1 stehen und in zeile 1 beginnen
If InStr(1, tn, "-") <> 0 Then
p = InStr(1, tn, "-") 'wenn strich enthalten ist
Cells(k, 2) = Trim(Left(tn, p - 1)) 'bis zum Strich geht vermutlich die vorwahl, trimm entfernt leerzeichen
Cells(k, 3) = Trim(Right(tn, Len(tn) - p)) 'ab dem strich steht die telefonnummer, trimm entfernt leerzeichen
ElseIf InStr(1, tn, ")") <> 0 Then 'wenn ) enthalten ist
p = InStr(1, tn, ")")
Cells(k, 2) = Trim(Left(tn, p - 1)) 'bis zum Strich geht vermutlich die vorwahl, trimm entfernt leerzeichen
Cells(k, 3) = Trim(Right(tn, Len(tn) - p)) 'ab dem strich steht die telefonnummer, trimm entfernt leerzeichen
ElseIf InStr(1, tn, " ") <> 0 Then ' wenn leerzeichen trennen
p = InStr(1, tn, " ")
Cells(k, 2) = Trim(Left(tn, p - 1)) 'bis zum Strich geht vermutlich die vorwahl, trimm entfernt leerzeichen
Cells(k, 3) = Trim(Right(tn, Len(tn) - p)) 'ab dem strich steht die telefonnummer, trimm entfernt leerzeichen
End If
Next
End Sub
Gruss GerWas