Guten Morgen Werte Excel-Profis,
ich habe seit gut einem Monat ein Schleifen-Problem und finde keine Lösung, da ich auch recht unerfahren beim Umgang mit VBA bin.
Kurze Situationsbeschreibung:
Ich habe ein Aktenzeichen, welches aus 9 Zahlen besteht. In etwa so: 418010000.
Dabei gibt die "4" die Projektart an, die "18" steht für das Jahr und die 01 für die fortlaufende Projektnummer des jeweiligen Jahres. Dieses Stammaktenzeichen ist vorgegeben und wird durch ein System generiert.
Für einen Bericht und um einzelne Positionen nicht händisch zu erstellen würde ich gerne nun über eine Schleife sogenannte Unteraktenzeichen erstellen lassen.
Schema wäre folgendes:
Nach der "01" soll eine Zahl zwischen 2-8 geschrieben werden, welche in der Spalte bspw. "I3" definiert wird geschrieben werden. Das bekomme ich auch noch hin.
Danach wird die Menge an Häusern in "I4" eingetragen. Je nach Menge müssen diese Zahlen dann fortgeschrieben werden und einzelne Aktenzeichen erstellt werden. Gleiches gilt dann im nächsten Schritt mit den Wohneinheiten je Haus.
Kurzes Beispiel:
418010000 Stammaktenzeichen. Wahl der Projektart zw. 1-8 - ergibt sich 418014000
Ich habe 3 Wohnhäuser - damit ergeben sollen sich 3 Unteraktenzeichen 418014100, 418014200 und 418014300 ergeben.
Jedes Wohnhaus hat bspw. 3 Wohneinheiten
Dadurch würden sich folgende Aktenzeichen ergeben:
418014100 - 418014101, 418014102, 418014103
418014200 - 418014201, 418014202, 418014203
418014300 - 418014301, 418014302, 418014303
Diese sollen danach untereinander geschrieben werden mit der jeweiligen Zugehörigkeit
Spalte B Spalte C Spalte D
418014000
418014000 418014100
418014000 418014100 418014101
418014000 418014100 418014102
418014000 418014100 418014103
418014000 418014200
418014000 418014200 418014201
418014000 418014200 418014202
418014000 418014200 418014203
418014000 418014300
418014000 418014300 418014301
418014000 418014300 418014302
418014000 418014300 418014303
Diese Anordnung ist aus Formatierungsgründen so gewählt worden.
Ich hoffe ich habe das einigermaßen verständlich beschrieben und Ihr könnt mir helfen, dafür eine Lösung zu finden.
Ich danke bereits vorab für etwaige Hilfestellungen :)
Guten Start ins Wochenende und beste Grüße
Marcel |