Office: VBA: Zahlen als char eintragen

Hallo,
ich bastel mir gerade eine kleine Tabelle, die mir eine Textzeile in LCD-Schrift übersetzt.
Dafür habe ich mir ein 8x40-Zellengitter gebastelt, welches ein altes Display darstellen soll.

Um nicht jede Zelle einzeln beschriften zu müssen, lasse ich mir die Zeile in Spalte A per VBA zeichenweise in das Gitter eintragen.
Wie man auf dem Bild in Zeile 2 und 4 sehen kann, werden die Zahlen nicht eingetragen. In Zeile 3 habe ich alle Zellen im Gitter als Text formatiert. Dort wird die Zahl eingetragen, aber die Zelle markiert, weil eine Zahl als Text angezeigt wird.
Wie erzähle ich meinem VBA, dass er auch die Zahlen in die Zellen einträgt?

Code:

Private Sub Teilen(Quelle As Range)
 Dim Zeichen As String * 1, Zeile As Long, Spalte As Long, Txt As String
    Application.EnableEvents = False
    With Quelle
        Zeile = .Row
        Txt = .Value
        For Spalte = 3 To 42
            Zeichen = Mid(Txt, Spalte - 2, 1)
            'Debug.Print Spalte, Zeichen
            Cells(Zeile, Spalte) = Zeichen
        Next Spalte
    End With
    Application.EnableEvents = True
End Sub

Gruß
Doming

 

Hi,

du hast irgendeine Formatierung in diesem Zellbereich, der die Zahlen nicht darstellst - setze mal den Cursor in die betreffenden Zellen (z.B. M11) dann siehst du, dass die Zahlen drin stehen. Lösche die Zellen, sodass von unten welche nachgeschoben werden und schon werden die Zahlen dargestellt.

---

 

Moin

Spaltenbreite auf 1,5 setzen.

 

Im übrigen geht es auch ohne VBA.

Code:

=TEIL(A2;SEQUENZ(;LÄNGE(A2));1)

 

Nicht in allen Excel-Versionen...

---

 

Oh wie peinlich. Auf die Idee mit der Spaltenbreite bin ich nicht gekommen.
Vermutlich weil die Schriftart eigentlich eine feste Breite hat, ging ich davon aus, dass auch alle Zeichen ins Raster passen. Gerade die 1 ist ja nun nicht sooo breit

Zur Lösung ohne VBA: Meine aktiven Excelzeiten sind schon länger her, die verschiedenen neueren Befehle sind mir nicht bekannt. Ich hatte mich mehr mit Access/VBA beschäftigt, deswegen greife ich schneller da zu.
Danke für die Lösungen.

@Beverly: an verschleppte Formatierungen hätte ich als letztes gedacht, da ich für diesen Kleinkram extra eine frische Tabelle angefangen habe :-)