Hallo Leute,

mein aktuelles Problem ist ein bisschen knifflig zu beschreiben ohne Beispiel-Datei und ich bin ziemlicher Anfänger, aber ich geb mein Bestes :)

Zum leichteren Verständnis: Es sollen zB. die verschiedenen Wege & Flächen eines Gartens beschrieben werden (Unterbau, Belag usw.). 

Der Punkt "Wege & Flächen" hat die Nummer 6.2 und jeder Weg/jede Fläche ist ein Unterpunkt, also der erste beschriebene Weg hat 6.2.1, die zweite Fläche hat 6.2.2 usw. - nun weiß man aber klarerweise vor dem Termin nicht, wie viele verschiedene Wege oder Flächen es gibt.

Beschrieben wird das ganze im Tabellenblatt "KG-Bewertung". In Spalte A hab ich die Nummerierung, in Spalte B ein Dropdown mit dem Namen (zB. Zugangsweg, Terrasse, ...), in Spalte C die Größe und Spalten D-G sind verbunden und ebenfalls ein Dropdown.

Im selben Tabellenblatt werden die einzelnen Punkte auch bewertet. Alle Zellen der Beschreibung sind mit den jeweiligen Zellen in der Bewertung verknüpft (also zB. =B364).

Ich habe jetzt in der Beschreibung & in der Bewertung den Punkt 6.2.1 vorbereitet und in einem eigenen Tabellenblatt "Muster" die entsprechende Vorlage erstellt und als Range definiert, einen Button kreiert, der die notwendige Range an den richtigen Stellen einfügt. 

Jetzt möchte ich aber, dass er, wenn ich einen Weg hinzufüge, er selbstständig den richtigen Unterpunkt einträgt und alles richtig verlinkt in der Bewertung, hab aber keinen Plan, wie ich das umsetzen kann.. Ich denke in die Richtung, dass er von "Ende_WegeFlächen" (befindet sich in Spalte A) in Spalte A nach oben suchen soll, wo sich der letzte Eintrag befindet und 1 hinzuzählen. Wie das mit der Verknüpfung der Zellen funktionieren kann/soll - keine Ahnung!

Ich hoffe, dass das für euch irgendwie verständlich ist und mir jemand helfen kann!

So sieht der Code aus, der mir einen Unterpunkt hinzufügt:

Private Sub CommandButton14_Click()

Set wsMuster = Sheets("Muster")
Set wsTarget1 = Sheets("KG-Bewertung")
Set wsTarget2 = Sheets("KG-Bewertung")

Target1 = Range("Ende_WegeFlächen").Row
wsMuster.Range("Muster_WegeFlächen").Copy
wsTarget1.Rows(Target1).Insert

Target2 = Range("Ende_WegeFlächen_Bewertung").Row
wsMuster.Range("Muster_WegeFlächen_Bewertung").Copy
wsTarget2.Rows(Target2).Insert

End Sub