Makrofehler
thomas
möchte mit folgendem Makro bewirken, dass je nach dem wieviele Szenarien ein User angewählt hat unterschiedlich viel Szenarien mit generierten Werten ausgefüllt werden. Sieht jemand den Fehler?
Private Sub CommandButton2_Click()
'Damit die generierten Werte in die Modelle kopiert werden. je nach Anzahl Szen
'Sheets("Erfolgssens.-Analyse BM").Range("D48") = Sheets("Grafdata").Range("D53")
If ComboBox1.ListIndex = 0 Then
Sheets("Erfolgssens.-Analyse BM").Range("F47") = Sheets("Grafdata").Range("F52")
Sheets("Erfolgssens.-Analyse BM").Range("F48") = Sheets("Grafdata").Range("F53")
Sheets("Erfolgssens.-Analyse BM").Range("H47") = Sheets("Grafdata").Range("H52")
Sheets("Erfolgssens.-Analyse BM").Range("H48") = Sheets("Grafdata").Range("H53")
Sheets("Erfolgssens.-Analyse BM").Range("J47") = Sheets("Grafdata").Range("J52")
Sheets("Erfolgssens.-Analyse BM").Range("J48") = Sheets("Grafdata").Range("J53")
Sheets("Erfolgssens.-Analyse BM").Range("L47") = Sheets("Grafdata").Range("L52")
Sheets("Erfolgssens.-Analyse BM").Range("L48") = Sheets("Grafdata").Range("L53")
Sheets("Erfolgssens.-Analyse BM").Range("N47") = Sheets("Grafdata").Range("N52")
Sheets("Erfolgssens.-Analyse BM").Range("N48") = Sheets("Grafdata").Range("N53")
Sheets("Erfolgssens.-Analyse BM").Range("P47") = Sheets("Grafdata").Range("P52")
Sheets("Erfolgssens.-Analyse BM").Range("P48") = Sheets("Grafdata").Range("P53")
If ComboBox1.ListIndex = 1 Then
Sheets("Erfolgssens.-Analyse BM").Range("H47") = Sheets("Grafdata").Range("H52")
Sheets("Erfolgssens.-Analyse BM").Range("H48") = Sheets("Grafdata").Range("H53")
Sheets("Erfolgssens.-Analyse BM").Range("J47") = Sheets("Grafdata").Range("J52")
Sheets("Erfolgssens.-Analyse BM").Range("J48") = Sheets("Grafdata").Range("J53")
Sheets("Erfolgssens.-Analyse BM").Range("L47") = Sheets("Grafdata").Range("L52")
Sheets("Erfolgssens.-Analyse BM").Range("L48") = Sheets("Grafdata").Range("L53")
Sheets("Erfolgssens.-Analyse BM").Range("N47") = Sheets("Grafdata").Range("N52")
Sheets("Erfolgssens.-Analyse BM").Range("N48") = Sheets("Grafdata").Range("N53")
Sheets("Erfolgssens.-Analyse BM").Range("P47") = Sheets("Grafdata").Range("P52")
Sheets("Erfolgssens.-Analyse BM").Range("P48") = Sheets("Grafdata").Range("P53")
If ComboBox1.ListIndex = 2 Then
Sheets("Erfolgssens.-Analyse BM").Range("J47") = Sheets("Grafdata").Range("J52")
Sheets("Erfolgssens.-Analyse BM").Range("J48") = Sheets("Grafdata").Range("J53")
Sheets("Erfolgssens.-Analyse BM").Range("L47") = Sheets("Grafdata").Range("L52")
Sheets("Erfolgssens.-Analyse BM").Range("L48") = Sheets("Grafdata").Range("L53")
Sheets("Erfolgssens.-Analyse BM").Range("N47") = Sheets("Grafdata").Range("N52")
Sheets("Erfolgssens.-Analyse BM").Range("N48") = Sheets("Grafdata").Range("N53")
Sheets("Erfolgssens.-Analyse BM").Range("P47") = Sheets("Grafdata").Range("P52")
Sheets("Erfolgssens.-Analyse BM").Range("P48") = Sheets("Grafdata").Range("P53")
If ComboBox1.ListIndex = 3 Then
Sheets("Erfolgssens.-Analyse BM").Range("L47") = Sheets("Grafdata").Range("L52")
Sheets("Erfolgssens.-Analyse BM").Range("L48") = Sheets("Grafdata").Range("L53")
Sheets("Erfolgssens.-Analyse BM").Range("N47") = Sheets("Grafdata").Range("N52")
Sheets("Erfolgssens.-Analyse BM").Range("N48") = Sheets("Grafdata").Range("N53")
Sheets("Erfolgssens.-Analyse BM").Range("P47") = Sheets("Grafdata").Range("P52")
Sheets("Erfolgssens.-Analyse BM").Range("P48") = Sheets("Grafdata").Range("P53")
If ComboBox1.ListIndex = 4 Then
Sheets("Erfolgssens.-Analyse BM").Range("N47") = Sheets("Grafdata").Range("N52")
Sheets("Erfolgssens.-Analyse BM").Range("N48") = Sheets("Grafdata").Range("N53")
Sheets("Erfolgssens.-Analyse BM").Range("P47") = Sheets("Grafdata").Range("P52")
Sheets("Erfolgssens.-Analyse BM").Range("P48") = Sheets("Grafdata").Range("P53")
If ComboBox1.ListIndex = 5 Then
Sheets("Erfolgssens.-Analyse BM").Range("P47") = Sheets("Grafdata").Range("P52")
Sheets("Erfolgssens.-Analyse BM").Range("P48") = Sheets("Grafdata").Range("P53")
Else
End If
End Sub
Besten Dank für Hilfe
Gruss
thomas