Filter selektieren, auswählen und kopieren (VBA)

Kathrin, Mittwoch, 16.05.2018, 09:33 (vor 155 Tagen) @ Martin Asal

Hoi MArtin

Danke für dein Feedback.
Leider klappt das mit der Schlaufe nicht ganz.
Ich habe es nun mit for each (da ja die Prozedur für jedes Kriterium durchgeführt
werden soll) versucht

For each
Worksheets("Tabelle1").Cells.AutoFilter Field:=49, Criteria1:= _
worksheets("Tabelle2").Range("A1")


If Criteria1 = "G" Then
dateiname = "G - Kopie.xlsm"

ElseIf Criteria1 = "A" Then
dateiname = "A - Kopie.xlsm"

If Criteria1 = "C" Then
dateiname = "C - Kopie.xlsm"

End If


'Zieldatei öffnen und inhalt löschen
Set destWB = Workbooks.Open(strpath & dateiname)

Set destWS = destWB.Worksheets("Grunddaten")
destWB.Activate
destWS.Range("A2:BI9999999").ClearContents

nun habe ich jedoch ein "Fehler beim Kompilieren". wie kann dieser behoben werden?

danke viel mal
Kathrin


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum