Ich möchte von einem Tabellenblatt Daten in ein anderes Blatt übertragen. Es handelt sich hierbei um Namen bzw. Positionen, die diesen Namen zugeordnet sind in Abhängigkeit von einem Standort.
Als Beispiel ist Jörg Müller Abteilungsleiter im Werk München. Die Daten stehen dann in dem einen Blatt in Zeile x Spalte a bis d. Im neuen Tabellenblatt soll der Name in eine bestimmt Zelle eingetragen werden, die der Funktion zugeordnet ist (in anderer Anordnung.
Gibt es hierfür eine Funktion oder ist dafür ein Makro erforderlich. Habe es mit u.g. Makro versucht, aber das ist ziemlich umständlich, weil ich das für jede Funktion extra machen muss.
Sheets("Funktionen").Select
Range("A89:C89").Select
Selection.Copy
Range("a85").Select
ActiveSheet.Paste
Sheets("Daten").Select
Rows("50:800").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"E7:V8"), CopyToRange:=Range("A900:AD900"), Unique:=False
Range("A901,B901").Select
Selection.Copy
Sheets("Funktionen").Select
Range("c9").Select
ActiveSheet.Paste