Office: sichtbare Zeilen per Code ansprechen Autofilter

Hallo,

ich komme da leider nicht weiter. *frown.gif*
Ich versuche nur die markierten sichtbaren ganzen Zeilen vom Code zu erfassen die an unterschiedlichen Stellen der Tabelle markiert sein können.
Code:

Das klappt aber nicht und übergibt auch nicht sichtbare Zeilen (Auto-Filter)noch so wie nur die ersten zusammenhängenden.

Hat da einer eine Idee und kann mir helfen?
Gruss
Julia

:)

 

Hi Juli,

hab es jetzt nicht noch einmal überprüft, da ich gerade kein Excel zur Hand habe, aber soweit ich weiß, werden auch bei Zeilenauswahl nur eingeblendete (ausgewählte) Zeilen als Selection betrachtet. Die Selection nochmal auf xlCellTypeVisible zu prüfen, erscheint mir daher unnötig.

 

Hallo Ralf,
erst mal danke das du antwortest *Smilie

So wie der Code oben ist werden dabei leider auch ausgefilterte mit abgearbeitet.
Das andere ist dabei das sobald eine andere nicht markierte Zeile dazwischen ist die nachfolgenden markierten nicht abgearbeitet werden.

Das was du sagst leuchtet mir ein mit Selection, wobei man ja theoretisch auch Auswählen kann und dann erst den Autofilter benutzt.
Das ist aber hier nicht der Fall. sollte aber dann auch nicht abgearbeitet werden.

Ich möchte halt jede ganz markierte und sichtbare Zeile egal wo die ist in dem sheet mit dem Code erfassen auch wenn der Autofilter aktiv ist.

Gruss
Julia

 

...hmmm--- hab gerade gesehen, Du benutzt Office 2003. Kann sein, dass das da noch ein Problem ist. Bei mir (MSO 2016) geht das automatisch. Filtern, Zeilen markieren (auch unterschiedliche Mehrfachauswahl), kopieren und woanders einfügen. Da ich kein 2003er zur Verfügung hab, kann ich das jetzt aber nicht überprüfen. Hast Du schon mal versucht, einfach nur die Selection zu verwenden? Oder hilfsweise, die Selektion als Range Objekt zu setten?

 

Hallo Ralf,

also ohne diese
Code:

zeile hatte ich es versucht das klappe aber auch nicht.
Auch die Auskommentierten Befehle hatte ich versucht mit gleichen Ergebnis.
Kann aber sein das ich da wieder was falsch deklariert habe oder was anders ist.
Ich kann nur definitiv sagen das es nicht das macht was ich gerne hätte wie oben schon geschrieben. *frown.gif*
Gruss
Julia

 

...kannst Du die Datei mal posten?

 

Hallo Ralf,

im Anhang die Datei.

Gruss
Julia

 

warum prüfst Du denn hier:
Code:

die gesamte Auswahl, wenn Du Zeilenweise durchgehst?

Das sollte reichen:
Code:

 

Hallo Ralf,

ich hatte Selection immer so verstanden das es die Auswahl wäre also selektierte Zellen.
Code:

Damit hatte ich es versucht. *frown.gif*
Verstehe nicht wo da der Unterschied ist.

Code:

Mit deinen Befehl klappt das Auswählen schon besser.
Leider aber nur für zusammenhängende Zeilen.
Sobald ich diese einzeln auswähle oder aber eine dazwischen nicht auswähle werden nur die ersten zusammenhängenden Zeilen vom Code erfasst und nicht alle markierten.

Hast du da auch eine Idee?

Gruss
Julia

 

...ich schau es mir morgen, im Laufe des Tages nochmal an....

 

...so... ich denke, ich hab's....

Als erstes musst Du noch den Bereich rngCO deklarieren und initialisieren. Dann kannst Du die Zeilen, die diesen Bereich in der untenstehenden For Each Schleife auch wieder einkommentieren.

Die auskommentierten Zeilen
Code:

kannst Du rausschmeißen. Zumal ja lngStart und Ende vollkommen falsche Werte anzeigen.
Dafür gibt es jetzt das Dictionary.
Ersetze Deine For-Schleife komplett durch meine Schleife.

Ich hab Dir den Code mal ab der Zeile mit dem letzten Set von Dir reingesetzt, damit Du erkennst, wo er rein muss. Alles, ab da bis zum Ende deiner Schleife ersetzen
Code:

Viel Erfolg!

 

Hallo Ralf,

danke für deine Hilfe *Smilie
Das klappt jetzt richtig so wie ich das mir erhoffte.
Ich habe aber noch die Zeile
Code:

eingebaut da ich beim ersten Versuch keine Zeile ausgewählt hatte. *frown.gif*

Wenn ich deinen Code richtig verstehe werden die Zeilen an var übergeben die im Dictionary dann eingetragen werden.
Das ist dann wie eine Array, nur ohne die Werte einzeln anzugeben über Variablen, oder?
Code:

"0" ist dann die Position(Spalte) in den Dictionary Eintrag, richtig?

Ich wollte noch versuchen das ganze dann über eine Tastenkombination zu starten und hatte da sowas gefunden.
Code:

Da tut sich aber mal wieder nichts bei mir. *frown.gif*
Haste da auch eine Idee?

Gruss
Julia

 

Tastenkombi zuweisen:

Im Menü Entwicklertools.... ach nee, Du hast ja 2003...menno... mal sehen, ob ich das noch zusammen kriege. In 2003 über das Menü Extras -> Optionen -> Makros (glaube ich jedenfalls)...
Irgendwo müssen da jedenfalls die vorhandenen Makros angezeigt werden. Das Makro, dem Du einen Shortkey zuweisen willst auswählen und auf Optionen klicken. Da kannst Du dann die Tastenkombi eingeben.

Nein, das Dictionary nimmt ein Wert - Schlüssel - Paar auf. Hat nichts mit der Spalte zu tun, sondern sorgt für Eineindeutigkeit der Werte (damit eine Zeile nur einmal aufgenommen werden kann und nicht mehrfach).

 

Hallo Ralf,

erst mal danke für deine ganze Hilfe *Smilie

Der Tipp mit dem Shortcut hat mir weitergeholfen so das ich Application.OnKey fand und so dann umsetzte:
Code:

Das klappt sehr gut damit.

Gruss
Julia