Teken(10) informule alleen als cel gevuld is

[rickbakkenes]

Beste kenners,

Ik heb een aantal cellen gevuld met tekst naast elkaar. De ene cel is gevuld en de andere weer niet. Ik wil de waarde van al deze cellen in 1 cel krijgen met daartussen elke keer een ALT-ENTER (TEKEN(10).

Echter wil ik geen ALT-ENTER als de cel leeg is. Dus maakt de cel zo onnodig groot.

Zie bijlage voor het voorbeeld.

Ik hoop dat iemand mij kan helpen.

Alvast bedankt.

Groetjes, RickBekijk bijlage helpmij teken10.xlsx

 

[HSV]

Hiermee moet het probleem opgelost zijn.

=SUBSTITUEREN(TEKST.SAMENVOEGEN(A1;TEKEN(10);B1;TEKEN(10);C1;TEKEN(10);D1;TEKEN(10);E1;TEKEN(10);F1;TEKEN(10);G1;TEKEN(10));TEKEN(10);" ")

 

[rickbakkenes]

Beste Harry,

Hiermee vervang ik alle TEKEN(10) voor een spaties. Dat is niet wat ik wil.

Na een cel met tekst wil ik TEKEN(10) en als de cel leeg is wil ik dat niet. Anders krijg ik

Tekstveld gevuld
leeg
leeg
Tekstveld gevuld
leeg
leeg
etc
etc
etc


Dus na een cel met een bepaalde waarde wil ik een ALT-ENTER en anders niet

 

[Niels28]

Met een UDF

Bekijk bijlage helpmij teken10.xlsm

Niels

 

[Piet Bom]

Of met een lange formule:

=A1&(ALS(B1<>"";TEKEN(10)&B1;""))&(ALS(C1<>"";TEKEN(10)&C1;""))&(ALS(D1<>"";TEKEN(10)&D1;""))&(ALS(E1<>"";TEKEN(10)&E1;""))&(ALS(F1<>"";TEKEN(10)&F1;""))&(ALS(G1<>"";TEKEN(10)&G1;""))&(ALS(H1<>"";TEKEN(10)&H1;""))&(ALS(I1<>"";TEKEN(10)&I1;""))

 

[Niels28]

@Piet,

Daar had ik geen zin in.

Niels

 

[Piet Bom]

@niels,
Als je dan toch met VBA werk, dan kun nog een lege regel uitsparen als de linkse of de rechtse cel leeg is

Private Function TEK(r As Range)
    For Each cl In r
        If cl.Value <> "" Then
          If Len(c01) > 0 Then c01 = c01 & Chr(10)
          c01 = c01 & cl.Value
        End If
    Next
    TEK = c01
End Function

 

[Niels28]

had ik later ook gezien, zou het dan zelf zo doen:

Private Function TEK(r As Range)

    For Each cl In r
        If cl.Value <> "" Then c01 = c01 & cl.Value & Chr(10)
    Next
    TEK = Left(c01, Len(c01) - 1)
    
End Function

Niels

 

[HSV]

Of:

Function Tek(Rng As Range)
  Tek = Join(Filter(Evaluate("if(" & Rng.Address & "<>""""," & Rng.Address & ", ""~"")"), "~", False), vbLf)
End Function

 

[rickbakkenes]

Gelukt.

Er is nog 1 dingetje. Hoe kan ik ervoor zorgen dat elke ALT ENTER een getalnotatie is? Ik denk dat het tekst wordt en dat is niet juist.

Is er nog een toevoeging aan de formule die ervoor zorgt dat het een "getal" blijft?

Alvast bedankt.

Groet, Rick