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

• #22423 Delila_1 veterán mdk01 #22422

  Új Válasz 2014-07-13 14:17:28 #22423

  Ú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 mdk01 #22422 üzenetére

  Írtam egy Kotjel nevű függvényt rá.

  Function Kotjel(cella As Range)
  Dim kar As Integer, tol As Integer, ig As Integer
  For kar = Len(cella) To 1 Step -1
  If Mid(cella, kar, 1) = "_" Then ig = kar
  
  If Mid(cella, kar, 1) = "-" Then
  tol = kar + 1
  Exit For
  End If
  Next
  ig = ig - tol
  Kotjel = Mid(cella, tol, ig)
  End Function

  Beviszed a füzetedben egy modulba, és =kotjel(A1) formában alkalmazod.
  Ha több füzetben is használnád, érdemes a personalba másolni.

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