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

Autofilter und Listbox / Find

Forumthread: Autofilter und Listbox / Find

Autofilter und Listbox / Find
05.03.2009 11:05:50
Björn
Huhu zusammen,
Ist/Soll-Stand:
ich möchte aus dem Bereich der durch den Autofilter ausgeblendet wurde eine Listbox füllen.
Das vorherige Einblenden und danach wieder ausblenden ist keine Option.
Das Suchen des jeweiligen Wertes den die Listbox anzeigen soll, hab ich mittlerweile schon über Instr lösen können.
Gibts eine Möglichkeit die Suche mittels Find zu bewerkstelligen? (Speicherverbrauch bei Instr)
Wie bekomme ich die ausgeblendeten Werte in die Listbox?
Vielen Dank für die Hilfe
Grüße
Björn
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autofilter und Listbox / Find
05.03.2009 11:28:57
Ramses
Hallo
"...Speicherverbrauch bei Instr..."
Ach Leute,... lasst doch den Speicherverbrauch beiseite. So schlecht ausgestatte Rechner gibt es doch heute wahrscheinlich gar nicht mehr.
Heutige Rechner, auch Laptops, haben das doppelte bis achtfache an Arbeitsspeicher als vor noch nicht mal 5 Jahren,.. und damals hat man sich schon keine, oder kaum, Gedanken über den Speicherverbrauch gemacht :-)
Aber FIND ist die definitiv schnellere Variante
Gruss Rainer
Anzeige
AW: Autofilter und Listbox / Find
05.03.2009 11:36:10
Björn
Hallo Rainer,
auf meinem privaten Laptop hab ich 4gig Arbeitsspeicher, und selbst da mach ich mir gedanken über Arbeitsspeicher. Und Du kannst ja mal instr laufen lassen bei einem bereich der die hälfte der Arbeitsmappe umfasst. Viel spass.
Mein Hauptproblem ist aber dass der Code auf Rechnern laufen muss die nur 512mb Ram haben. Und wo nebenher noch andere Speicheraufwendigen Programme laufen.
Nunja das Find die schnellere Methode weiß ich. Nur funktioniert irgendwie Find nicht bei ausgeblendeten Zeilen. :(
Grüße Björn
Anzeige
AW: Autofilter und Listbox / Find
05.03.2009 11:42:19
Ramses
Hallo
"...Mein Hauptproblem ist aber dass der Code auf Rechnern laufen muss die nur 512mb Ram haben...."
Das ist doch egal und hat nichts mit dem Speicherverbrauch zu tun.
Das Problem hierbei mit INSTR ist doch, dass du eine Schleife über alle Zellen laufen lassen musst,... das macht das ganze Langsam. Das hat dann allefalls was mit der CPU zu tun, aber definitiv nicht mit INSTR
"...Nur funktioniert irgendwie Find nicht bei ausgeblendeten Zeilen. ..:"
Zeilen sind ja eigentlich deswegen ausgeblendet, weil man da drin nichst machen soll.
Wenn du weisst welche ausgeblendet sind, blende sie ein, FIND und wieder ausblenden
Gruss Rainer
Anzeige
AW: Autofilter und Listbox / Find
05.03.2009 11:50:55
Björn
Hallo Rainer,
"Das ist doch egal und hat nichts mit dem Speicherverbrauch zu tun.
Das Problem hierbei mit INSTR ist doch, dass du eine Schleife über alle Zellen laufen lassen musst,... das macht das ganze Langsam. Das hat dann allefalls was mit der CPU zu tun, aber definitiv nicht mit INST"
hmm grübel...und wieso bringt excel97 dann einen Dr. Watson. Wegen zu geringem Speicher.
"Zeilen sind ja eigentlich deswegen ausgeblendet, weil man da drin nichst machen soll.
Wenn du weisst welche ausgeblendet sind, blende sie ein, FIND und wieder ausblenden"
das ist schon korrekt. Leider geht Autofilter über die ganze Arbeitsmappe. Im forderen Teil ist dies auch korrekt. Im hinteren Teil, werden aber Daten auch ausgblendet die im nachhinein doch wieder benötigt werden. Einfach alles Einblenden, wäre die einfachste Methode, damit würde ich aber die selektive Auswahl die ich über eine Userform und mehrere Listboxen laufen haben wieder zunichte machen.
Aber vielleicht hat ja jemand noch einen anderen Lösungsansatz für mich.
(PS Datei hochladen geht nicht da zu groß)
Grüße
Björn
Anzeige
AW: Autofilter und Listbox / Find
05.03.2009 12:00:47
Ramses
Hallo
"...hmm grübel...und wieso bringt excel97 dann einen Dr. Watson. Wegen zu geringem Speicher...."
Weiss nicht wie dein Code aufgebaut ist ?
Alle SP's installiert ?
Gruss Rainer
AW: Autofilter und Listbox / Find
05.03.2009 12:17:08
Björn
Hallo Rainer,
ich hab im vorderen Teil Spalte B bis H einen Autofilter, über den von links nach rechts, eine Filter nach dem anderen gesetzt wird. Dies geschieht über Listboxen. Spalte I bis K wiederum befüllt eine mehrspaltige Listbox mit dem ergebniss.
Dieses ergebniss wiederum ist als Suchewert gedacht in dem ich ab Spalte AA bis Ende einen bestimmten Zellbereich finden kann in denen Daten stehen.
Nun sind ja durch Autofilter teile dieser Spalten ausgeblendet, ergo findet man über Find nichts mehr. Instr ist nur die Notlösung.
Am einfachsten wäre es den Autofilter zu speichern ... zurückzusetzen/einzublenden ... suchen ...auslesen und dann den Autofilter wieder mit den gespeicherten Werten zu befüllen.
und da stoss ich grad an meine Grenzen.
Grüße
Anzeige
AW: Autofilter und Listbox / Find
05.03.2009 11:44:36
Renee
Hi Björn,
Wieder mal ein Senf von mir dazu:
Wenn du deine Super-Makros auf 512MB Rechnern laufen lassen musst, dann würde ich sie auch dort entwickeln! Da siehste viel schneller, was du für Fehler machst.
Find funktioniert bei ausgeblendeten Zellen nicht, na und man könnte sie ja einblenden, wenn man weiss wie.
GreetZ Renée
Anzeige
AW: Autofilter und Listbox / Find
05.03.2009 12:07:57
Björn
Hallo Renée,
wenn Du soweiter machst werd ich irgendwann noch süchtig nach Deinen Antworten :)
"Wenn du deine Super-Makros auf 512MB Rechnern laufen lassen musst, dann würde ich sie auch dort entwickeln! Da siehste viel schneller, was du für Fehler machst."
Genau an so einem Rechner hock ich grade und beiss in die Tischkante. Weil Nutzer die mit der Datei arbeiten, mal wieder Sonderwünsche haben, für was die Datei ursprünglich gar nicht gedacht war.
Und der liebe Björn, ja ich bin lieeeeb. Möchte es ja allen gerne Recht machen.
"Find funktioniert bei ausgeblendeten Zellen nicht, na und man könnte sie ja einblenden, wenn man weiss wie."
Tja, leider übersteigt das gerade meine Excel Kenntnisse. Wie ich eine Zelle einblende ohne die vorher gesetzten verschiedenen Autofilter zu löschen. Aber vielleicht hast Du hierfür eine kleine spitzfindige Antwort die mir weiterhilft. Immerhin, kannst Du es ja doch nicht lassen mich ein bischen anzustänkern :D .
Grüße
Björn
Anzeige
Spitzfindig: Autofilter store/restore
05.03.2009 20:05:40
Renee
Hi Björn,
Ich bin zwar nur VBA-Beginner, trotzdem geb ich dir hier mal ne Vorlage um den Autofilter zu speichern und wiederherzustellen. Bei deinem VBA-Kentnissen wirst du es dann sicher schaffen, alles einzublenden deine speicherfressenden INSTR-Aktionen durchzuführen und nachher darfst du ihn mit dem Restore-Makro wiederherstellen. Aber Achtung: Du musst noch den Tabellennamen anpassen, nicht dass es dann heisst: Funzt leider nicht..., obwohl ich alles verstehe... 

Option Explicit
Public ws As Worksheet
Public filterArray()
Public currentFiltRange As String
Sub StoreCurrentFilters()
Dim fx As Long
Set ws = Worksheets("Sheet1")
With ws.AutoFilter
currentFiltRange = .Range.Address
With .Filters
ReDim filterArray(1 To .Count, 1 To 3)
For fx = 1 To .Count
With .Item(fx)
If .On Then
filterArray(fx, 1) = .Criteria1
If .Operator Then
filterArray(fx, 2) = .Operator
filterArray(fx, 3) = .Criteria2
End If
End If
End With
Next
End With
End With
End Sub
Sub RestoreFilters()
Dim lxC
Set ws = Worksheets("Sheet1")
ws.AutoFilterMode = False
For lxC = 1 To UBound(filterArray(), 1)
If Not IsEmpty(filterArray(lxC, 1)) Then
If filterArray(lxC, 2) Then
ws.Range(currentFiltRange).AutoFilter field:=lxC, _
Criteria1:=filterArray(lxC, 1), _
Operator:=filterArray(lxC, 2), _
Criteria2:=filterArray(lxC, 3)
Else
ws.Range(currentFiltRange).AutoFilter field:=lxC, _
Criteria1:=filterArray(lxC, 1)
End If
End If
Next
End Sub


GreetZ Renée
Anzeige
AW: Spitzfindig: Autofilter store/restore
05.03.2009 22:00:19
Björn
Hmmm,
ich frag mich immer wieder wenn ich Deine Kommentare lese.
Welche Laus Dir so jeden Tag über die Leber läuft.
Versteh das bitte als offene und aufrichtige Kritik an Dir, denn die Art und Weise wie Du
teilweise Menschen hier angreifst, weil Sie nicht Deinen Kriterien, Deinen Sichtweisen entsprechen
ist nicht fair.
Und dabei hast Du eigentlich viel zu geben. Du stellst Dein Licht weit unter einem Scheffel wo es gar nicht hingehört. Soweit ich das beurteilen kann, steckt eine ganze Menge Fachwissen in Deinen Antworten.
Nur irgendwie schaffst Du es immer wieder das hinter Stänkereien zu verbergen.
Dabei hilfst Du vielen hier weiter. Bist ein Teil der Leute die diese Community mit Leben füllen.
Ich kenne die Gründe für Deine Art und Weise nicht, und versuche ganz einfach Deine Nickligkeiten zu überlesen. Wobei auch ich hab mal schlechte Tage und lass Ärger raus wo er gar nicht hingehört.
Nunja, jedenfals erst mal ganz lieben ehrlichen Dank für den Ansatz. Ich werd wohl eine Weile brauchen bis ich das richtig alles verstanden habe. Dennoch schonmal danke für die Mühe.
Liebe Grüße
Björn
Anzeige
;

Forumthreads zu verwandten Themen

Listbox
Klaus

Hallo,
wie kann ich dafür sorgen, dass der Fokus einer Listbox beim öffnen auf dem gleichen Index liegt, wie beim Verlassen?
MfG. Klaus
08.08.2008 19:25:00
Thread-ID: 1000396
5 Beiträge
Komplette ListBox an Tabelle
Chris

Hallo Zusammen,
Ich habe eine Mehrspaltige ListBox in einer UserForm ( 6Spalten) Wie kann ich die komplette ListBox mit allen Spalten an eine Tabelle übergeben?
Gruß
Christian
13.08.2008 07:33:00
Thread-ID: 1001355
4 Beiträge
Anzeige
Mit Multiselect in ListBox Auswahl treffen u......
Josef

Hallo!
mit folgendem Code werden die Einträge in der ListBox9 in eine neue Arbeitsmappe in die Tabelle1 eingetragen.
Private Sub CommandButton39_Click() Dim arrList As Variant, lngR As Long, intC As Integer Dim wb As Workbook arrList = ListBox9.List lngR = ListBox9.ListCount intC = Li...
26.08.2008 13:43:00
Thread-ID: 1004791
5 Beiträge
Daten in Listbox
Henner

Hi,
ich öffne aus einer UF heraus per CommandButton eine zweite UF (UF_CLRMemo), in der sich eine Listbox befindet mit dem Code:
Private Sub CBCLRMemo_Click() For i = 84 To 93 UF_CLRMemo.ListBox1.AddItem Sheets("UF_NeuesProjekt").Cells(i, 1).Value Next UF_CLRMemo.Show End Sub
Wie...
08.09.2008 15:35:00
Thread-ID: 1008180
3 Beiträge
Bestimmte Fonts in ListBox übernehmen
Larsinator

Hallo zusammen,
ich möchte alle mit "C" beginnenden Fonts in eine ListBox schreiben.
Mit der getroffenen Auswahl soll dann Zelle C5 formatiert werden.
Kann mir jemand einen Tipp geben, wie ich mit den Fonts entsprechend umgehen kann?
Danke schon mal...
09.09.2008 18:02:55
Thread-ID: 1008558
2 Beiträge
offset? mit Combo oder Listbox aber wie?
Thomas

Hallo und einen schönen guten Tag
Bitte um Hilfe.
Offset aber wie?
Ich möchte 2 List- oder Combofelder aus einer UserForm mit Werten der aktiven Zeile füllen, die ich dann mit Hilfe der List oder Combobox ändere.
z.B.
A5 oder A6 oder A150 u.s.w.
B5 oder B6 oder B150 u....
16.09.2008 11:37:00
Thread-ID: 1010027
6 Beiträge
Daten in Listbox und in Tabelle
otto

Hi, mit folgendem code suche ich Daten in einem Tabellenblatt und lese die Funstellen in eine Listbox ein, gleichzeitig werden die Daten in ein anderes Tabellenblatt geschrieben, dass ich sie für weitere Aktionen (z. B. filtern) zur Verfügung habe.
With Worksheets("Auftrag").Range("a10:af30...
18.09.2008 10:45:00
Thread-ID: 1010647
3 Beiträge
Listbox
Beat

hallo zusammen
das Einlesen eines Tabellenbereichs in eine Listbox klappt problemlos.
Jetzt möchte ich einzelne Zeilen der Listbox editieren.
Ist das möglich?
Wenn nicht, möchte ich einzelne Zeilen in Textboxen ausgeben. Wie kann ich
die einzelne Zeilen übertragen?
Grus...
29.09.2008 15:32:00
Thread-ID: 1013140
10 Beiträge
Datein aus Ordner in Listbox
Markus

Hallo,
brauch wieder mal eure Hilfe.
Möchte über ein UserForm nach bestimmte Dateien eines Ordners inkl. Unterordner suchen.
Button: Ordner wählen öffnet Msg Box such dort mein Ordner aus klappt schon.
Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDispla...
30.09.2008 12:45:47
Thread-ID: 1013354
2 Beiträge
ListBox - Multiselect 1
Josef

Hallo!
In einer UF werden in eine Listbox Daten eingelesen. In der Listbox ist die Eigenschaft MultiSelect auf 1 eingestellt.
1.) Gibt es bitte eine Möglichkeit, mittels eines Befehls in alle Kästchen (CheckBoxen?) gleichzeitig ein Hakerl zu setzen?
2.) Wird ein Hakerl am Anfang des...
02.10.2008 10:39:00
Thread-ID: 1013807
3 Beiträge
Listboxeintrag korrigieren
beat

Hallo
ich möchte in einer listbox eingetragene Werte anpassen. Dazu markiere ich eine Listbox-Zeile und
schreibe die Werte in zwei Textboxen. In diesen Textboxen können die Werte korrigiert werden. Anschliessend möchte ich die korrigierten Werte wieder in die Listobox eintragen, und z...
03.10.2008 11:25:00
Thread-ID: 1013998
7 Beiträge
Anzeige
Listbox / Tabelle Eintrag ändern
Volker

Hallo zusammen,
ich habe folgendes Problem:
Ich versuche mittels folgendem Code Daten aus einer UF-Listbox in die dazugehörenden Textboxes zurückzuschreiben, hier zu ändern und dann in die Tabelle zurückzugeben.
Bei den ersten 4 Zeilen der Tabelle funktioniert das auch. Ab dem 5. E...
06.10.2008 14:20:00
Thread-ID: 1014441
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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