Mit Button Zellen mehrfach untereinander kopieren
05.10.2018 09:15:03
Bergen
ich benötige bitte eure Hilfe für folgendes Vorhaben:
Es geht um eine Vertriebsliste, die über einen Button Schrittweise erweitert werden soll.
Genauer gesagt geht es darum, per Commandbutton neue Vertriebspartner hinzufügen zu können.
Dabei sollen die Zellen a25:h29 kopiert und eingefügt werden.
einmalig kriege ich das hin, dass in a31:h35 der Inhalt kopiert wird.
Theoretisch könnte ich jetzt eine ellenlange Formel einfügen mit "if ...then" um bspw. bei dem weiteren Vertriebspartner bei a37:h41 einzufügen, aber da gibt es doch bestimmt eine einfacherere Lösung. Zumal bei dieser Variante auf einen Klick direkt die Gesamtzahl der "If then" Formeln erfüllt sind. Ich hoffe, das Problem ist damit verständlich beschrieben. falls nicht, fragt einfach ;-)
hier meine bisherige Formel:
Private Sub CommandButton1_Click()
If Worksheets("Oktober").Range("A25") = "Vertriebspartner Nummer" Then
Worksheets("Oktober").Range("a25:h29").Copy Worksheets("Oktober").Range("a31:h35")
If Worksheets("Oktober").Range("A31") = "Vertriebspartner Nummer" Then
Worksheets("Oktober").Range("a25:h29").Copy Worksheets("Oktober").Range("a37:h41")
Else
Worksheets("Oktober").Range("a25:h29").Copy Worksheets("Oktober").Range("a37:h41")
End If
End If
End Sub