Hallo an alle.
Ich hab folgendes Makro erstellt, dass bei einer Namensliste zwei Nummernkreise schreibt.
Spalte B laufende Nummer gst
Spalte C laufende Nummer Dienststelle
Spalte E Name usw...
Das Makro Sortiert bei Änderung die Namen nach Dienststelle, danach nummeriert es
die oben genannten Nummernkreise neu.
Aber es ist etwas langsam. Vielleicht gibt es eine Möglichkeit, dieses Makro zu beschleunigen?
For schleife = 1 To anzahl
Sheets("Steuerung").Select
start = Cells(zeile, 4)
ende = Cells(zeile, 5)
dstanzahl = Cells(zeile, 3)
Sheets("Beamte").Select
Range("b" & start & ":i" & ende).Select
Selection.Sort Key1:=Range("E5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
If schleife = 1 Then str = 0 Else str = 1
For nr = 1 To dstanzahl
Cells(start - str + nr, 3) = nr
Cells(start - str + nr, 2) = nrgst
nrgst = nrgst + 1
Next nr
zeile = zeile + 1
Next schleife