Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Fehlersuche |
01.02.2021 13:11:37 |
Lisa |
|
|
|
01.02.2021 13:19:39 |
Mase |
|
|
|
01.02.2021 13:24:11 |
Gast45735 |
|
|
|
01.02.2021 13:32:52 |
Mase |
|
|
|
02.02.2021 09:47:11 |
Werner |
|
|
Von:
Lisa |
Datum:
01.02.2021 13:11:37 |
Views:
800 |
Rating:
|
Antwort:
|
Thema:
Fehlersuche |
Hallo,
und zwar habe ich ein Problem mit meinem Code... Es geht darum, dass ich mehrere Tabellen habe in verschiedenen Blätter. Diese Tabellen sollen alle gefiltert werden nach einer bestimmten Kategorie und soll dann in einer extra Tabelle in einem neuen Baltt ausgegeben werden. iIn der neuen Tabelle dann sollen alle gefilterten der eingegeben Kategorie ausglistet werden. Allerdings werden mir in der neuen Tabelle die Kategorie aus den Tabellen nicht ausgegeben...
Hier mein Code:
Sub TabelleFiltern()
Dim A As String
Dim Kategorie As String
'Variablen der einzelnen Tabellen
Dim lngLastRowTab1 As Long
Dim lngLastRowTab2 As Long
Dim lngLastRowErgebnis As Long
'Datenblatt erstellen
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets.Add
ws.Name = "NeueTabelle"
'Kopieren der Tabellen
lngLastRowTab1 = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
lngLastRowTab2 = Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
lngLostRowErgebnis = Sheets("NeueTabelle").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Tabelle1").Range("A11:P200").AutoFilter 12, "Kategorie"
Sheets("Tabelle1").Range("A11:P200").Copy Destination:=ThisWorkbook.Worksheets("NeueTabelle").Range("B2")
LngLastRowErgebnis = Sheets("NeueTabelle").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Tabelle2").Range("A11:P200").AutoFilter 12, "Kategorie"
Sheets("Tabelle2").Range("A11:P200").Copy Destination:=ThisWorkbook.Worksheets("NeueTabelle").Range("B2")
LngLastRowErgebnis = Sheets("NeueTabelle").Cells(Rows.Count, 1).End(xlUp).Row + 1
'Message Box
A = MsgBox("Kategorie wurde gefiltert", vbOKOnly, "Kategorie")
End Sub
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Fehlersuche |
01.02.2021 13:11:37 |
Lisa |
|
|
|
01.02.2021 13:19:39 |
Mase |
|
|
|
01.02.2021 13:24:11 |
Gast45735 |
|
|
|
01.02.2021 13:32:52 |
Mase |
|
|
|
02.02.2021 09:47:11 |
Werner |
|
|