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
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
Rot AutoFilter gleichzeitig zu zwei Tabellenblätter
 27.12.2022 14:08:12 PaulDo
Solved
27.12.2022 14:15:18 PaulDo
NotSolved

Ansicht des Beitrags:
Von:
PaulDo		 Datum:
27.12.2022 14:08:12		 Views:
1149		 Rating:
     
Antwort:
 Nein
Thema:
AutoFilter gleichzeitig zu zwei Tabellenblätter

Hier das fertige Exemplar. Es scheint ganz gut zu funktionieren.

 

?
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
26
27
28
29
30
31
32
33
Sub T(suchwort As String, copiertabelle As String, zieltabelle As String)
 
 
'Autofilter setzen und lösen
Sheets(copiertabelle).Range("A1").AutoFilter
 
'Filtern: Bestimmter Wert
 Sheets(copiertabelle).Range("A1").AutoFilter Field:=1, Criteria1:=suchwort
  
 'KopierenEinfügen
 With Sheets(copiertabelle)
        
      .Range("A1:A20").SpecialCells(xlCellTypeVisible).Copy _
    Sheets(zieltabelle).Cells(Sheets(zieltabelle).Cells(Rows.Count, "A").End(xlUp).Row + 1, "A")
End With
 
End Sub
  
 
Sub zieltabelleLeeren()
Sheets("Tabelle3").Cells.Clear
End Sub
 
 
  
 
 
 
Sub Zeigen()
Call zieltabelleLeeren
Call T("G", "Tabelle1", "Tabelle3")
Call T("A", "Tabelle2", "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
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
Rot AutoFilter gleichzeitig zu zwei Tabellenblätter
 27.12.2022 14:08:12 PaulDo
Solved
27.12.2022 14:15:18 PaulDo
NotSolved