title image


Smiley Re: Vielen Dank aber noch eine Frage
Hallo Christian,



dann vielleicht so (kommt auf deine Prüfdefinition an):



Sub Christian()

For I = 1 To [a65536].End(xlUp).Row

If Not Right(Range("A" & I), Len(Range("C" & I))) = CStr(Range("C" & I)) Then _

Range("A" & I) = Range("A" & I) & " " & Range("C" & I)

Next I

End Sub
Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: