title image


Smiley Falls es jemanden interesiert
Hallo Chris



Bei mir funktioniert der Code so leider nicht.



Damit Excel aber doch noch das macht was ich möchte mußte ich erst das Arbeitsblatt "Beleg-DB" mit der Quell-Datenliste "TabelleBereich" auswählen/aktivieren,

und in dem Code das Ziel-Arbeitsblatt "GegenkontoVerteilung" mit dem Zielbereich "Zielbereich" angeben.



Sub Makro2()

__Sheets("Beleg-DB").Select

__Sheets("Beleg-DB").Range("TabelleBereich").AdvancedFilter _

____Action:=xlFilterCopy, _

____CopyToRange:=Sheets("GegenkontoVerteilung").Range("Zielbereich"), Unique:=True

__Sheets("GegenkontoVerteilung").Select

End Sub



Jetzt funktioniert es.



Danke und Gruß

ewan



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: