Autoausfüllen 1, 1a, 1b usw.

Forumthread: Autoausfüllen 1, 1a, 1b usw.
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Autoausfüllen 1, 1a, 1b usw.

02.08.2008 23:07:00

Frank

Hallo Profis!
Ich stoße wieder einmal an meine Grenzen! In Spale B soll folgendes bis zur Zeile 4594 eingetragen werden, ohne es aber mühevoll tippen zu müssen! 1, 1a, 1b, 1c ......... 1m, 1n, 2, 2a, 2b........ 2m, 2n, 3, 3a, theoretisch bis zu 306n. Excel muss aber auch die genaue Schreibweise erkennen, da sonst meine andere Idee nicht funktioniert. Alles zu erklären würde jetzt den Rahmen und eure Nerven sprengen. Ich hoffe es gibt 'ne Möglichkeit mir zu helfen. Euch allen DANK!!!
Gruß Frank H.

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Autoausfüllen 1, 1a, 1b usw.

02.08.2008 23:40:22

Sigi
AW: Autoausfüllen 1, 1a, 1b usw.

03.08.2008 00:05:25

Frank

AW: Autoausfüllen 1, 1a, 1b usw.

02.08.2008 23:40:22

Sigi

Hallo Frank,
geht per Makro:


Sub Nummerieren()
Dim i As Long
Dim j As Long
Dim z As Long
z = 1
For i = 1 To 306
ActiveSheet.Cells(z, 2).NumberFormat = "@"
ActiveSheet.Cells(z, 2).Value = CStr(i)
z = z + 1
For j = 97 To 110
ActiveSheet.Cells(z, 2).NumberFormat = "@"
ActiveSheet.Cells(z, 2).Value = CStr(i) & Chr(j)
z = z + 1
Next j
Next i
End Sub

Gruß
Sigi