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

• #28128 Delila_1 veterán spe88 #28127

  Új Válasz 2015-08-19 12:04:36 #28128

  Ú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

  

  Delila_1

  veterán

  válasz spe88 #28127 üzenetére

  Saját függvénnyel megoldható.

  Function Filename(nev As Range)
  Dim bal As String, jobb As String, b As Integer
  
  For b = Len(nev) To 1 Step -1
  If Mid(nev, b, 1) <> "\" Then
  jobb = Mid(nev, b, 1) & jobb
  Else
  Exit For
  End If
  Next
  
  Filename = Left(nev, b) & "[" & jobb & "]"
  End Function

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