Office: Werte aus Spalte filtern und auf Tabellenblatt ausgeben?!

Hallo,

ich habe eine Exceltabelle mit einer ToDo Liste.
Die Tätigkeiten stehen bereits untereinander und werden auf einzelne Monate zugeordnert sowie zuständige Personen. Jedoch sind nicht alle zeilen bei den Tätigkeiten belegt...also d.h. die Tabelle geht von Zeile 4 bis Zeile 82 und manche Felder davon sind leer und es steht nichts drinne.

Nun möchte ich es mittels button so einrichten, dass ich z.b. auf "januar" klicke und mir alle Tätigkeiten des Januar angezeigt werden und die leeren Felder aussortiert werden. Dazu sollen halt noch die zuständigen Personen für die Tätigkeiten angezeigt werden.

Kann mir da jemand eine Simple Lösung vllt zeigen bzw posten...ich habe nämlich keine Ahnung irgendwie, wie ich das anstellen soll, weil ich ein totaler Einsteiger bin!

liebe grüße :)

 

Hallo!

Geht das hier in deine Richtung?
http://excelformeln.de/formeln.html?welcher=28

Eine andere Möglichkeit wäre der Spezialfilter.

Falls beides nicht treffen sollte, dann wäre eine (anonymisierte) Beispielmappe vielleicht hilfreich.

 

hmm ich glaub das is noch nich so ganz das wahre...
im anhang befindet sich mal so ein beispiel in etwa wie ich es habe

also wenn man jetzt die tabelle vor sich hat sieht man ja die verantworlichen, ihre aufgaben und die monate in denen die aufgaben zu erledigen sind

jetzt möchte ich die tabelle in etwa so vereinfachen, das ich oben wo die monate stehn (jan, feb, mrz...etc.) jeweils einen button einfüge mit dem namen "januar" bei jan z.b.....und wenn man auf den button klickt, sollen nur noch die to dos + verantwortliche angezeigt werden wo halt in der spalte "januar" ein fragezeichen steht


ich hoffe es ist einigermaßen verständlich, wie ich es meine und mir kann jemand helfen :-)

 

Hallo!

Dazu reicht doch eigentlich schon der Autofilter, oder nicht?

Markiere I3:U?? und wähle Ribbon Start > Bearbeiten > Sortieren und Filtern > Filter.
In Zeile 3 sollten nun hinter jedem Monat DropDown-Pfeile erscheinen, über die du entsprechend filtern kannst.

 

hmm joa das geht, aber wenn ich dann auf filtern mache, dann blendet der nur die leeren felder bis zu dem ersten feld aus wo nen ? drinsteht aus :roll:

und außerdem blendet der ja dann die ganze zeile aus...

also das erste kriterium soll halt die zeit sein, das wenn man den monat klickt, das dann auch nur die sachen für den monat angezeigt werden :-|

ich hab voll keinen plan wie ich des anstellen soll alles^^ möchte ja im grunde nur jeweils nen button mit dem monat einfügen und dann kann sich von mir aus ein neues tabellenblatt öffnen in dem halt nur der monat steht und halt nur das angezeigt wird, wo auch wirklich was gemacht wird...d.h. wo ein fragezeichen steht hmm

 

Hallo!

Heute werde ich wohl keine Zeit mehr für eine Lösung haben, aber einige Punkte sind mir immernoch nicht klar:

Sowohl in Spalte I wie auch in Spalte U ist die Überschrift "Jan". Warum? Läuft die reale Tabelle eigentlich noch weiter? Also gibt es auch noch einen zweiten "Feb" oder einen zweiten "Mrz"? Wie soll Excel zwischen mehreren "Jan" (oder "Feb") unterscheiden, also woher erkennt Excel das gemeinte Jahr?

Stehen in deiner realen Tabelle auch "?" in den entsprechenden Zellen? Oder soll eigentlich nach NICHTLEEREN Zellen gesucht werden?

Erwartest du die Einträge aus den Spalten A:H als Ausgabe? Oder noch mehr? Oder weniger?

Wenn du das per Button/s lösen möchtest, dann musst du definitiv aus der eigentlichen Anwendungsumgebung von Excel raus, und das Ganze per VBA programmieren. Das soweit zu deiner 100%igen Erfüllung deiner Wünsche.
Wenn dir aber auch ein DropDown zur Monatswahl reichen würde, dann ist das wohl "noch" mit Formeln machbar.

Allerdings frage ich mich nach wie vor, warum dir die Autofilter-Lösung (nach "nicht leer" oder auch "?") nicht reicht, außer dass dir auch noch die weiteren Spalten angezeigt werden und es nicht in ein neues/anderes Blatt exportiert wird.
Der Autofilter ist mit Abstand (wenn vielleicht auch mit Abstrichen) die simpelste Lösung für dein Problem, es sei denn, ich habe eine entscheidende Info deinerseits bislang übersehen.

 

Hi!

also im grunde is das eine tabelle, die von diesem jahr im januar bis zum nächsten jahr ende januar geht...ne unterscheidung von den beidens "jan" besteht nicht, aber gut das es erwähnt wird...

in den zellen steht eig größtenteils ein "?" ja...aber es gibt auch bestimmte aufgaben in den einzelnen monaten, wo noch was besonders drin steht

jap die spalten A:H erwarte ich als ausgabe dann, das wäre am perfektesten, um halt die ganze tabelle zu vereinfachen und deutlicher die gewünschten punkte darzustellen

ich denke mal das wäre mit buttons am besten zu realisieren, weil dadurch das alles ein wenig aufgesplittet wird und es übersichtlicher wird, wenn man alle informationen über einen bestimmten monat haben möchte

 

Hallo!

Wenn du wie gesagt "Buttons" als die beste Lösung betrachtest, dann schau doch z.B. mal hier vorbei:
https://www.office-hilfe.com/suppor...slesen-in-entsprechendes-blatt-kopieren.7310/
Das ist dann zwar nicht mehr "simpel", aber es erfüllt nach entsprechender Anpassung deinen Wunsch!

 

das geht ja schon einmal ganz gut in die richtung, jedoch verstehe ich des immer noch nicht so richtig ob man des und wenn dann wie mit einem button verwirklichen kann :-?

wäre es vllt mal möglich das du es so machst an der beispieltabelle, so wie ich es mir in etwa vorstelle mit klick auf den button, das sich ein neues tabellenblatt öffnet und die sachen aufgelistet werden: wo ein "?" z.b. steht und halt die spalten A:I...das wäre sehr hilfreich für mich

wäre sehr nett wenn du des mal anhand des beispieles verwirklichen kannst

 

Hallo!

Das hier könnte der Code für den "Januar-Button" sein.
Für weitere Buttons brauchst du nur die Variable "Spalte" anzupassen.

Code:

Private Sub CommandButton1_Click()
Dim Spalte As Long, Letzte As Long, i As Long, Erste As Long
With Sheets("Tabelle2")                                             'dies ist das Zielblatt
    Application.ScreenUpdating = False
    Erste = 5                                                       'erste Zeile im Zielblatt
    .Range(.Cells(Erste, 1), .Cells(Rows.Count, 8)).Clear
    Spalte = 9                                                      'Spalte im Quellblatt
    Letzte = Cells(Rows.Count, Spalte).End(xlUp).Row                'letzte Zeile im Quellblatt
    For i = 5 To Letzte
        If Cells(i, Spalte) = "?" Then
            Range(Cells(i, 1), Cells(i, 8)).Copy .Cells(Erste, 1)
            Erste = Erste + 1
        End If
    Next i
    Application.ScreenUpdating = True
    .Activate
End With
End Sub

 

Hey Ho!! :-)

Vielen vielen lieben Dank, genau SO hatte ich mir des gedacht zu verwirklichen hehe

Wäre es trotzdem noch einmal möglich, das Du mir nochma jeden einzelnen Schritt sozusagen erklärst, damit ichs mir behalte und auch komplett verstehe? Wäre super :-)

 

Hallo!

Code:

Private Sub CommandButton1_Click()
Dim Spalte As Long, Letzte As Long, i As Long, Erste As Long        'Deklaration der Variablen
With Sheets("Tabelle2")                                             'dies ist das Zielblatt
    Application.ScreenUpdating = False                              'Abschaltung der Bildschirmaktualisierung
    Erste = 5                                                       'erste Zeile im Zielblatt
    .Range(.Cells(Erste, 1), .Cells(Rows.Count, 8)).Clear           'Löschen des Bereichs A5:H??? (ganz unten)
    Spalte = 9                                                      'Spalte im Quellblatt
    Letzte = Cells(Rows.Count, Spalte).End(xlUp).Row                'letzte Zeile im Quellblatt mit einem Eintrag
    For i = 5 To Letzte                                             'klappere alle Zeilen ab, von 5 bis zur letzten mit Eintrag
        If Cells(i, Spalte) = "?" Then                              'steht in der Zelle ein Fragezeichen? Dann:
            Range(Cells(i, 1), Cells(i, 8)).Copy .Cells(Erste, 1)   'kopiere den Bereich von Spalte A bis H nach Tabelle2
            Erste = Erste + 1                                       'Zähle die Zeile in Tabelle2 um 1 hoch, für den nächsten Eintrag
        End If                                                      'Schluss der If-Abfrage
    Next i                                                          'Wieder an den Anfang der For-Next-Schleife
    Application.ScreenUpdating = True                               'Bildschirmaktualisierung wieder ein
    .Activate                                                       'Aktiviere Tabelle2
End With                                                            'Ende der With-Anweisung
End Sub                                                             'Ende der Routine

 

Hallo,

ja perfekt danke genauso habe ich mir das jetzt gedacht! :-)

aber eine frage noch...jetzt filtert er ja nur die zellen raus wo nen "?" drin steht...wie kann man das jetzt machen, wenn da etwas anderes drin steht z.b. ein wort oder datum(nen anderer inhalt halt^^)

kann man da irgendwie "not null" oder so machen, das er nur die leeren zellen rausnimmt?

 

Hallö!

If Not IsEmpty(Cells(i, Spalte)) Then

 

huhu daaaaankee...sau gut hehe :) wie kann man sowas nur so einfach wissen, beeindruckend hehe^^

ehm kannste mir eben noch sagen was ich eingeben muss wenn ich z.b. aufm ausgabeblatt oben jeweils drüber stehn haben will, wenn ich z.b. auf den "januar" button klicke, das er mir über der ausgabetabelle dann noch das wort "januar" schreibt...damit es auch erkenntlich is auf dem ausgabeblatt um welchen monat es sich handelt? :-)