Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1552to1556
1552to1556
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autofilter-gefundene Einträge in Tab schreiben

Forumthread: Autofilter-gefundene Einträge in Tab schreiben

Autofilter-gefundene Einträge in Tab schreiben
02.05.2017 10:06:33
Joachim
Hallo,
ich möchte die gefundenen Einträge - ähnlich wie beim Autofilter - in eine Tabelle schreiben. In Spalte A soll nach "2016" gefiltert werden. Die gefundenen Einträge in Spalte N (z.B. "BI", "NS", "RB") sollen dann in Tabelle2 geschrieben werden.
Wie mach ich das am schlauesten?
Gruß
Joachim
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autofilter-gefundene Einträge in Tab schreiben
02.05.2017 10:24:12
ChrisL
Hi Joachim
Versuch mal mit dem Makrorekorder. Genau wie du beschreibst. Einmal Autofilter, Bereich kopieren, Autofilter wieder raus.
cu
Chris
AW: Autofilter-gefundene Einträge in Tab schreiben
02.05.2017 10:34:36
Joachim
Hallo Chris,
die Einträge sind ja mehrfach vorhanden. Ich will ja nur die verschiedenen Einträge, die es gibt.
Joachim
AW: Autofilter-gefundene Einträge in Tab schreiben
02.05.2017 10:40:18
ChrisL
Hi Joachim
Ach sooo... ;)
Ja dann mit Spezialfilter, ohne Duplikate.
cu
Chris
Anzeige
AW: Autofilter-gefundene Einträge in Tab schreiben
02.05.2017 10:40:49
UweD
Hallo
Sub Filtern()
Dim TB1, TB2
Dim SP As Integer, EZ As Integer, LR As Long
Dim FFinde As String, ZielSP As Integer, QuellSP As Integer
Set TB1 = Sheets("Tabelle1")
Set TB2 = Sheets("Tabelle2")
SP = 1 'Spalte A
EZ = 2 'erste Zeile mit Daten
QuellSP = 14 'Spalte N
ZielSP = 1
FFinde = "2016"
If TB1.AutoFilterMode Then TB1.AutoFilterMode = False ' Autofilter ausschalten
LR = TB1.Cells(TB1.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
TB1.Columns(SP).AutoFilter Field:=1, Criteria1:=FFinde
If WorksheetFunction.CountIf(TB1.Columns(SP), FFinde) > 0 Then
'Reset
TB2.Columns(ZielSP).ClearContents
'kopieren
TB1.Range(TB1.Cells(EZ, QuellSP), TB1.Cells(LR, QuellSP)).Copy TB2.Cells(1, ZielSP)
'Duplikate raus
TB2.Columns(ZielSP).RemoveDuplicates Columns:=1, Header:=xlNo
Else
MsgBox "Keine Daten für '" & FFinde & "' gefunden"
End If
End Sub

LG UweD
Anzeige
AW: Autofilter-gefundene Einträge in Tab schreiben
02.05.2017 10:51:19
Joachim
Hallo Uwe,
ja genau so soll es sein. Der Autofilter blieb zwar bei deinem Programm noch aktiv, aber den hab ich in der letzten Zeile auf false gesetzt.
Danke!
Joachim
Danke für die Rückmeldung owT
02.05.2017 11:02:07
UweD

Forumthreads zu verwandten Themen

Autom. Datei erzeugen und Inhalt hineinschreiben..
Helmut

Liebe Mitglieder,
ich habe folgende knifflige Situation manuell zu tätigen:
In einem Ordner befinden sich x PDF-Dokumente (z.B. abcde.pdf, dfg45.pdf, usw.). Zu jedem dieser Dokumente muss ich eine txt-Datei anlegen, die einen Pfad enthält und folgendermaßen aussieht, also z.B. abcde.txt...
05.09.2008 08:59:57
Thread-ID: 1007580
5 Beiträge
Inhalt von UF wird nicht angezeigt
UF

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...
26.09.2008 14:29:02
Thread-ID: 1012639
16 Beiträge
makro umschreiben
haris

Hallo Experten,
ich haben folgendes Makro:
Sub pn_1_7_1() Dim i As Long, ar As Variant, j As Integer For i = 1 To Cells(1, 1).End(xlDown).Row If Cells(i, 1).Value Like "#-#######-#" Then ar = Split(Cells(i, 1).Value, "-") j = 1 While Mid(ar(1), j, 1) = "0" j = j + 1 Wend If j > 1 T...
22.01.2009 09:53:00
Thread-ID: 1042461
4 Beiträge
Daten fortlaufend von Formular in Range schreiben
Formular

Hi,
wie kann ich denn folgende Abfrage bzw kopieren erledigen:
Ich habe Ein Formular mit Textbox'n und Combobox'n
auf einem Bestimmte Tabellenblatt ("Daten") möchte ich nun die Folgenden Inhalte kopieren (button)
Auf dem Tabellenblatt ("Daten") habe ich ein Range B33 : F42 (also...
29.01.2009 09:26:24
Thread-ID: 1044806
3 Beiträge
untereinanderstehende Werte via VBA umformatieren
Harry

Hallo zusammen,
ich habe folgendes Problem, das ich gerne mit VBA lösen möchte:
Und zwar habe ich eine Tabelle, in der untereinander in verschiedenen Spalten Werte stehen, die ich auf einem weiteren Tabellenblatt hintereinander ausgeben möchte.
Ich benötige dazu ein Makro, das bspw....
30.03.2009 19:56:28
Thread-ID: 1065412
5 Beiträge
Pfad mit Dialog suchen und in Textfeld schreiben
Beni

Hallo zusammen
Ich habe in einem Userform einen Button, der einen Dialog öffnen soll, in dem der User eine Datei auswählen kann.
z.B. Application.Dialogs(xlDialogOpen).Show "R:\FA\030 FAD"
Hat er eine Datei ausgewählt, soll diese NICHT geöffnet, sondern nur der Pfad des Ablageortes...
26.06.2009 16:11:27
Thread-ID: 1084646
6 Beiträge
Eingabe soll sich selbst überschreiben
Jörg-HH

Guten Abend zusammen
hab Schwierigkeiten, mein Problem zu benennen, und weiß daher auch nicht, wonach ich erstmal im Archiv suchen könnte...
Der User soll in zwei Zellen je eine Eingabe machen. Nach Enter der zweiten Eingabe soll der dort eingegeben Wert sich selbst mit dem zuerst einge...
28.07.2009 20:51:05
Thread-ID: 1092068
5 Beiträge
Kombinationsfeld Überschreiben sperren
Jordan

Hallo zusammen,
ich habe in einem UserForm verschiedene Kombinationsfelder, die ich mit vorbestimmten Inhalten bestückt habe! Nun kann der Nutzer aber leider den vorbelegten Text überschreiben und beim Klick auf "OK" wird dieser dann auch übertragen.
Kann ich dieses Überschreiben des Ko...
29.07.2009 15:34:27
Thread-ID: 1092303
3 Beiträge
In Zelle schreiben und Formel erhalten
sanktflorian

Hallo,
ich habe eine Startliste erstellt wo die Starter von einem anderen Blatt eingefügt werden.
Da die Mannschaften vielleicht mit einem Mann weniger antreten müßte ich die Startliste ändern, da diese Zellen dann nicht schreibgeschützt sind möchte ich gerne aber die Formel schützen.
18.08.2009 10:32:05
Thread-ID: 1096658
3 Beiträge
Makroname in Zelle automatisch schreiben
Nibio

Hallo Excel-Profis,
Gibt es ein Befehl dass der Makroname in eine bestimmte Zelle schreibt (z.B in Zelle X1)?
Da mein deutsch leider nicht so gut ist (da ich keine deutsche Schule besucht habe), versuche ich mit ein Beispiel mi besser auszudrucken:
Sub Test() ' Makro2 Makro ' Makro...
18.08.2009 13:01:45
Thread-ID: 1096729
15 Beiträge
Makro Code umschreiben
Sprekelmeyer

Hallo Excelfreunde,
habe diesen Code:
If Workbooks("offene Rechnungen.xls").Worksheets("Kunde 04").Range("I8") = _
Workbooks("Rechnungsvorlage.xls").Worksheets("Artikel").Range("I8") Then
statt Worksheets("Kunde 04") möchte ich das aktuelle Worksheets das gerade angezeigt wird w...
26.08.2009 22:26:48
Thread-ID: 1098899
9 Beiträge
Daten ohne Dopplung in eine Spalte schreiben
Lars

Hallo liebes Forum,
ich habe folgendes Problem und hoffe Ihr könnt mir einen Tipp geben:
Ich habe eine Liste von Betreuten. In der jeweiligen Zeile stehen die Stammdaten der Person, aber auch der des Sachbearbeiters beim Amt. Letztere sind in der gesamten Tabelle teilweise einmal aber a...
31.08.2009 19:03:32
Thread-ID: 1099685
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige