kann Hilfe gebrauchen!
Wert Tabelle 1 A11 (3 Auswahlmöglichkeiten, Dropdown) soll nach Tabelle2 A15 kopiert werden und dann je nach Auswahl, aus Tabelle 3 mehrere Zeilen kopiert und in Tabelle 2 eingefügt werden.
Kann mir jemand helfen?
Sub test()
Worksheets(2).Cells(15, 1).Value = Worksheets(1).Cells(11, 1).Value
If Worksheets(2).Cells(15, 1).Value = 1 Then
kopiere dies
End If
If Worksheets(2).Cells(15, 1).Value = 2 Then
kopiere das
End If
If Worksheets(2).Cells(15, 1).Value = 3 Then
kopiere jenes
End If
End Sub
Für genauere Infos müsste ich die Tebelle sehen, bzw. was da genau kopiert werden sollWorksheets("Dienstleistung").Range("A11").PasteSpecial xlPasteValues
so zu ändern:Worksheets("Dienstleistung").Range("A5").PasteSpecial xlPasteValues
Oder verstehe ich dich immer noch nicht?