Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Buchstabe und Zahl hochzählen

Forumthread: Buchstabe und Zahl hochzählen

Buchstabe und Zahl hochzählen
24.01.2025 15:20:07
Urmila
Hallo liebe Community,

ich hoffe, ihr könnt mir bei folgendem Problem weiterhelfen.

Es soll eine fortlaufende Zahl mit Buchstabe generiert werden, z.B. A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, B0...B9, C0...
Also der Anfang ist A0 und das Ende Z9. Das Ergebnis soll in der Zelle A1 übergeben werden.

Vielen Dank und LG
Urmila
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Buchstabe und Zahl hochzählen
24.01.2025 15:58:15
Ulf
Hi,
mit Parameter in B1:

=ZEICHEN(65+GANZZAHL(B1/10)) & TEXT(REST(B1;10);"00")

hth
Ulf
AW: Buchstabe und Zahl hochzählen
24.01.2025 22:25:50
Urmila
Danke Euch beiden.

Nun brauche ich noch eine Lösung bitte:

In einer anderen Datei (unabhängig von der Datei mit dem Code von Euch) steht in der Zelle B7 ein Buchstabe mit Zahl, zB A2.
kann man das mit einem Klick ebenfalls realisieren, dass die nächste Zahl in der Zelle steht, also A3 usw?
es soll nun nicht aufgelistet werden (wie oben in den Codes) soll lediglich erhöht werden und in der Zelle B7 eingetragen werden.

Soll wieder zwischen A0 bis Z9 hochgezählt werden.

Vielen lieben Dank und schönen Abend
Urmila
Anzeige
vielen Dank Ulf & Case :)
26.01.2025 17:16:59
Urmila
LG Urmila
AW: Buchstabe und Zahl hochzählen
24.01.2025 16:23:03
Urmila
sorry ich nochmals.

Besteht die Möglichkeit, diese Lösung im VBA umzuwandeln, so dass bei Click soll es ausgegeben der Wert wird?

Danke und LG
Das wäre eine Möglichkeit,...
24.01.2025 16:33:53
Case
Moin, :-)

... über VBA: ;-)
Option Explicit

Public Sub Main()
Range("A1:A260").Formula = "=CHAR(65+INT((ROW(A1)-1)/10))&MOD(ROW(A1)-1,10)"
End Sub

Oder so: ;-)
Public Sub Main_1()

With ThisWorkbook.Worksheets("Tabelle1").Range("A1:A260")
.Formula = "=CHAR(65+INT((ROW(A1)-1)/10))&MOD(ROW(A1)-1,10)"
.Value = .Value
End With
End Sub

Servus
Case
Anzeige
AW: Buchstabe und Zahl hochzählen
24.01.2025 18:20:47
Ulf
Hi,


'Aufruf:
'bNumber(Zeile(A1)-1)->A00, mit str+U nach unten ziehen
'bNumber(130)....

Public Function bNumber(ByVal lngNumber As Long) As String
bNumber = Chr(65 + lngNumber \ 10) & Format((lngNumber Mod 10), "00")
End Function

auf eine Schaltfläche in Datei gelegt:
https://www.herber.de/bbs/user/175174.xlsm

hth
Ulf
Anzeige
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18