Teil eines Textes verändern per VBA
iven_s
habe wieder mal ein kleines Problem, bei dem ich einfach nicht weiterkomme.
Der folgende Code müßte vereinfacht werden.
Sub test()
Dim text As String
Dim newtext As String
text = Cells(1, 1).Value
newtext = Cells(1, 2).Value
'Der folgende Code ist leider nicht sehr flexibel und
'müßte so angepasst werden, dass egal ist, wieviele Stellen
'text und newtext haben z.B. cells(1,1).value=newtext & ggf. Rest(text) ?
If Len(text) = 4 Then
Cells(1, 1).Value = newtext
ElseIf Len(text) = 6 Then
Cells(1, 1).Value = newtext & Right(text, 2)
End If
End Sub
Anzeige