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

• #44956 lappy őstag Plebi #44955

  Új Válasz 2020-09-25 11:12:52 #44956

  Ú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

  

  lappy

  őstag

  válasz Plebi #44955 üzenetére

  Igen nem lehet használni, de itt van egy makro amit a modulba mentesz

  Option Explicit

  Function My_Text_Join(delimiter As String, ignore_empty As Boolean, text_range As Range) As String

  Application.Volatile
  Dim c As Range
  Dim n As Long
  n = 0
  For Each c In text_range
  If ignore_empty = True Then
  If VBA.IsEmpty(c.Value) = False Then
  If n = 0 Then
  My_Text_Join = c.Value
  Else
  My_Text_Join = My_Text_Join & delimiter & c.Value
  End If
  n = n + 1
  End If

  Else

  If n = 0 Then
  My_Text_Join = c.Value
  Else
  My_Text_Join = My_Text_Join & delimiter & c.Value
  End If
  n = n + 1

  End If
  Next

  End Function

  Ha szeretnéd más névvel akkor cseréld le a My_Text_Join -t
  használata =My_text_join(" ";1;A1:A6)

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