AW: Da normalerweise ein alter Zellinhalt durch...
01.02.2008 15:02:41
ballistics
Oder meintest du ob ich überhaupt irgendeinen Code im Arbeitsblatt verwende?
Den einzigen den ich momentan verwende, ist der hier:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim reihe As Long
Dim i As Integer
Dim zähler As Double
Dim neu As String, neu1 As String
If Target.Value = "" Then
Exit Sub
End If
If Not Intersect(Target, Range("P:P")) Is Nothing Then
reihe = Target.Row
neu = Target.Value
With Target
For i = 1 To Len(neu)
zähler = zähler + 1
If Mid(neu, i, 1) = "/" Then
Exit For
End If
If zähler = Len(neu) Then
Exit Sub
End If
Next i
neu1 = Right(neu, Len(neu) - zähler)
Range("Q" & reihe) = neu1
End With
Range("Q" & reihe).TextToColumns Destination:=Range("Q" & reihe), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="/", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Range("P" & reihe) = Left(neu, zähler - 1)
End If
End Sub
Steht da irgendwas drin?