Fortlaufende Nummerierung aber mit 2 Buchstaben

Forumthread: Fortlaufende Nummerierung aber mit 2 Buchstaben

14.05.2018 07:33:01

Zoe401

Guten Morgen,
ich stehe vor einem Problem, bei dem ich Hilfe eure Hilfe gebrauchen könnte.
Ich habe zwei Tabellen, in welche Daten von einerm anderen Arbeitsblatt kopiert werden.
In der einen Tabelle wird dazu jeweils eine fortlaufende Nummer erstellt und in der zweiten Tabelle werden die Proben nicht mit Nummern aufgelistet sondern mit Buchtaben. Jeweils zwei. Wir stehen im Moment irgendwo bei CS und es soll automatisch weiter "nummerieren" mit CT, CU, CV, CW, CX, CY, CZ, DA, DB usw.
Mein Code für die Nummerierung un das kopieren der Daten in Tabelle 1 (Probenübersicht - Zahlen) ist wie folgt. Tabelle 2 heisst (Probenübersicht - Buchstaben).

Sub NeueProbe1()
Dim wbProbenübersicht As Workbook
Dim wbProtokollvorlage As Workbook
Dim wksStart As Worksheet
Set wbProtokollvorlage = ThisWorkbook
Set wksStart = wbProtokollvorlage.Sheets("Startseite")
Dim wksTarget As Worksheet
Dim i As Integer
i = wbProtokollvorlage.Sheets("Startseite").TextBox1.Value
On Error Resume Next
Set wbProbenübersicht = Workbooks("Probenübersicht.xlsx")
On Error GoTo 0
If wbProbenübersicht Is Nothing Then
Set wbProbenübersicht = Workbooks.Open _
("C:\Users\kiesel\Desktop\Protokoll Vorlagen Test\Probenübersicht.xlsx")
End If
Select Case True
Case wbProtokollvorlage.Sheets("Startseite").CheckBox28
Set wksTarget = wbProbenübersicht.Sheets("Probenübersicht - Zahlen")
Case wbProtokollvorlage.Sheets("Startseite").CheckBox29
Set wksTarget = wbProbenübersicht.Sheets("Probenübersicht - Buchstaben")
End Select
wksTarget.Activate
For a = 1 To i

wksTarget.Cells(5, 1).End(xlDown).Offset(1, 0).Value = wksTarget.Cells(5, 1).End(xlDown). _
Offset(0, 0).Value + 1
wbProtokollvorlage.Sheets("Startseite").Range("C4").Copy
wksTarget.Range("H" & wksTarget.Cells(5, 1).End(xlDown).Row).PasteSpecial Paste:= _
xlPasteValues
wbProtokollvorlage.Sheets("Startseite").Range("G20").Copy
wksTarget.Range("C" & wksTarget.Cells(5, 1).End(xlDown).Row).PasteSpecial Paste:= _
xlPasteValues
wbProtokollvorlage.Sheets("Startseite").Range("G6").Copy
wksTarget.Range("D" & wksTarget.Cells(5, 1).End(xlDown).Row).PasteSpecial Paste:= _
xlPasteValues
wbProtokollvorlage.Sheets("Startseite").Range("C27").Copy
wksTarget.Range("E" & wksTarget.Cells(5, 1).End(xlDown).Row).PasteSpecial Paste:= _
xlPasteValues
wbProtokollvorlage.Sheets("Startseite").Range("G6").Copy
wksTarget.Range("F" & wksTarget.Cells(5, 1).End(xlDown).Row).PasteSpecial Paste:= _
xlPasteValues
wksTarget.Range("G" & wksTarget.Cells(5, 1).End(xlDown).Row).Value = 1
wbProtokollvorlage.Sheets("Startseite").Range("C14").Copy
wksTarget.Range("I" & wksTarget.Cells(5, 1).End(xlDown).Row).PasteSpecial Paste:= _
xlPasteValues
wbProtokollvorlage.Sheets("Startseite").Range("C18").Copy
wksTarget.Range("J" & wksTarget.Cells(5, 1).End(xlDown).Row).PasteSpecial Paste:= _
xlPasteValues
wbProtokollvorlage.Sheets("Startseite").Range("G14").Copy
wksTarget.Range("K" & wksTarget.Cells(5, 1).End(xlDown).Row).PasteSpecial Paste:= _
xlPasteValues
Next a
End Sub

Bei der fortlaufenden Nummerierung (fett) ist das ja einfach. Wie geht das aber nun mit Buchstaben? Ist das überhaupt möglich?
Viele Grüße,
Zoe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Nur ein Ansatz!

14.05.2018 07:48:32

RPP63

Moin!
UDF:

Function Alpha$(Spalte&)
Alpha = Split(Cells(1, Spalte).Address, "$")(1)
End Function

Ergibt als Tabellenfunktion:

	A
98	CT
99	CU
100	CV
101	CW
102	CX
103	CY
104	CZ
105	DA
106	DB

Zelle	Formel
A98	=Alpha(ZEILE())

Gruß Ralf

AW: Fortlaufende Nummerierung aber mit 2 Buchstaben

14.05.2018 08:10:58

Daniel

Hi
So:
1. Zeichenfolge zu Zelladresse erweitern (eine Zeilennummer hinzufügen)
2. von dieser Adresse die Spaltennummer ermitteln
3. Spaltennummer erhöhen
4. mit der neuen Spaltennummer eine Spalte erstellen und deren Adresse ermittelt
5. aus der Adresse die Spaltenbezeichnung extrahieren

With wksTarget.Cells(5, 1).End(xlDown)
.Offset(1, 0).value = Split(Range(.value & "1"). Offset(0, 1).Address, "$")(1)
Ende with

Gruß Daniel

Funktioniert einwandfrei. Top, danke! owT

14.05.2018 08:19:22

Zoe401

Funktioniert einwandfrei. Top, danke!

Excel ist zuallererst Formel, nicht VBA ;)

16.05.2018 17:54:37

lupo1

B1 oder A2: =WECHSELN(ADRESSE(1;SPALTE(INDIREKT(A1&1))+1;4);1;)
(die Formel bleibt ausnahmsweise mal gleich; also egal, ob nach unten oder rechts kopiert)

Infobox / Tutorial

Fortlaufende Nummerierung mit Buchstaben in Excel

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Öffne Excel und erstelle ein neues Arbeitsblatt oder öffne dein bestehendes Dokument.
Importiere deine Daten in die Tabellen, falls notwendig.
Füge die VBA-Funktion hinzu:
- Drücke ALT + F11, um den VBA-Editor zu öffnen.
- Füge den folgenden Code ein, um eine fortlaufende Nummerierung mit Buchstaben zu erstellen:
```
Function Alpha$(Spalte&)
   Alpha = Split(Cells(1, Spalte).Address, "$")(1)
End Function
```
Verwende die Funktion in einer Zelle:
- Gehe zu einer Zelle, z.B. A1, und gib die Formel ein:
```
=Alpha(ZEILE())
```
- Ziehe die Zelle nach unten, um die Buchstaben fortlaufend zu nummerieren (A, B, C,...).
Anpassung für zwei Buchstaben:
- Um mit zwei Buchstaben fortzufahren (z.B. CT, CU), verwende den folgenden Code, um die Spaltennummer zu erhöhen:
```
With wksTarget.Cells(5, 1).End(xlDown)
   .Offset(1, 0).Value = Split(Range(.Value & "1").Offset(0, 1).Address, "$")(1)
End With
```
Führe den Code aus, um die fortlaufende Nummerierung zu erstellen.

Häufige Fehler und Lösungen

Fehler: "#NAME?"
- Lösung: Stelle sicher, dass die VBA-Funktion korrekt in einem Modul gespeichert ist.
Fehler: Falsche Buchstabenkombinationen
- Lösung: Überprüfe, ob die Formel korrekt eingegeben wurde und ob die Spaltennummern richtig erhöht werden.
Fehler beim Ziehen der Zelle
- Lösung: Stelle sicher, dass du die Zelle mit der Formel korrekt nach unten ziehst und die Referenzen sich entsprechend anpassen.

Alternative Methoden

Excel-Formel für fortlaufende Nummerierung: Du kannst auch eine Formel verwenden, um Buchstaben in Excel fortlaufend zu nummerieren:
```
=WECHSELN(ADRESSE(1;SPALTE(INDIREKT(A1&1))+1;4);1;"")
```
Manuelle Eingabe: Wenn du nur eine kurze Liste benötigst, kannst du die Buchstaben manuell eingeben und dann die Zelle nach unten ziehen, um die Serie fortzusetzen.

Praktische Beispiele

Beispiel 1: Wenn du in A1 "CT" hast und die Formel in A2 eingibst:
```
=WENN(A1="";"";CHAR(CODE(Links(A1;1))+1)&CHAR(CODE(Rechts(A1;1))+1))
```
- Dies würde "CU" ergeben, wenn du A1 auf "CT" setzt.
Beispiel 2: Verwende die VBA-Funktion, um in einer Liste von Proben automatisch die Buchstaben zu generieren, z.B. von "CA" bis "DB".

Tipps für Profis

Automatisiere den Prozess: Verwende VBA-Makros, um die fortlaufende Nummerierung automatisch zu generieren, wenn neue Daten eingegeben werden.
Verwende Named Ranges: Das Erstellen von benannten Bereichen kann die Verwaltung deiner Daten erleichtern, insbesondere wenn du mit mehreren Tabellen arbeitest.
Fehlerüberprüfung: Implementiere Fehlerüberprüfungen im VBA-Code, um sicherzustellen, dass die Buchstaben korrekt erhöht werden.

FAQ: Häufige Fragen

1. Wie kann ich Buchstaben in Excel fortlaufend nummerieren? Du kannst die VBA-Funktion Alpha verwenden oder eine Kombination aus Excel-Formeln.

2. Funktioniert die fortlaufende Nummerierung auch in Excel Online? Die VBA-Funktion ist nur in Desktop-Versionen von Excel verfügbar. In Excel Online sind Formeln die bessere Wahl.

3. Kann ich die fortlaufende Nummerierung mit anderen Zeichen kombinieren? Ja, du kannst die Formeln anpassen, um Buchstaben mit Zahlen oder anderen Zeichen zu kombinieren.

Beliebteste Forumthreads (12 Monate)

Fortlaufende Nummerierung aber mit 2 Buchstaben

Forumthread: Fortlaufende Nummerierung aber mit 2 Buchstaben

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Fortlaufende Nummerierung mit Buchstaben in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Fortlaufende Nummerierung aber mit 2 Buchstaben

Forumthread: Fortlaufende Nummerierung aber mit 2 Buchstaben

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Fortlaufende Nummerierung mit Buchstaben in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread