wie kann man für Sonderzeichen Tastenkombinationen erstellen? z.B. "ŏ", etc.
Oder sogar für meinen Namen?
Gruß
fluni
Option Explicit
Sub UniCodeZ()
Dim X As Range
For Each x In ActiveSheet.Range("B2:IV257")
x.Formula = ChrW(x)
Next x
End Sub
Wenn du willst, kannst du dann noch die nicht benötigten Spalten löschen (ca 70% Chinesisch/Koreanisch/Japanisch) oder Tabellen mit Untermengen des Zeichensatzes zusammenstellen.
Navigationshilfen u.ä. (je nach Geschmack und künftiger VBA-Fähigkeit) können ebenfalls beigefügt wdn. Auf jeden Fall aber das Fenster fixieren, damit Vorspalte und Kopfzeile immer sichtbar bleiben (Zelle B2 auswählen → Menü Fenster - fixieren).
Hinweis: Eine Spalte enthält dann diakritische Zeichen (scheinbar leer), die so fkt wie ^/´/`. Da ist dann auch noch mal ´´ dabei.
Gruß + schöWo
Luc :-?
Option Explicit
Sub unicode()
Dim i As Long
For i = 1 To 655536
Cells(i, 1) = ChrW(i)
If i = 400 Then Exit For 'bei Bedarf löschen :o)
Next i
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen