Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1236to1240
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1236to1240
1236to1240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nummern ausfiltern und sortiert in neue Tabelle

Nummern ausfiltern und sortiert in neue Tabelle
Ralf
Hallo Miteinander,
vor ca. 2 Wochen hat mir Marc in diesem Beitrag schon sehr weitergeholfen:
https://www.herber.de/forum/archiv/1232to1236/t1235739.htm
Ein aktuelle Version ist hier:

Die Datei https://www.herber.de/bbs/user/77512.xls wurde aus Datenschutzgründen gelöscht


Nun habe ich folgendes Problem:
In Tabelle Seiten! sind Nummern diverser Verbrauchermärkte. Bei jeder Ausgabe nehmen andere Märkte Teil.
Dazu müsse der Bereich E3:AZ100 ausgelesen werden. Die Nummer der Märkte kommt hier öfters vor.
Ich brauche eine Liste der teilnehmenden Märkte (Jeder nur 1 mal und nach Möglichkeit aufsteigend).
Diese Nummern müssten in Liste!B2,B3;B4;B5 usw. eingetragen werden.
Bis jetzt muss ich die Nummern in der Tabelle Seiten! zusammensuchen (mit der Gefahr, dass etwas vergessen wird) und in die jeweiligen Felder in Liste! eintragen.
PUH.... Sehr schlecht zu beschreiben. Ich hoffe Ihr versteht was ich meine.
Wäre Toll wenn jemand einen Tip hätte.
Danke im Voraus
Ralf
AW: Nummern ausfiltern und sortiert in neue Tabelle
15.11.2011 14:17:14
Peter
Hallo Ralf,
das könnte so funktionieren, wobei ich z. Zt. das Ergebnis in ein neues Tabellenblatt "Ergebnis" in die Spalte B ausgegeben habe, weil Blatt Liste Spalte B belegt ist.
Gruß Peter
https://www.herber.de/bbs/user/77515.xls
AW: Nummern ausfiltern und sortiert in neue Tabelle
15.11.2011 14:54:26
Ralf
Hallo Peter,
vielen Dank für die Mühe.
Die Daten sollen in die Zeile (nicht Spalte) ab B2 eingetragen werden, da sich das andere Macro seine Werte aus diesen Zellen bezieht.
Die Werte in den Zellen (B2,C2;D2 usw.) wurden bisher von Hand eingetragen und sollten vor dem neubefüllen durch dein Macro am besten immer gelöscht werden, damit keine Werte aus vorherigen Abruf drinstehen. Denke, das stellt kein Problem dar.
Wäre Super wenn du mir nochmals kurz unter die Arme greifen könntest.
Gruß Ralf
Anzeige
AW: Nummern ausfiltern und sortiert in neue Tabelle
15.11.2011 14:28:22
Peter
Hallo Ralf,
es geht auch noch kürzer:
Public Sub NummernAuflisten_I()
Dim objSortedList  As Object
Dim objArrayList   As Object
Dim rZelle         As Range
   Set objSortedList = CreateObject(Class:="System.Collections.SortedList")
   Set objArrayList = CreateObject("System.Collections.ArrayList")
   
   For Each rZelle In ThisWorkbook.Worksheets("Seiten").Range("E3:AZ100")
      If Trim(rZelle.Value) <> "" Then
         If IsNumeric(rZelle.Value) Then
            objSortedList(rZelle.Value) = ""
         End If
      End If
   Next rZelle
   
   objArrayList.AddRange objSortedList.keys
' ausgeben in Tabellenblatt "Ergebnis"
   ThisWorkbook.Worksheets("Ergebnis").Range("B2:B" & objSortedList.keys.Count + 1) = _
      Application.Transpose(objArrayList.toarray)
   Set objSortedList = Nothing
   Set objArrayList = Nothing
End Sub
Gruß Peter
Anzeige
AW: Nummern ausfiltern und sortiert in neue Tabelle
15.11.2011 17:08:31
Ralf
Habe alles probiert und bekomme den Code leider nicht wie gewünscht geändert :-(
Die Daten sollen in die Zeile (nicht Spalte) ab B2 eingetragen werden, da sich das andere Macro seine Werte aus diesen Zellen bezieht.
Die Werte in den Zellen (B2,C2;D2 usw.) wurden bisher von Hand eingetragen und sollten vor dem neubefüllen durch dein Macro am besten immer gelöscht werden, damit keine Werte aus vorherigen Abruf drinstehen. Denke, das stellt kein Problem dar.
Wäre Super wenn du mir nochmals kurz unter die Arme greifen könntest.
Gruß Ralf
AW: Nummern ausfiltern und sortiert in neue Tabelle
15.11.2011 21:39:22
Peter
Hallo Ralf,
so sollte es funktionieren:
Public Sub NummernAuflisten()
Dim objSortedList  As Object
Dim objArrayList   As Object
Dim rZelle         As Range
   Set objSortedList = CreateObject(Class:="System.Collections.SortedList")
   Set objArrayList = CreateObject("System.Collections.ArrayList")
   
   For Each rZelle In ThisWorkbook.Worksheets("Seiten").Range("E3:AZ100")
      If Trim(rZelle.Value) <> "" Then
         If IsNumeric(rZelle.Value) Then
            objSortedList(Val(rZelle.Value)) = objSortedList(Val(rZelle.Value)) + 1
         End If
      End If
   Next rZelle
   
   objArrayList.AddRange objSortedList.Keys
    
   With ThisWorkbook.Worksheets("Liste")
      .Range(.Cells(2, 2), .Cells(2, .Cells(2, Columns.Count).End(xlToLeft).Column)).ClearContents
      .Range(.Cells(2, 2), .Cells(2, objSortedList.Count + 1)) = objArrayList.ToArray
   End With
   Set objSortedList = Nothing
   Set objArrayList = Nothing
End Sub
Gruß Peter
Anzeige
AW: Nummern ausfiltern und sortiert in neue Tabelle
15.11.2011 22:41:53
Ralf
Vielen Dank Peter....
Das wars ;-)

301 Forumthreads zu ähnlichen Themen

Datenbereich dynamisch in Pivot-Tabelle einbinden
Markus

Hallo allerseits,
ich habe folgendes Problem. Für die Erstellung einer Pivot-Tabelle muß ich den Datenbereich manuell selektieren. Da sich aber mein Datenbereich ständig ändert, würde ich das ganze automatisiert selektieren lassen. Wie krieg' ich das in dem folgenden Makro unter ?:
Rang...
02.09.2008 14:20:30
Thread-ID: 1006792
4 Beiträge
Anzeige
Berichtsfilterwert auch für andere Pivottabellen
Stefan

Hallo,
habe da eine Frage bzgl. des Berichtsfilters in Pivotabellen. Folgender Sachverhalt:
In einer Datei gibt es auf mehreren Arbeitsblättern Pivottabellen. Alle Pivots haben das Kriterium "Kalenderwoche" im Berichtsfilter. Wie kann ich, wenn ich mir in einer "Master-Pivottabelle" ein...
25.09.2008 10:58:00
Thread-ID: 1012265
2 Beiträge
Seitenfeld mit Datum in Pivottabelle
Peter

Hallo zusammen,
ich habe folgendes problem mit einer Pivottabelle:
in den Ursprungsdaten stehen u.a. Datumsangaben. Diese sollen in der Pivottabelle im Seitenfeld verwendet werden. Allerdings möchte ich nicht, dass jeder Datumswert dort angezeigt wird sondern eine Zusammenfassung der Mo...
08.10.2008 11:17:51
Thread-ID: 1014965
4 Beiträge
Anzeige
Pivot Tabellen Elemente anzeigen
thomas

Hallo,
hat einer von euch ein Beispiel für die Funktion "Ausgeblendete Elemente in Gruppierungsfunktionen anzeigen" in Pivottabellen. Ich schaffe es nicht das Icon zu aktivieren bzw. die Funktion zu nutzen
Ich krieg es auch nicht hin die Auswirkungen der Option "Elemente ohne Daten anze...
02.12.2008 14:46:51
Thread-ID: 1029521
3 Beiträge
Filtern kopieren Auswahlkriterium aus Liste
Silvi

Guten Morgen!
Hab da wiedermal ein Problem und will mal versuchen es kurz und knapp zu beschreiben. In einer Datei filtere ich zunächst per VBA die Kostenstellen heraus und stelle sie in ein anderes Tabellenblatt (Kostenstellen), in diesem Blatt werden erstmal alle doppelten Kostenstellen g...
04.02.2009 08:16:00
Thread-ID: 1046863
20 Beiträge
Gesamtergebnis einer Pivottabelle als %-Wert
Dirk

Hallo Forum,
ich habe eine Pivottabelle, in der ich eine automatische Spalte eingefügt habe, die ein Gesamtergebnis der entsprechenden Zeile liefert (Tabellenoptionen - Gesamtergebnis für Zeilen). Nun möchte ich dieses Ergebnis jedoch nicht als jeweilige Zeilensumme sondern als %-Anteil an...
12.03.2009 11:59:54
Thread-ID: 1059437
3 Beiträge
Zuviele Daten in Pivottabelle?
Lonni

Hallo Cracks...
hoffe Ihr könnt mir eine Antwort auf meine Fragestellung geben...?
Ich habe zwei Tabellen auf einem SQL-Server als Datenbasis für eine Pivottabelle in Excel. Wenn ich die eine Pivottabelle mit rd. 25.000 Datensätzen nutze funktioniert alles wunderbar. Switche ich auf die...
25.03.2009 17:52:34
Thread-ID: 1063900
4 Beiträge
Darstellung in einer Pivot-Tabelle
Dirk

Hallo zusammen!!
Ich habe eine Frage zur Darstellung in einer Pivottabelle.
Aus einer Urliste mit Schließfächern möchte ich die belegten mit Pivottabelle herausfiltern, um dann einen Serienbrief zu schreiben. Dabei kommen die Schließfachnummern mehrfach vor (auf jeder Filiale einmal).<...
01.04.2009 11:09:28
Thread-ID: 1065911
13 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
1
3
4
2
19
2
3
12
8
1
2
1
3
2
1
2
1
2
1
7
2
1
3