Code Snippet "VBA Excel"

Gibt Inhalt einer Zelle als Ascii-Werte aus

Damit findet man heraus, dass der Umbruch in Zelle Ascii-Zeichen Nr 10 ist, d.h. LineFeed

Function funstrascii(ByVal objRange As Range)
  Dim intcounter As Integer
  Dim strtext
  For intcounter = 1 To Len(objRange.Value)
    strtext = strtext & AscW(Mid(objRange.Value, intcounter, 1)) & ", "
  Next
  funstrascii = strtext
End Function