Hallo KäferKarl,
Habe ein kleines Makro zusammengeschustert. Es fallen
da jetzt 8000 Beschriftungen raus, aber du kannst im
Code noch ändern, bis wohin die Nummern jeweils laufen
sollen.
Ich hoffe dir ist damit geholfen.
MFG OVM
Einfach im Excel [Alt] + [F11] und dann den
programmcode in die tabelle 1 (links in browserfenster)
einfügen. Du startest es in dem du das modul anklickst
und F5 drückst oder den startknopf oben. Überall, wo rote
zeilen auftreten, ist ein zeilenumbruch zuviel, der hier
durchs forum entsteht. den einfach weglöschen und die
zeilen wieder vereinen.
Option Explicit
Sub Beschriftungen()
Application.ScreenUpdating = False
Dim stelle1 As Integer
Dim stelle2 As Integer
Dim stelle3 As Integer
Dim stelle4 As Integer
'Bis wohin sollen die jeweiligen Stellen laufen? --\> Hier
eintragen
stelle1 = 5
stelle2 = 5
stelle3 = 10
stelle4 = 16
'Hier sind die Schleifenzähler
Dim c1 As Integer
Dim c2 As Integer
Dim c3 As Integer
Dim c4 As Integer
Dim row As Integer
row = 1
For c1 = 1 To stelle1
For c2 = 1 To stelle2
For c3 = 1 To stelle3
For c4 = 1 To stelle4
Cells(row, 1).Value = "E"
If c1
für