Office: Schleife mehrmals durchlaufen

Hallo, die Datei fehlt...

 

jetzt

 

Moin
teste mal dies Makro.
Edit
Code:

 

Hallo Hary,

das "bisschen" code beindruckt mich mächtig!
Es funktioniert. Ich musste aber die Vergleichszeichen umgekehrt schreiben.
Vom Prinzip her ist es genau das was ich wollte. In diesem Fall kann ich mir sogar das einfärben sparen, das ich nur verwendet habe, um die gefärbten Zeilen auszublenden. Und ich glaube, ich verstehe den code sogar weitestgehend.
Manko ist, dass ich nicht weiss, ob die Überschriften immer in der gleichen Spalte sind. Hier muss ich irgendwie flexibel sein.

Bei der Userform gefällt mir nicht, dass ich die KW ergänzen muss und nicht nur die KW eintragen muss.
Da fällt mir auch ein, dass es die Zahlen in der Spalte "LiefDat" auch mit 2015 beginnen werden. Auch das muss ich abfangen.

Wenn in der Tabelle bereits der Filter aktiv ist, bekomme ich einen LZF 1004:
"Die ShowAllData-Methode des Worksheet-Objektes konnte nicht ausgeführt werden."

Aber als Ansatz ist das bisher echt super!

Gruss
akku

 

Moin
War auch nur ein Gedankenspiel, damit man die Richtung hat wohin das Schiff fahren soll. Es kommt ja meist noch ein: Aaaaaber da ist noch was. ;-)

Code:

Code:

Das waere kein Problem. Sind die aber wenigstens immer gleich geschrieben?

Und wie soll die Filterung dann sein? Nach Jahresauswahl oder Kw?
Und was bedeuten die letzten zwei Nullen(201400), vorsichtig nachgefragt: Koennen da die Monate drinstehen?
Edit:
Wegen dem Fehler, ersetz mal ActiveSheet durch Worksheets("Tabelle1") 'Name anpassen!!
gruss hary
Schicht im Schacht fuer Heute, uebergebe an Mc Santa ;-))

 

Hallo,

Code:

Das klappt schon mal.

Ja, sie sind immer gleich geschrieben. Die Benennung mach ich selbst im ersten Teil des Makros.

Kurze Erklärung:
20140036 bedeutet KW 36 in 2014, wobei grundsätzlich die zwei Nullen anzeigen, dass die folgenden zwei Ziffern die KW sind und nicht der Tag.
Grundsätzlich wären auch Monate möglich anstatt der zwei Nullen; das kommt aber in dieser Tabelle NIE vor. Ich glaube, dass die Zeile:
Code:

 

So, hab noch ein wenig weiter gemacht, um die Position der gesuchten Überschriften zu ermitteln.
Hier der aktuelle code:
Code:

 

Hallo zusammen,

danke hary, für die Unterstützung *Smilie

@akku: ich würde die Zelle nicht zuerst markieren um die Spalte auszulesen, dass kannst du direkt machen.

Vorher:
Code:

Nachher:
Code:

Sind jetzt noch Fragen oder Wünsche offen?

Viele Grüße

 

Moin Mc Santa

Bestimmt sogar.

Schaetze es wird darauf hinaus laufen:
Code:

 

Hallo Ihr netten Helfer,
meine Reise ist beendet und ich sitze wieder hier und versuche VBA zu lernen.

Das mit dem Jahr 2015 habe ich getestet. Es funktioniert ohne Änderung, dass er alle Wochen, die grösser als die eingegebene sind, ausblendet. Hier ist erst mal keine andere Lösung notwendig.

Nach wie vor besteht das Problem mit dem Laufzeitfehler, wenn vor Start des Makros bereits der Filter aktiv ist. Auch wenn ich activeSheet durch Worksheets("Tabelle1") ersetze. Vielleicht gibt es hier eine Lösung?

In meinen Tabellen gibt es noch eine Spalte "AnfDat", in der Datumswerte mit der Syntax JJJJMMTT in den Zellen stehen. Auch in dieser Spalte muss ein Autofilter laufen, der alle Datumswerte ausblendet, die nach dem Mittwoch der Vorwoche (KW minus 1) liegen.

Außerdem gibt es zwei Spalten (G-Preis und VOL), von denen nach der ganzen Filterung die Autosummen der angezeigten Zellen gebildet werden sollen. Im ersten Step in der Tabelle angezeigt, wie bei Excel ohne makro und im zweiten Step ausgegeben in einer Messagebox. (Das ist dann später mal das finale Ziel. Knopf drücken, warten, Werte in Messagebox angezeigt bekommen.)

Ich hoffe Ihr habt noch ein wenig Geduld mit mir und Spaß daran mich zu unterstützen. Wichtig wäre mir nach wie vor, dass ich auch verstehe, was dann im Code steht. Ich denke, nur so kann ich es auch lernen...

Schöne Grüße
akku

 

Moin akku
Zu Pkt.1: Was ist naechstes Jahr? Da musst du im Code aenderrn.

Zu Pkt.2.:In der Testmappe kommt kein Fehler. Du kannst den Filter so wieder ausschalten.
Code:

Zu Pkt.3.: Ist nicht meine Welt
Edit: Versuch mal.
Code:

Zu Pkt.4:Fuer deine Summen gibt es die Formel Teilergebniss. Diese bearbeitet nur die sichtbare Zellen.

Zu Pkt.5.: Klar doch,wenigstens Versuchen.;-)
Abder eine Bsp.-Mappe waere nicht schlecht, von wegen dem Datum
Gruss hary

 

Hallo,

ich habe mal ein wenig weiter gemacht und komme auch ganz gut voran.

Nun ein kleiner Exkurs...

Code:

ich befinde mich in einer Zelle und will deren Inhalt in alle darunter liegenden Zellen bis zur letzen Zeile ausfüllen.
Wie teile ich dem makro mit, welches die letzte Zeile ist, die mit autofill gefüllt werden soll?
.Range("A1:Z" & ZeileMax) ist nicht richtig...

Gruss
akku

 

Moin
Dein Syntax ist richtig. Nur fuellst du von A1 bis letzte in SpalteZ. Soll das so sein?
Code:

Woher bekommst du ZeileMax??
Code:

Wie vorher schon erwaehnt, brauchst du bestimmt kein activate/ActiveCell.
Und wie sieht es mit dem Filter Datum aus?
edit:
Code:

gruss hary

 

Code:

Hier nochmal der momentane code

Ich habe auch noch eine Testdatei angefügt.

Ziel soll folgendes sein:
-neue Spalte erstellen, um darin das Datum aus Spalte "AnfDat" in ein "richtiges" Datum umzuwandeln.

- Kopieren der Formel ans Ende der Tabelle

ab hier noch nicht im code
- Löschen der alten Spalte "AnfDat" (dazu müssen aber wohl in de neuen Spalte keine Formeln mehr stehen, sondern nur die Datumswerte...???)
- Überschrift in der neuen Spalte setzen (wieder AnfDat)

 

Code:

Hier nochmal der momentane code

Ich habe auch noch eine Testdatei angefügt.

Ziel soll folgendes sein:
-neue Spalte erstellen, um darin das Datum aus Spalte "AnfDat" in ein "richtiges" Datum umzuwandeln.

- Kopieren der Formel ans Ende der Tabelle

ab hier noch nicht im code
- Löschen der alten Spalte "AnfDat" (dazu müssen aber wohl in de neuen Spalte keine Formeln mehr stehen, sondern nur die Datumswerte...???)
- Überschrift in der neuen Spalte setzen (wieder AnfDat)