Clever-Excel-Forum › Office-Anwendungen › Excel v
Gezielt Umfragetexte filtern

Thema geschlossen 
Baumstrukturmodus
Gezielt Umfragetexte filtern
Britzel1810 Offline
pausiert
Registriert seit: 25.02.2019
Version(en): 2016
#1
26.02.2019, 00:02
Ich suche nach einer Möglichkeit in Excel die Kommentare in einer Umfrage zu filtern. Wie kann ich beispielsweise alle Kommentare von Abteilung 1 oder alle Kommentare zu Sachverhalt 3 gezielt auswählen ohne die ganzen freien Zellen zu übernehmen? Meine Tabelle hat knapp 600 Zeilen und rund 40 Spalten, händisch also schwer möglich.
[
Bild bitte so als Datei hochladen: Klick mich!
]
Suchen
Top
Elex Offline
Benutzer
Registriert seit: 16.08.2017
Version(en): 2007 / 2010 / Web
#2
26.02.2019, 01:29
Hi

um Sachverhalte zu filtern nimmst du einfach die Autofilter Funktion von Excel.

Für die Abteilungen (Zeilenfilter) findest du hier zwei Varianten.
https://www.clever-excel-forum.de/thread-19039.html

Gruß Elex
Suchen
Top
shift-del Offline
{Irrtum / Versuch * Glaskugel}
Registriert seit: 12.04.2014
Version(en): Office 365
#3
26.02.2019, 06:41
Moin

Aus der Kreuztabelle muss eine Datensatzliste werden. Stichtwort: Entpivotieren.
Wir sehen uns!
... Detlef

Meine Beiträge können Ironie oder Sarkasmus enthalten.

Homepage Suchen
Top
Dieter63 Offline
pausiert
Registriert seit: 29.01.2018
Version(en): 2013
#4
26.02.2019, 11:09
Hallo,

anbei mal eine Entpivotisierte Tabelle mit Hilfsspalten für Index

A3 =WENN(B2<4;A2;A2+1)  hier muss die 4 anpepasst werden --> an deine tatsächlichen Anzahl Sachverhalte
B3 =WENN(B2<4;B2+1;2)

Formel einfach aufziehen -> Ist für Index(Abfrage; zeile; Spalte)


Angehängte Dateien
.xlsx   Entpivotieren.xlsx (Größe: 10,52 KB / Downloads: 6)
Suchen
Top
Jockel Offline
VUP & {Formelsympathisant}
Registriert seit: 10.04.2014
Version(en): Office 2019
#5
26.02.2019, 11:48 (Dieser Beitrag wurde zuletzt bearbeitet: 26.02.2019, 11:49 von Jockel.)
Hallo, wieso die Sache unnötig verkomplizieren (verformeln)? Man kann (und ich glaube das meinte Detlef) doch Power Query zum Entpivotieren einsetzten ... ... spart auch Platz... Und: stimmt denn deine Tabelle..?

Arbeitsblatt mit dem Namen 'Entpivotieren'
ABCDEFGHI
1ZeileSpalteAbteilungSachverhaltKommentarAbtSachverhaltKommentar
222Abteilung 1Sachverhalt 1Lorem ipsumAbteilung 1Sachverhalt 1Lorem ipsum
323Abteilung 1Sachverhalt 20Abteilung 1Sachverhalt 3Lorem ipsum
424Abteilung 1Sachverhalt 3Lorem ipsumAbteilung 2Sachverhalt 1Lorem ipsum
532Abteilung 2Sachverhalt 1Lorem ipsumAbteilung 2Sachverhalt 3Lorem ipsum
633Abteilung 2Sachverhalt 20Abteilung 3Sachverhalt 1Lorem ipsum
734Abteilung 2Sachverhalt 3Lorem ipsumAbteilung 3Sachverhalt 2Lorem ipsum
842Abteilung 3Sachverhalt 1Lorem ipsumAbteilung 4Sachverhalt 1Lorem ipsum
943Abteilung 3Sachverhalt 2Lorem ipsumAbteilung 4Sachverhalt 2Lorem ipsum
1044Abteilung 3Sachverhalt 30Abteilung 5Sachverhalt 1Lorem ipsum
1152Abteilung 4Sachverhalt 1Lorem ipsumAbteilung 7Sachverhalt 2Lorem ipsum
1253Abteilung 4Sachverhalt 2Lorem ipsumAbteilung 10Sachverhalt 1Lorem ipsum
1354Abteilung 4Sachverhalt 30Abteilung 10Sachverhalt 3Lorem ipsum
1462Abteilung 5Sachverhalt 1Lorem ipsumAbteilung 11Sachverhalt 1Lorem ipsum
1563Abteilung 5Sachverhalt 20
1664Abteilung 5Sachverhalt 30
1772Abteilung 6Sachverhalt 10
1873Abteilung 6Sachverhalt 20
1974Abteilung 6Sachverhalt 30
2082Abteilung 7Sachverhalt 10
2183Abteilung 7Sachverhalt 2Lorem ipsum
2284Abteilung 7Sachverhalt 30
2392Abteilung 8Sachverhalt 10
2493Abteilung 8Sachverhalt 20
2594Abteilung 8Sachverhalt 30
26102Abteilung 9Sachverhalt 10
27103Abteilung 9Sachverhalt 20
28104Abteilung 9Sachverhalt 30
29112Abteilung 10Sachverhalt 1Lorem ipsum
30113Abteilung 10Sachverhalt 20
31114Abteilung 10Sachverhalt 3Lorem ipsum
32122Abteilung 11Sachverhalt 1Lorem ipsum
33123Abteilung 11Sachverhalt 20
34124Abteilung 11Sachverhalt 30
35132Abteilung 12Sachverhalt 10
36133Abteilung 12Sachverhalt 20
37134Abteilung 12Sachverhalt 30

NameBezug
Abfrage=Tabelle1!$A$1:$D$13

ZelleFormel
C2=INDEX(Abfrage;A2;1)
D2=INDEX(Abfrage;1;B2)
E2=INDEX(Abfrage;A2;B2)
Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg
Gruß Jörg
stolzes Mitglied im ----Excel-Verein
Freund einer excellenten Power Query-Abfrage
Suchen
Top
snb Offline
Benutzer
Registriert seit: 29.09.2015
Version(en): 2030,5
#6
26.02.2019, 17:55 (Dieser Beitrag wurde zuletzt bearbeitet: 26.02.2019, 17:56 von snb.)
Entpivotisieren in VBA:


Code:
Sub M_snb()
  sn = Sheet1.Cells(1).CurrentRegion
  ReDim sp(UBound(sn) * UBound(sn, 2), 2)
    
  For j = 2 To UBound(sn)
    For jj = 2 To UBound(sn, 2)
      sp(y, 0) = sn(j, 1)
      sp(y, 1) = sn(1, jj)
      sp(y, 2) = sn(j, jj)
      y = y + 1
    Next
  Next
    
  Sheet1.Cells(20, 1).Resize(y, 3) = sp
End Sub

Ohne leere Antworten:

Code:
Sub M_snb()
  sn = Sheet1.Cells(1).CurrentRegion
  ReDim sp(UBound(sn) * UBound(sn, 2), 2)
    
  For j = 2 To UBound(sn)
    For jj = 2 To UBound(sn, 2)
      If sn(j, jj) <> "" Then
        sp(y, 0) = sn(j, 1)
        sp(y, 1) = sn(1, jj)
        sp(y, 2) = sn(j, jj)
        y = y + 1
      End If
    Next
  Next
    
  Sheet1.Cells(20, 1).Resize(y, 3) = sp
End Sub
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Homepage Suchen
Top
Thema geschlossen 


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste