Nach langem Suchen ohne Lösung wäre ich echt froh um eure Hilfe.
Ich benötige ein Makro, welches im Worksheet "Aktivitäten" bei der Werteingabe "JA" in der Spalte K (Dropdownliste) bestimmte Zellen der entsprechenden Zeile in das Worksheet "Entscheidungen" kopiert. Ich habe durch Aufzeichnung ein Makro kreiert, das schon ganz gut läuft, jedoch nur auf einer bestimmten Zeile. Das Makro sollte jedoch auf jeder Zeile zur Anwendung kommen, in der der Wert in Spalte K auf "JA" gesetzt wird.
Bei der Gelegenheit möchte ich auch, dass in der neu kreierten Zeile im Worksheet "Entscheidungen" in der Zelle B11 das aktuelle Datum (also das Datum der Makroausführung) eingefügt wird, dafür hab ich auch noch keine Lösung gefunden.
Hier der generierte Code:
Sub Makro1()
' Makro1 Makro
Range("A11:F11").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
Range("A12:A16").Select
Range("A16").Activate
Selection.AutoFill Destination:=Range("A11:A16"), Type:=xlFillDefault
Range("A11:A16").Select
Sheets("Aktivit?ten").Select
Range("D7").Select
Selection.Copy
Sheets("Entscheidungen").Select
Range("C11").Select
ActiveSheet.Paste
Sheets("Aktivit?ten").Select
Range("E7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Entscheidungen").Select
Range("D11").Select
ActiveSheet.Paste
Sheets("Aktivit?ten").Select
Range("F7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Entscheidungen").Select
Range("F11").Select
ActiveSheet.Paste
Sheets("Aktivit?ten").Select
Range("J7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Entscheidungen").Select
Range("E11").Select
ActiveSheet.Paste
End Sub
Vielen Dank schon jetzt für euer Hilfe!
Liebe Grüsse, Sabine