Thema Datum  Von Nutzer Rating
Antwort
19.12.2022 19:01:39 PaulDo
NotSolved
20.12.2022 06:14:35 ralf_b
***
NotSolved
20.12.2022 14:14:53 PaulDo
NotSolved
21.12.2022 00:02:33 ralf_b
NotSolved
Rot AutoFilter gleichzeitig zu zwei Tabellenblätter
 25.12.2022 17:53:30 Gast46968
NotSolved
26.12.2022 00:47:40 ralf_b
NotSolved
26.12.2022 11:18:39 PaulDo
NotSolved
26.12.2022 19:29:21 ralf_b
NotSolved
27.12.2022 14:08:12 PaulDo
Solved
27.12.2022 14:15:18 PaulDo
NotSolved

Ansicht des Beitrags:
Von:
Gast46968		 Datum:
25.12.2022 17:53:30		 Views:
1114		 Rating:
     
Antwort:
  Ja
Thema:
AutoFilter gleichzeitig zu zwei Tabellenblätter

So ganz konnte ich mich mit Deinem Code noch nicht auseinandersetzen. Aber was heißt das & hinter dem Irow bei "dim lrow&"?

Ich hatte jetzt erst einmal meinen Code verändert, keine Schleife und zwei unterschiedliche Sub Varianten. Bei Tabelle 1 und Tabelle 2 wird der Filter gesetzt. Der Kopiervorgang ist nur zu Tabelle 2 in Tabelle3 sichtbar. Hinter dem letzten Row setzte ich ein +1 damit die erste leere Zeile in Tabelle3 genutzt wird. Anbei mein neuer Code:

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub autofilterA(copiertab As String, suchwort As String, zieltab As String)
 
        Sheets("Tabelle1").Range("A1").autofilter
        Sheets("Tabelle1").Range("A1").autofilter 1, suchwort
         
        Sheets("Tabelle1").Range("A1:D20").SpecialCells(xlCellTypeVisible).Copy _
         Destination:=Sheets(zieltab).Cells(Sheets(zieltab).Cells(Rows.Count, 1) _
   .End(xlUp).Row + 1)
         
End Sub
Sub autofilterB(copiertabB As String, suchwortB As String, zieltabB As String)
 
        Sheets("Tabelle2").Range("A1").autofilter
        Sheets("Tabelle2").Range("A1").autofilter 1, suchwortB
         
        Sheets("Tabelle2").Range("A1:D20").SpecialCells(xlCellTypeVisible).Copy _
         Destination:=Sheets(zieltabB).Cells(Sheets(zieltabB).Cells(Rows.Count, 1) _
   .End(xlUp).Row + 1)
         
End Sub
 
Sub ausfuehrung()
 Call autofilterA("Tabelle1", "KTE", "Tabelle3")
 Call autofilterB("Tabelle2", "GTE", "Tabelle3")
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
19.12.2022 19:01:39 PaulDo
NotSolved
20.12.2022 06:14:35 ralf_b
***
NotSolved
20.12.2022 14:14:53 PaulDo
NotSolved
21.12.2022 00:02:33 ralf_b
NotSolved
Rot AutoFilter gleichzeitig zu zwei Tabellenblätter
 25.12.2022 17:53:30 Gast46968
NotSolved
26.12.2022 00:47:40 ralf_b
NotSolved
26.12.2022 11:18:39 PaulDo
NotSolved
26.12.2022 19:29:21 ralf_b
NotSolved
27.12.2022 14:08:12 PaulDo
Solved
27.12.2022 14:15:18 PaulDo
NotSolved