ich versuche mich schon seit ein paar Tagen daran Daten je nach Auswahl des DropDown Menüs von einer Datei in die andere zu kopieren.
Konkret gesagt habe ich drei Dropdown Menüs in der Zieldatei. Je nach dem Wert in dem jeweiligen Dropdown Menü müssen die Werte eines Bereichs einer Spalte in die andere Datei kopiert werden. Dies habe ich eigentlich soweit geschafft, nur werden aktuell die Berechnungen auch mit übernommen. Ich hätte gerne nur die Werte, ohne die Formeln dahinter.
Könnt ihr mir da helfen? Der Code sieht bisher so aus:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E2")) Is Nothing Then
Select Case Range("E2")
Case "Nov": Makro5
Case "Dez": Makro6
Case "Jan": Makro7
Case "Feb": Makro8
Case "Mrz": Makro9
Case "Apr": Makro10
Case "Mai": Makro11
Case "Jun": Makro12
Case "Jul": Makro13
Case "Aug": Makro14
Case "Sep": Makro15
Case "Okt": Makro16
End Select
End If
Und die Makros so (beispielhaft an Makro 8):
Sub Makro8()
Windows("MAX_Kapa_IST und Forecast.xlsx").Activate
Range("Al5:Al195").Select
Selection.Copy
Windows("GSPT vs. 1. Quartal 2020").Activate
Range("E3").Select
ActiveSheet.Paste
End Sub
Danke und freundliche Grüße,
Problem 95