Új hozzászólás Aktív témák

• #32882 Pakliman tag Sprite75 #32881

  Új Válasz 2016-10-06 09:09:57 #32882

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Pakliman

  tag

  válasz Sprite75 #32881 üzenetére

  Szia(sztok)!

  "Elegánsabb" megoldás, de kell a VBA:

  Public Function MyÖsszefűz(terület As Range, Optional elválasztó As String = ";") As String
Dim cella As Range
Dim temp

For Each cella In terület
If cella <> "" Then temp = temp & IIf(temp <> "", elválasztó, "") & cella
Next cella

MyÖsszefűz = temp

End Function

  

Új hozzászólás Aktív témák