Über Datum zeilen verschieben

Hallo Excelfreunde
kann mir bei dieser Datei jemand behilflich sein.
In dieser Datei werden Werte in die jeweils einem Datum zugeordneten Zelle eingegeben.
Das Datum muss über den unteren rechten Scrollbalken verschoben werden.
Es sind mehere Eingabetabellen vorhanden.
Ich würden jetzt gerne mit euerer Hilfe 2 Punkte automatisieren.
1. Es soll beim Öffnen der Datei das Makro "NewMenu" und beim Schliessen
das Makro "DelMenu" ausgeführt werden.
Es werden die Monate mit Tagesdatum angezeigt und nachher wieder
ausgeblendet.
2. Es soll, wenn ich ein Tagesdatum über das Menu anwähle, in allen
Eingabetabellen die Spalte mit dem betreffenden Datum an die linke Fixierung
gestellt werden.
Alle Eingabetabellen werden mit Eingabe..... benannt. Das habe ich hier
vergessen einzubinden.
Das heißt, klicke ich 4.12.06 im Menu an, soll der 4.12.06 mit der Frühschicht an der Spalte A in allen Eingabetabellen anliegen.
ich hoffe mich einigermassen Verständlich ausgedrückt zu haben.
Für Hilfe währe ich sehr dankbar.
Gruß Dieter

Die Datei https://www.herber.de/bbs/user/38292.xls wurde aus Datenschutzgründen gelöscht

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Excelfreunde
Hallo Beni das meine ich nicht.
Hier werden nur am 4.12.06 alle Werte nach links kopiert/verschoben.
Noch einmal zur Erklärung:
Ich möchte über die Symbolleiste ein Datum anwählen. (Also jedes Datum)
Nach der Anwahl des Datums, sollen sich alle Spalten in allen Tabellen mit der Bezeichnung "Eingabe....) bis an die Fixierung schieben. (so wie ich es manuell unten links mit dem Scrollschieber mache)
Die Werte sollen aber bei "Ihrem" Datum bleiben.
Dies soll der Arbeitserleichterung dienen.
Wähle ich zB 07.12.06 an, soll sich Spalte "AL" mit der Frühschicht an der Fixierung in Spalte "A" befinden und das in allen Tabellen mit der Betzeichnung "Eingabe...)
Wähle ich 02.12.06 an, soll sich Spalte "H" mit der Frühschicht an der Fixierung in Spalte "A" befinden und das in allen Tabellen mit der Betzeichnung "Eingabe...)
Da ich Monatseingaben mache, möchte ich nicht jede Eingabetabelle mit dem Datum an die Fixierung in Spalte "A" anlegen müssen.
Also nicht die werte verschieben, sondern einfach nur bis an die Fixierung in "A" scrollen.
Gruß Dieter
Hier noch einmal die Datei:

Die Datei https://www.herber.de/bbs/user/38310.xls wurde aus Datenschutzgründen gelöscht

Sub GetDate() Dim iYear As Integer, iMonth As Integer, iDay As Integer Dim iGroupM As Integer, iGroupD As Integer iYear = Year(Date) iMonth = WorksheetFunction.RoundUp(Application.Caller(2) - _ (Application.Caller(2) / 4), 0) iDay = Application.Caller(1) - GetGroups(iMonth, Application.Caller(1)) shnam = ActiveSheet.Name For sh = 1 To Sheets.Count z = 2 With Sheets(sh) If Left(Sheets(sh).Name, 7) = "Eingabe" Then Do While Not IsEmpty(.Cells(9, z)) Sheets(sh).Select If .Cells(9, z) = DateSerial(iYear, iMonth, iDay) Then Application.Goto Reference:="R12C256" Application.Goto Reference:="R12C" & z Exit Do End If z = z + 6 Loop End If End With Next sh Sheets(shnam).Select End Sub

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread