---

Hallo, ich kenne mich mit Excel nur schwach bis mittelmäßig aus.
Ich würde gerne ein Makro schreiben welches folgendes tut:
Ich habe ein Tabellenblatt 1 welches in 3 Bereiche eingeteilt ist.
Bereich 1, In Spalte B5 bis B10 stehen Namen, Reihe C 4 bis oo Datumsangaben, jetzt werden in den Reihen 5-10 laufend arbeiten  (mit Datumsangabe (in Reihe 4) für die Leute eingetragen. Dadurch wird die Liste nach entsprechender zeit unendlich lang. Ich würde gerne ein makro haben, welches mir immer nur die 10 aktuellesten Arbeitseinträge anzeigt und sobalt ich 11 habe mir diesen  Ersten Eintrag (also den ältesten in ein 2 tabellenblatt "archiviert". Es müsste also diese Liste ausgeschnitten und in Tabelleblatt 2 eingefügt werden,und das "iterativ" sobalt neue Einträge eingetragen werden.  Jedoch muss darauf geachtet werden, dass das Tabellenblatt 2 beim nächsten mal nicht überschrieben wird.
Bereiche 2-4 stehen darunter (Namen Gruppe 2von B14-B20,mit Datumsangabe in B13, Namen Gruppe 3  B22-B30 mit Datumsangabe in B13) die genauso gehandhabt werden sollen. Kann mir da jemand einen Ansatz liefern?
Danke Mark

------------------
MAR

[Diese Nachricht wurde von MARK123 am 27. Okt. 2016 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus,
das tut man nicht, böse, niemals nicht in hundert Jahren. Damit schaffen sie sich nur Probleme die sie sonst nicht hätten.

Verwenden sie dazu lieber Fenster einfrieren. >>>> Zelle B5 markieren, Reiter Ansicht, Fenster einfrieren(Fenster), Fenster fixieren.
Achtung es gibt 2 "Fenster einfrieren" unter "Zoom" und "Fenster"
Dann wird immer Zeile 1-4 angezeigt und sie können bequem scrollen.

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier.

Schöne Grüsse aus der Steiermark  Bernd P.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd, danke für deine Antwort.
Es geht mir ja genau darum "scrollen", das scrollen möchte ich vermeiden und immer alle 10 letzten Einträge von allen 3 Bereiche auf einen Blick zu haben.
Außerdem, beim Fenster einfieren ist immer gleich die ganze Spalte oder Reihe betroffen, das hat einfluss auf auf die unteren Bereiche die eben weniger oder mehr Einträge haben!

Dennoch danke das du dich mit meiner Frage auseinander gesetzt hast.
Grüße
MArk

------------------
MAR

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

zudenletzten10ZeilenScrollen.zip

Im Arbeitsblatt

Code:

---

Private Sub Worksheet_Activate()
ActiveWindow.ScrollRow = Range("B65535").End(xlUp).Row - 10
End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo MAR,

ich habe zur Umsetzung kein Idee, aber vom Grundsatz mal, wenn du alles in deinem Haupttabellenblatt lässt und du dir die, zur besseren Lesbarkeit, aktuellsten 10 Einträge in ein neues Tabellenblatt holst.

Evtl. ein Lösungsansatz???

Gruß
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Ralf, Hallo Thomas,
@Thomas,dein Code versteh ich nicht, bzw. hat nicht viel mit meinen Problem zu tun.
@Ralf, prinziepiell schon, bei deiner Variante müsste ich erst im Hauptblatt neue Aufgaben + Datumangabe eintragen und dann in ein Neues Blatt klicken.
Ich hätte es gerne einfach, und möchte (falls es geht) nur auf meinem Hauptblatt arbeiten und meine Archivierung im Hintergrund laufen haben! Aber anscheinend ist das wohl komplizierter als ich dachte.
Danke aufjeden fall euch beiden dass Ihr euch Gedanken gemacht habt!
Gruß Mark

------------------
MAR

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Mark,

was ist den wenn du einfach eine Tabelle einfügst(unterm Ribbon einfügen) und diese dann entsprechend der Spalten so sortieren lässt das die aktuellen Einträge oben stehen.

Gruß Malte

------------------
Stell dir vor es geht und keiner kriegts hin!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Malte, leider verstehe ich nicht so ganz was du meinst.
Ich soll mein komplettes Tabellenblatt kopieren, neu einfügen und dann sortieren, ist es das was du meinst?
Das funktioniert nicht, die unten stehenden Bereiche besitzen andere Datumsangaben, außerdem geben mehrere Leute Datum + Arbeit in die Tabelle ein (nicht nur ich), deshalb möchte ich es so einfach wie möglich machen, eben dass man nur diesen Eintrag (Datum + Arbeit) machen muss und alles andere sollte das Macro machen.
Gruß
Mark

------------------
MAR

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von MARK123:
@Thomas,dein Code versteh ich nicht, bzw. hat nicht viel mit meinen Problem zu tun.

---

Macht nichts, geht mir nicht anders, auch wenn ich deine Beschreibung mehrmals durchlesen habe,
so wirklich schlau werde ich nicht daraus :-)
dacht' ich bring einfachmal einen Ansatz :-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von MARK123:
Hallo, ich kenne mich mit Excel nur schwach bis mittelmäßig aus.
Ich würde gerne ein Makro schreiben welches folgendes tut:
... Ich würde gerne ein makro haben, welches mir immer nur die 10 aktuellesten Arbeitseinträge anzeigt und sobalt ich 11 habe mir diesen  Ersten Eintrag (also den ältesten in ein 2 tabellenblatt "archiviert". ...
. Kann mir da jemand einen Ansatz liefern?
Danke Mark

---

Hallo Mark,

So ganz habe ich Dein Anliegen auch nicht verstanden, werden denn in allen drei Eingabebereichen immer zum gleichem Datum Werte ergänzt? Irgendwie liest sich das wie beim einem Lehrer zum Noteneintrag nach einer Prüfung - egal.

Ich denke Du brauchst gar kein Makro damit Dein Anliegen erfüllt wird, im Prinzip müssen nur die Spalten L-ZZ ausgeblendet werden. Zum Einfügen neuer Werte markierst Du vorne den Bereich in Spalte C, rechte Maustaste und "Zellen einfügen", nach rechts verschieben und die ehemals 10. Werte sind verschwunden.

Über Spalten Einblenden hast Du Dein Archiv wieder sichtbar.
Nachteil natürlich, man muß seine Arbeitsweise umstellen und nicht die neuesten Werte hinten dazuschreiben.

Natürlich könnte man auch ein Makro schreiben dass permanent die 11. Spalte des Eingabeblattes überwacht und im Bedarfsfall die nicht mehr benötigten Werte ins Archiv versendet. Günstig wäre hier ein Formular mit Commandbuttom Bereich X ergänzen, das kontrolliert ob schon 10 Werte in der Zeile stehen und dann den ersten Wert im Archiv ergänzt.
Nachteil hier: Um alle Werte zu sehen müssen auch wieder händische Kopieraktion stattfinden.

Grüße
Klaus 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas, hallo Klaus, danke für Eure Mühen.
Vielleicht ist das mit den Noten einfacher erklärt. Stell Dir vor ich habe 3 Klassen a 5 Schüler. Nehmen wir an, eine Klasse schreibt über das Jahr 25 Arbeiten. Jetzt trage ich immer das Datum  an dem die Arbeit geschrieben ist ein und darunter  die Noten bei den Schüler.
Namen der Schüler steht dann in z.B. B5 bis B9, Datumsangabe zeile 4 mit 25 Spalteneinträge. (das wäre jetzt ein Block) Klasse 2 und 3 sieht im grunde genauso aus nur unterscheiden sich die Anzahl der geschriebenen Arbeiten erheblich bspw. Klasse 2 100Arbeiten, Klasse 3 150Arbeiten im gleichen Jahr. Somit habe die Klassen auch unterschiedliche Datumseinträge.
Von daher muss jeder Block separat betrachtet werden und es können nicht pauschal Spalten ausgeblendet oder kopiert werden.
mein Wusch wäre es gewesen, bei jeder Klasse immer nur die 10 letzten Noten + Datumsangaben zu sehen, sobalt ich den 11 Eintrag eintippe der älteste in ein neues blatt kopiert und archiviert wird.Dieser darf natürlich beim nächsten mal nicht über schrieben werden. Falls das immer noch nicht klar ist, oder eben halt doch aufwendig ist, dann ist es halt so. Ich bedanke mich dennoch bei Euch allen!
Gruß
Mark

------------------
MAR

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Mark,

nix für ungut, aber wenn Du schon solche Handstände im Excel machen möchtest, dann ist der Zeitpunkt gekommen sich mal mit Access zu beschäftigen.

------------------
mfg Roman

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wobei das in Access auch nicht trival zu lösen ist ...

Ich würde da aber bei dem bereits beschriebenen Vorgehen bleiben und die neuesten Ereignisse immer in Spalte C (um beim Beispiel zu bleiben) ergänzen und die älteren nach rechts verschieben. Ist ein Markieren mit der Maus und wenn die hinteren Spalten ausgeblendet sind hat man den gewünschten Effekt.

Grüße
Klaus 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

161103-Beziehungen_DB_Zensuren.jpg

Zitat:

---

Wobei das in Access auch nicht trival zu lösen ist ...

---

die Aufgabe schreit aber förmlich nach Datenbank

im Anhang mal eine mögliche Beziehungsstruktur der Tabellen, wie ich sie in Access anlegen würde. (5 min Arbeit)

Die Eingabe der Daten kann man vorerst zeitsparend direkt in die Tabellen vornehmen (bevor man sich dem Thema Formulare widmet).

Die Ausgabe im Bericht erfordert zwar etwas Gehirnschmalz sollte aber auch innerhalb einer Stunde erledigt sein

------------------
mfg Roman

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von MARK123:
Somit habe die Klassen auch unterschiedliche Datumseinträge.
Von daher muss jeder Block separat betrachtet werden und es können nicht pauschal Spalten ausgeblendet oder kopiert werden.
mein Wusch wäre es gewesen, bei jeder Klasse immer nur die 10 letzten Noten + Datumsangaben zu sehen, sobald ich den 11 Eintrag eintippe der Älteste in ein neues Blatt kopiert und archiviert wird.Dieser darf natürlich beim nächsten mal nicht überschrieben werden. Falls das immer noch nicht klar ist, oder eben halt doch aufwendig ist, dann ist es halt so. Ich bedanke mich dennoch bei Euch allen!
Gruß
Mark

---

Würde umgedreht ein Schuh draus werden, da du ja je Klasse separat betrachtet haben willst.

Je Klasse - ein Blatt - Eventuell Matrix tauschen ( Datum in Zeile / Schüler in Spalte)
und 1 Blatt das die Blätter zusammenführt - das lässt sich vielleicht mit einer {Matrix]Formel erschlagen.
-Keine Ahnung in weit auch ein Pivot Auswertung da möglich / sinnvoll wäre.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

O.K. ich sehe schon, das ist nicht (soo) trivial wie ich es gedacht hätte.
Nochmals Danke an Alle!
Gruß
Mark

------------------
MAR

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

161103-Klasse.xlsm.txt

Hallo Mark,

im Anhang mal ein Bsp. wie ich Deinen Wunsch interpretiert habe.
Ist es so ungefähr gewollt?

------------------
mfg Roman

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Letzten10SpaltenanzeigenmittelsvbaundGruppierung.zip

Anbei Bsp.

je Klasse ein Blatt

Code:

---

Private Sub Worksheet_Activate()
letztespalte
End Sub

---

Datum kann Fortlaufend nach Rechts erweitert werden
Makro prüft Letzte Spalte und
Gruppiert C:(Letzte Spalte -10)

im Modul

Code:

---

Sub letztespalte()

letztezelle = Range("A1").SpecialCells(xlCellTypeLastCell).Address
lastrow = Range("A1").SpecialCells(xlCellTypeLastCell).Column
Spaltenbuchstabe = Split(Columns(lastrow - 10).Address(0, 0), ":")(0)

If lastrow > 13 Then
    ActiveSheet.Cells.ClearOutline
    Columns("C:" & Spaltenbuchstabe).Columns.Group
    ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
End If

End Sub

---

Das Darstellen auf einer Übersichtsseite, kann dann per Formel Verweise geschehen 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ohh,  dachte schon das der  Thread geschlossen wäre.
Vielen, vielen  Dank für Hilfe, das bringt mich jetzt wirklich weiter. Ich werde mich dann an die Formel begeben.

Danke nochmals euch Zwei!
Gruss
Ma

------------------
MAR

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP