Attribute VB_Name = "ModulMaja"
Option Explicit

Sub BMK_Liste()
'Günter Sommer 29.03.2021
' Spalten 2,3 und 5 werden in Spalte 16384 kopiert
Dim Anl As String, Ort As String, BMK As String, zk As String
Dim ii As Long, Zeile As Long
Zeile = 2
Do While IsEmpty(Cells(Zeile, 1)) = False
  Anl = "=" & CStr(Cells(Zeile, 2).Value)
  Ort = "+" & CStr(Cells(Zeile, 3).Value)
  BMK = "-" & CStr(Cells(Zeile, 5).Value)
  zk = Anl & "     " & Ort & Chr(10) & Chr(9) & BMK
  Cells(Zeile, 16384).NumberFormat = "@"
  Cells(Zeile, 16384).Value = zk
  zk = ""
  Zeile = Zeile + 1
Loop
MsgBox "letzte Zeile = " & Zeile, , "Günter Sommer 29.03.2021"
End Sub
Sub test()
Dim zk As String, ii As Long
zk = Cells(2, 16384).Value
For ii = 20 To Len(zk)
  MsgBox Mid(zk, ii, 1) & " --- " & Asc(Mid(zk, ii, 1))
Next ii
End Sub