Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1952to1956
1952to1956
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Character

Forumthread: Character

Character
07.11.2023 07: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
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Character
07.11.2023 08: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
Anzeige
AW: Character
07.11.2023 08: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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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