Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Daten filtern und in Tabelle 2 kopieren
zurück: Bedingte Formatierung mit VBA weiter: Zeile in neuen Tab kopieren wenn Kriterien erfuellt sind Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
tobitobsen69
Gast


Verfasst am:
26. Feb 2012, 11:47
Rufname:

Daten filtern und in Tabelle 2 kopieren - Daten filtern und in Tabelle 2 kopieren

Nach oben
       Version: Office 2010

Hallo Leute,
mein Problem ist, dass in meiner Tabelle1 in Spalte A untereinander jeder Tag im Jahr im Format 01.01.2012 aufgelistet ist (also von A2 bis A367) und von Spalte B bis X lauter Daten dazu stehen. Ich soll jetzt über eine UserForm mit einem Kombinationsfeld einen Monat filtern und Ihn mit allen dahinter stehenden Daten in Tabelle2 kopieren, indem ich eine Zahl, die für den Monat steht, ins Kombinationsfeld eingebe. Beim wiederholten Filtern soll in Tabelle 2 alles überschrieben bzw. zuerst gelöscht und neu eingefügt werden, sodass immer nur ein Monat in Tabelle2 steht.
Kann mir jemand helfen?!
r.mueller
Gast


Verfasst am:
26. Feb 2012, 12:40
Rufname:


AW: Daten filtern und in Tabelle 2 kopieren - AW: Daten filtern und in Tabelle 2 kopieren

Nach oben
       Version: Office 2010

Hallo


Dann kopiere die Tabelle 1 doch einfach komplett in die Tabelle 2
und dort tut es der Autofilter:
Code:

Sub AutofilterNurBestimmterMonat()

Dim wksA As Worksheet
Dim lngSpalte As Long
Dim dteAbDatum As Date
Dim dteBisDatum As Date
Dim lngMonat As Long
Dim lngJahr As Long

lngJahr = 2012
lngMonat = 2 'Beispiel!

dteAbDatum = DateSerial(lngJahr, lngMonat, 1)

dteBisDatum = DateSerial(lngJahr, lngMonat + 1, 0)

Set wksA = ThisWorkbook.Worksheets("Tabelle2") 'Beispiel Anpassen!
lngSpalte = 1 '= A Datum Spalte Beispiel

If wksA.AutoFilterMode Then
 wksA.UsedRange.AutoFilter
End If
   
wksA.UsedRange.AutoFilter Field:=lngSpalte, _
  Criteria1:=">=" & CLng(dteAbDatum), _
  Operator:=xlAnd, _
  Criteria2:="<=" & CLng(dteBisDatum)

End Sub


Gruß
r.mueller
Phelan XLPH
Fortgeschritten


Verfasst am:
26. Feb 2012, 12:56
Rufname: Phelan

AW: Daten filtern und in Tabelle 2 kopieren - AW: Daten filtern und in Tabelle 2 kopieren

Nach oben
       Version: Office 2010

Hallo,

da du XL2010 hast, geht das recht einfach.

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein



Tobito.xls
 Beschreibung:

Download
 Dateiname:  Tobito.xls
 Dateigröße:  88 KB
 Heruntergeladen:  63 mal

tobitobsen69
Gast


Verfasst am:
27. Feb 2012, 12:49
Rufname:

AW: Daten filtern und in Tabelle 2 kopieren - AW: Daten filtern und in Tabelle 2 kopieren

Nach oben
       Version: Office 2010

Hey, viele Dank.
tobitobsen69
Gast


Verfasst am:
27. Feb 2012, 13:11
Rufname:

AW: Daten filtern und in Tabelle 2 kopieren - AW: Daten filtern und in Tabelle 2 kopieren

Nach oben
       Version: Office 2010

Ich habe jedoch noch ein Problem.
Der Filtervorgang soll erst dann gestartet werden, wenn man in der UserForm auf eine Befehlsschaltfläche ("filtern") drauf klickt. Wie muss ich das Programm dann umschreiben?
Phelan XLPH
Fortgeschritten


Verfasst am:
27. Feb 2012, 13:15
Rufname: Phelan

AW: Daten filtern und in Tabelle 2 kopieren - AW: Daten filtern und in Tabelle 2 kopieren

Nach oben
       Version: Office 2010

Ersetze die Change-Zeile durch folgende:
Private Sub CommandButton1_Click()

Die Schaltfläche muss dann natürlich auch CommandButton1 heißen.
Ändere es nach Bedarf.

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
tobitobsen69
Gast


Verfasst am:
28. Feb 2012, 22:26
Rufname:


AW: Daten filtern und in Tabelle 2 kopieren - AW: Daten filtern und in Tabelle 2 kopieren

Nach oben
       Version: Office 2010

PERFEKT vielen vielen Dank!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Anzahl bei 2 Bedingungen aus Tabelle berechnen 6 Satanico 1723 21. Okt 2004, 14:48
Satanico Anzahl bei 2 Bedingungen aus Tabelle berechnen
Keine neuen Beiträge Excel Formeln: Formel als Text in Nachbarzelle kopieren 6 blauvogel 1129 19. Okt 2004, 16:54
blauvogel Formel als Text in Nachbarzelle kopieren
Keine neuen Beiträge Excel Formeln: erste Zeichen einer Zelle in andere kopieren 2 fisler0815 3067 11. Okt 2004, 15:37
fisler0815 erste Zeichen einer Zelle in andere kopieren
Keine neuen Beiträge Excel Formeln: Formel kopieren 4 Manfred50 893 24. Sep 2004, 21:31
Manfred50 Formel kopieren
Keine neuen Beiträge Excel Formeln: Gleiche Einträge in Tabelle nummerich aufzählen 1 sauer 483 02. Sep 2004, 09:11
ae Gleiche Einträge in Tabelle nummerich aufzählen
Keine neuen Beiträge Excel Formeln: aus Tabelle auslesen und vergleichen 1 wiedenmann 2805 12. Aug 2004, 13:42
Arnim aus Tabelle auslesen und vergleichen
Keine neuen Beiträge Excel Formeln: Hyperlink per VBA kopieren 1 Gast 1118 03. Aug 2004, 16:57
ae Hyperlink per VBA kopieren
Keine neuen Beiträge Excel Formeln: Kopieren für Anfänger 3 taraniel 2021 29. Jul 2004, 20:36
fl618 Kopieren für Anfänger
Keine neuen Beiträge Excel Formeln: Bei SVERWEIS wird die Matrix mit hochgezählt, beim kopieren. 1 MariaMagda 1606 28. Jul 2004, 14:14
Thomas Ramel Bei SVERWEIS wird die Matrix mit hochgezählt, beim kopieren.
Keine neuen Beiträge Excel Formeln: Tabelle einer Internetseite auslesen 1 Andy_beginner 1931 14. Jul 2004, 23:19
Manfred Bartak Tabelle einer Internetseite auslesen
Keine neuen Beiträge Excel Formeln: Zeilen mit speziellem Inhalt in neuem Arbeitblatt filtern 3 Bendra 1215 05. Jul 2004, 19:19
fl618 Zeilen mit speziellem Inhalt in neuem Arbeitblatt filtern
Keine neuen Beiträge Excel Formeln: Kst.daten in einen Tabellenblatt zusammenfassen ...sverweis? 7 Memo 4623 05. Jul 2004, 12:05
Memo Kst.daten in einen Tabellenblatt zusammenfassen ...sverweis?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS