Vielleicht hat jemand eine Idee wie die Formel ändern muss so das sie in der Userform funktioniert
Der Blau Makierte Bereich soll je nach Auswahl der Combobox in die Tabelle und denn gewünschte Zeile gespeichert werden
Habe hier etwas für die ersten 2 Pages aber wie ändere ich diese so das man von der Userform speichert
Code:
Dim locations
locations = ComboBox.Value("Scheibbs", "Purkersdorf", "St Pölten URB", "Lilienfeld", "Wien")
Select Case ComboBox.Value
Case "Scheibbs": UserForm2.ComboBox.Value.Copy
Worksheets("Scheibbs").Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1).PasteSpecial xlPasteValues
Dim locations
locations = Array("Scheibbs", "Purkersdorf", "St Pölten URB", "Lilienfeld", "Wien")
Select Case (range("J6"))
Case "Scheibbs": Worksheets("Menü").range("O42").Copy
Worksheets("Scheibbs").Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1).PasteSpecial xlPasteValues
Case "Purkersdorf": Worksheets("Menü").range("O42").Copy
Worksheets("St Pölten").Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1).PasteSpecial xlPasteValues
Case "St Pölten URB": Worksheets("Menü").range("O42").Copy
Worksheets("St Pölten URB").Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1).PasteSpecial xlPasteValues
Case "Lilienfeld": Worksheets("Menü").range("O42").Copy
Worksheets("Lilienfeld").Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1).PasteSpecial xlPasteValues
Case "Wien": Worksheets("Menü").range("O42").Copy
Worksheets("Wien").Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1).PasteSpecial xlPasteValues
End Select
Select Case (range("AC6"))
Case "Scheibbs": Worksheets("Menü").range("AH42").Copy
Worksheets("Scheibbs").Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1).PasteSpecial xlPasteValues
Case "Purkersdorf": Worksheets("Menü").range("AH42").Copy
Worksheets("St Pölten").Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1).PasteSpecial xlPasteValues
Case "St Pölten URB": Worksheets("Menü").range("AH42").Copy
Worksheets("St Pölten URB").Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1).PasteSpecial xlPasteValues
Case "Lilienfeld": Worksheets("Menü").range("AH42").Copy
Worksheets("Lilienfeld").Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1).PasteSpecial xlPasteValues
Case "Wien": Worksheets("Menü").range("AH42").Copy
Worksheets("Wien").Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1).PasteSpecial xlPasteValues
End Select
For Index = 0 To 4 Step 1
EverythingisFasterNowJ6 (locations(i))
EverythingisFasterNowAC6 (locations(i))
Next Index
End Sub
Sub EverythingisFasterNowAC6(ByVal location As String)
Worksheets("Menü").range("AN22:AP22").Copy
Worksheets(location).Cells(8, Cells(8, Columns.Count).End(xlToLeft).Column + 3).PasteSpecial xlPasteValues
Worksheets("Menü").range("AN23:AP23").Copy
Worksheets(location).Cells(14, Cells(14, Columns.Count).End(xlToLeft).Column + 3).PasteSpecial xlPasteValues
Worksheets("Menü").range("AN24:AP24").Copy
Worksheets(location).Cells(17, Cells(17, Columns.Count).End(xlToLeft).Column + 3).PasteSpecial xlPasteValues
Worksheets("Menü").range("AN25:AP25").Copy
Worksheets(location).Cells(30, Cells(30, Columns.Count).End(xlToLeft).Column + 3).PasteSpecial xlPasteValues
Worksheets("Menü").range("AN26:AP26").Copy
Worksheets(location).Cells(32, Cells(32, Columns.Count).End(xlToLeft).Column + 3).PasteSpecial xlPasteValues
Worksheets("Menü").range("AN27:AP27").Copy
Worksheets(location).Cells(40, Cells(40, Columns.Count).End(xlToLeft).Column + 3).PasteSpecial xlPasteValues
Worksheets("Menü").range("AN28:AP28").Copy
Worksheets(location).Cells(37, Cells(37, Columns.Count).End(xlToLeft).Column + 3).PasteSpecial xlPasteValues
Worksheets("Menü").range("AN29:AP29").Copy
Worksheets(location).Cells(49, Cells(49, Columns.Count).End(xlToLeft).Column + 3).PasteSpecial xlPasteValues
End Sub
Sub EverythingisFasterNowJ6(ByVal location As String)
Worksheets("Menü").range("AN22:AP22").Copy
Worksheets(location).Cells(7, Cells(7, Columns.Count).End(xlToLeft).Column + 3).PasteSpecial xlPasteValues
Worksheets("Menü").range("AN23:AP23").Copy
Worksheets(location).Cells(8, Cells(8, Columns.Count).End(xlToLeft).Column + 3).PasteSpecial xlPasteValues
Worksheets("Menü").range("AN24:AP24").Copy
Worksheets(location).Cells(20, Cells(20, Columns.Count).End(xlToLeft).Column + 3).PasteSpecial xlPasteValues
Worksheets("Menü").range("AN25:AP25").Copy
Worksheets(location).Cells(22, Cells(22, Columns.Count).End(xlToLeft).Column + 3).PasteSpecial xlPasteValues
Worksheets("Menü").range("AN26:AP26").Copy
Worksheets(location).Cells(28, Cells(28, Columns.Count).End(xlToLeft).Column + 3).PasteSpecial xlPasteValues
Worksheets("Menü").range("AN27:AP27").Copy
Worksheets(location).Cells(29, Cells(29, Columns.Count).End(xlToLeft).Column + 3).PasteSpecial xlPasteValues
Worksheets("Menü").range("AN28:AP28").Copy
Worksheets(location).Cells(33, Cells(33, Columns.Count).End(xlToLeft).Column + 3).PasteSpecial xlPasteValues
Worksheets("Menü").range("AN29:AP29").Copy
Worksheets(location).Cells(34, Cells(34, Columns.Count).End(xlToLeft).Column + 3).PasteSpecial xlPasteValues
End Sub