Hallo ich habe selbst ein sub geschrieben das ab einer gewissen spalte alle 3 spalten in einer spalte einen text austauscht (verwende z1s1 Bezugsart)
Sub hallo()
Dim i As Integer
Dim Start As Integer
Dim textalt, textneu As String
textalt = "Hallo"
textneu = "Grüß Gott"
Start = 11
i = 0
Do While Cells(1, Start + 2 + i).Value <> ""
Cells(1, Start + 2 + i).Formula = "=WECHSELN(ZS(-2);" & textalt & ";" & textneu & ")"
i = i + 4
Loop
End Sub
bitte schaut einmal drüber denn es kommt jedes mal seit einer änderung ein tlaufzeitfehler 13 typ unverträglich
freue mich schon auf die antworten
lg
|