Character

Forumthread: Character
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Character

Character

07.11.2023 08:03:12

Schwalbe

Guten Tag, miteinander!
Ich wollte mir eine Tabelle des verwendeten Fonts ausgeben:

Sub Char()

For zl = 1 To 16

    For sp = 1 To 15

        Cells(zl, sp) = Chr(zl + sp)

    Next sp

Next zl

End Sub

Ich bekomme aber nur Mini-Rechtecke. Was muss ich tun?
Dieter

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Character

07.11.2023 08:11:17

ralf_b
AW: Character

07.11.2023 09:31:11

Ulf
AW: Character

07.11.2023 09:26:22

Schwalbe

AW: Character

07.11.2023 08:11:17

ralf_b

erklär doch mal deinen Code.

vielleicht hilft ja auch dies: https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/character-set-0127

AW: Character

07.11.2023 09:31:11

Ulf

Sub Char()

    Dim lngChar As Long

    Dim z As Long, s As Long

    For z = 1 To 17

        For s = 1 To 15

            lngChar = lngChar + 1

            If lngChar > 255 Then Exit Sub

            Cells(z, s) = Chr(lngChar)

        Next s

    Next z

End Sub

hth
Ulf

AW: Character

07.11.2023 09:26:22

Schwalbe

Ich bin ganz unglücklich über das, was ich da nach dem Aufstehen produziert habe. Es muss Chr(16 * (zl - 1) + sp) heißen.
Nach dem Frühstück war mir klar, was passiert ist. Aber einen Thread kann man nicht löschen. Trotzdem ganz herzlichen Dank! Ich werde das nächste Mal besser aufpassen.
Dieter

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!