Spalten auswählen - filtern | HERBERS Excel Forum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Spalten auswählen - filtern

08.04.2014 15:54:09

Oberschlumpf

AW: Spalten auswählen - filtern

08.04.2014 18:23:52

obelix

Zwischenstand

09.04.2014 00:34:33

Oberschlumpf

Endstand?

09.04.2014 03:19:24

Oberschlumpf

AW: Endstand?

09.04.2014 07:47:37

obelix

AW: Endstand?

09.04.2014 11:11:29

Oberschlumpf

AW: Endstand?

09.04.2014 12:15:05

obelix

Hi
ich denke, ich habe fertig :-)
(wenn ich alles richtig verstanden habe)
hier meine Datei
https://www.herber.de/bbs/user/90049.xls
Du möchtest...
...eine variable Startspalte vorgeben
...vier variable Abstände vorgeben
Bsp:
F,4,4,4,4
Ergebnis (angezeigte Spalten):
F,J,N,R,V,Z,AD,AH,AL,AP,AT,AX
Bsp:
C,1,2,3,4
Ergebnis (angezeigte Spalten):
C,D,F,I,M,N,P,S,W,X,Z,AC,AG,AH,AJ,AM,AQ,AR,AT,AW,BA
Meine Datei...
...hat nun oben links einen Button "Spalten ausblenden"
...ein Klick auf diesen Button zeigt ein Userform(ular) mit 5 Comboboxen (Startspalte, Abstand1-4) und 2 Buttons (OK, Reset)
...Klick auf OK funktioniert nur, wenn für alle Comboboxen (CB) ein Wert ausgewählt wurde
...CB für Startspalte enthält Buchstaben für alle genutzten Spalten - hier A-BA
...CB für Abstand1-4 enthalten die Werte 1-6 (wenn weniger/mehr gewünscht, kann das im Code angepasst werden; bitte Hinweis im Code beachten)
...wenn z Bsp Auswahl 2 für CB Abstand1, dann alle anderen Abstand-CB (2-4) automatisch auch 2
...wenn z Bsp Auswahl 4 für CB Abstand2, dann alle anderen Abstand-CB (3-4) automatisch auch 4
...wenn z Bsp Auswahl 3 für CB Abstand3, dann für Abstand4 automatisch auch 3
(so muss man nicht immer für jede CB denselben Wert auswählen)
jetzt wieder Bsp C,1,2,3,4
Nach Auswahl für alle CB + Klick auf OK ist die erste sichtbare Spalte = Auswahl für Startspalte, also C.
Die nächste sichtbare Spalte ist so weit entfernt, wie Abstand1 vorgibt - Abstand1 = 1, also D
Die nächste sichtbare Spalte ist so weit entfernt, wie Abstand2 vorgibt - Abstand2 = 2, also F
Die nächste sichtbare Spalte ist so weit entfernt, wie Abstand3 vorgibt - Abstand3 = 3, also I
Die nächste sichtbare Spalte ist so weit entfernt, wie Abstand4 vorgibt - Abstand4 = 4, also M
usw...
Die Vorgänge wiederholen sich so oft, bis die letzte, genutzte Spalte erreicht ist.
Ein Klick auf den Reset-Button zeigt immer alle Spalten wieder an.
Hilfts?
Ciao
Thorsten

Hallo Hubert
Zuerst freuts mich mal, dass es auf Anhieb richtig war - oh yeah :-) - es wurde zwar nicht so viel Code benötigt, wie ich dachte, aber es war doch n bisschen schwieriger, die richtigen Spalten zu bestimmen, die je nach Abstandswünschen angezeigt werden sollen.
Wie jetzt alles in die Originaldatei bekommen?
Wichtig ist natürlich, dass du von meiner + auch von deiner Datei erst mal Kopien erstellst, falls doch was schief geht.
Zuerst kannst du versuchen, all die Originaldaten zu kopieren und in meiner Datei einzufügen.
Wenn du es so schaffst, dass alle Originaldaten am richtigen Platz landen, sollte es eigentlich auch mit dem Code funktionieren.
Der Button wird beim Einfügen von Daten nicht gelöscht - auch, wenn Daten z Bsp ab A1 eingefügt werden.
So ist es zumindest bei mir - ich habs gerad mal getestet.
Wenn das mit dem Kopieren/Einfügen nicht klappt, dann versuch, diese Schritte zu befolgen.
1. der Code aus Modul1 muss auch in deiner Datei in einem allgemeinen Modul eingefügt werden
2. das Userform ufColsHide muss inklusive Code auch in deiner Datei vorhanden sein
Das schaffst du am besten, in dem du das Userform aus meiner Datei exportierst, und in deine Datei importierst.
In meiner Datei:
2.1 Im VBE Rechtsklick auf ufColsHide
2.2 Datei exportieren auswählen
Es öffnet sich ein Fenster mit dem Titel "Datei exportieren".
Nun wählst du einen beliebigen Ordner, klickst auf Speichern, und die Userform-Datei ist gespeichert.
In deiner Datei:
2.3 Im VBE Rechtsklick auf irgendein Objekt, welches angezeigt wird
2.4 Datei importieren auswählen
Nun öffnet sich ein Fenster mit dem Titel "Datei importieren".
Nun wählst du DEN Ordner, in dem du zuvor die Userform-Datei gespeichert (exportiert) hast, und klickst auf Öffnen.
Jetzt sollte als zusätzlicher Eintrag im VBE das Userform inklusive Code erscheinen.
3. der Button "Spalten verbergen" muss natürlich auch in deiner Datei vorhanden sein.
Button erstellen:
3.1 Such in deinen Symbolleisten nach dem Symbol "Befehlsschaltfläche" und füg es in deine Datei ein
bei mir sieht das so aus:
Userbild

3.2 Klick mit rechts auf den Button und wähle "Code anzeigen" aus
Es wird der VBE angezeigt, und an der richtigen Stelle wird dieser Code eingefügt + angezeigt


Private Sub cmdColsHide_Click()
End Sub

3.3 Füge nun zwischen diese Zeilen diesen Code ein


ufColsHide.Show

Das sollte es gewesen sein.
puhh...war auch mal wieder viel Erklärungstest...
Hilft denn irgendwas von meinen Vorschlägen?
Wenn nicht, bleibt dir nix anderes übrig, als die Originaldatei zu zeigen.
Von mir aus gern an meine Mailadresse neueaddy@gmx.de.
Ich würde die Datei dann zum "Laufen" bringen und an dich zurück senden.
Den Code in die Datei so einzufügen, dass es funktioniert, geht übrigens vieeel schneller, als diese Hilfstexte hier zu schreiben - wenn man weiß, wie es geht :-))
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

Spalten auswählen - filtern

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalten auswählen - filtern

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread