Hallo,
ich habe da doch noch einen Änderungswunsch:
Das Makro soll nur dann nicht ausgeführt werden können, wenn die Zelle A2 im Tabellenblatt "Aktionsplanung" bereits mit Daten gefüllt ist.
Mein Makroumbau funktioniert leider nicht :-(.
Sub Artikel_auswählen()
'
If Sheets("Aktionsplanung").Range("A2") = 1 Then
MsgBox "Neue Artikel DIREKT in das Tabellenblatt Aktionsplanung eintragen!", 16, "Fehler"
Exit Sub
End If
ActiveSheet.Range("H1") = 1
'ab hier dann dein Makro
ActiveSheet.Range("$A$1:$D$10731").AutoFilter Field:=3
ActiveSheet.Range("$A$1:$D$10731").AutoFilter Field:=6, Criteria1:="<>"
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Aktionsplanung").Select
Range("A2").Select
ActiveSheet.Paste
Range("F4").Select
Sheets("Artikelliste").Select
Application.CutCopyMode = False
ActiveSheet.Range("$A$1:$D$10731").AutoFilter Field:=4
Range("C11").Select
Sheets("Aktionsplanung").Select
End Sub