|
Hallo VBA-Experten,
Ich will meine VBA-Codes vereinfachen, um mein Sheet übersichtlicher darzustellen und um Zeit zu sparen.
Meine VBA-Kentnisse reichen dazu aber bei Weitem nicht aus.
Ich habe folgende Ausgangssituation:
Bei Klick auf "Vorhanden" sollen jeweils die vorherigen 3 Zeilen kopiert werden und auf ein anderes Tabellenblatt ("Ergebnis)" eingefügt werden
Bisher habe ich dazu folgenden Code:
Private Sub OptionButton1_Click()
'Kopiert Zellen B6, D6, E6 in Ergebnisblatt zu Koordinaten C7:D7
Range("B6,D6,E6").Copy Worksheets("Ergebnis").Range("C7:D7")
'Fügt jeweils eine leere Zelle oberhalb ein
Worksheets("Ergebnis").Cells(7, 3).Rows.Insert shift:=xlShiftDown
Worksheets("Ergebnis").Cells(7, 4).Rows.Insert shift:=xlShiftDown
Worksheets("Ergebnis").Cells(7, 5).Rows.Insert shift:=xlShiftDown
Das Problem dabei, ich muss für jedes "Vorhanden"-Button einen Code schreiben und die genauen Zellen eintragen. Bei 500 Buttons pro Tabellenblatt ein zu großer Aufwand.
Ich möchte eine einfachere Version haben, bei der ich am besten einen Code für alle Buttons habe. Dieser soll ungefähr so aussehen:
Wenn Buttons_Ungerade aktiv 'alle "Vorhanden"-Kontrollkästchen haben als Namen eine ungerade Nummer
Dann kopiere Spalte (A,B,B) derselben Zeile wie das aktivierte Kontrollkästchen
Und füge dieses in Blatt (X).Zeile(x,y) ein
Ist dies möglich die OptionsButtons zusammenzufassen oder ist es einfacher, keine OptionsButtons zu benutzen?
Vielen Dank für eure Hilfe
LG Julien
|