Office: zum heutigen Datum springen, markieren, einfügen

Hallo liebe Excel Freunde,

Ich hoffe, ihr könnt mir hier helfen.

In der Zelle A1 habe ich die Formel "zu heute" drin. Diese funktioniert soweit wunderbar.

Mein Makro soll auf "zu heute" klicken und dadurch auf das aktuelle Datum springen. Dieses soll er mit den 28 neben liegenden Zeilen markieren, kopieren und nur wertemäßig einfügen.

Auf das "zu heute" kann verzichtet werden, Hauptsache er springt auf das aktuelle Datum und macht dann wie oben beschrieben weiter.

Mein Code sieht folgendermaßen aus:





Sub Makro1()
'
' Makro1 Makro
'

'
Sheets("Daten").Select
Range("A1").Select
Application.Goto Reference:="R6C1"
With ActiveCell
Range(.Offset(0, 0), .Offset(0, 28)).Select
End With
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Gemba").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub







Ich vermute, es liegt auch an diesem "R6C1"

vielen lieben Dank

:)

 

das mag für ein anderes Forum gelten, aber hier nicht. Welches, wenn nicht das Excel-Unterforum, sollte denn hier Deiner Meinung nach das richtige sein?

Hinweis: Crossposting ist hier nicht erwünscht.

 

Hast Recht... Verzeihung dafür. Habe es grad angepasst.


Ich bin nämlich grad auf Arbeit und benötige schnellstmöglich die Lösung *frown.gif*

 

und Du meinst, dadurch wäre es kein Crossposting mehr?

bei Deinem Zeitmanagement können wir Dir nicht helfen.
Aber ein Tipp: In allen guten Foren wirst Du auch ohne diese nervtötende und anmaßende Drängelei sehr schnell Hilfe bekommen, wenn Du die Zeit, die Du für das Crossposten (inklusive Anmelden in zig Foren) verschwendest besser in eine ordentliche Fragestellung investierst.

 

Entschuldige, aber ich verstehe das Problem grade nicht so richtig.
Ich drängele hier niemanden, sage nur, dass ich für meine Wenigkeit die Lösung dringend brauche. Das es mein Problem mit dem Zeitmanagement ist, ist mir natürlich bewusst. Warum fühlst du dich gleich so angegriffen von mir? Kennst du das nicht, wenn man ausnahmsweise mal eine Lösung dringender benötigt als sonst? Deswegen auch dieser sogenannte "Crosspost". Muss der Beitrag gelöscht werden weil er gegen die Regeln verstoßen hat?

Und was genau stimmt mit meiner Fragestellung nicht? In wie weit müsste ich diese umschreiben, damit sie besser verständlich ist?

 

was ist das für eine Formel?

keine Ahnung, was Du damit meinst.

wo steht denn das aktuelle Datum bzw. wo kann man es finden? Ich welcher Form liegt es dort vor?

Eine Mustermappe könnte helfen.

Was sagen die anderen Helfer in den anderen Foren? Sind die schon weiter? Welche Erkenntnisse wurden dort gewonnen, um darauf aufzubauen?

Wir haben jetzt fast 13:00 Uhr. Die Lösung könnte schon längst auf Deinem Tisch liegen.

 

oh, stimmt, sorry

zu heute:
=HYPERLINK("#A"&VERGLEICH(HEUTE();A:A);"zu heute")

Im Forum office-lösungen gibt es soweit keine Vorschläge :/




Ich habe aber eine Idee. Kannst du mir bitte sagen, wie der Code ausschaut, wenn ich das aktuelle Datum im Blatt "Daten" suchen will und dieses zur aktiven Zelle machen möchte.

Den Code würde ich dann anstelle von X einfüllen:




Sub Makro1()
'
' Makro1 Makro
'

'
Sheets("Daten").Select
X
With ActiveCell
Range(.Offset(0, 0), .Offset(0, 28)).Select
End With
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Gemba").Select
Application.CutCopyMode = False
End Sub



P.S.: Danke für deine Unterstützung!

 

Anbei die gekürzte Excel

Der Makro bezieht sich immer wieder auf den 27.02., weil an diesem Tag die Tabelle erstellt wurde.
Ich bekomme es nicht hin, dass das tag aktuelle Datum angezogen bzw. markiert wird.

 

Hallo

ich kann deine Datei nicht laden
aber das kann auf diese Weise gehen

Code:

Zieltabelle und Zielzelle anpassen

MfG Tom

 

Mein Codevorschlag, hinter einen Button legen:

Code:

Deine Hyperlink-Formel erzeugt einen Zirkelbezug. Zudem fehlt das 3. Argument, im Vergleich, das hier 0 sein sollte, um das exakte Datum zu suchen. Das Gehopse zu der Zelle wird allerdings auch nicht benötigt.

Melde den Beitrag in den anderen Foren bitte als gelöst, damit dort nicht unnötig gearbeitet wird.

 

\@EarlFred:
Der Code ist einfach perfekt! Es funktioniert alles besten. Bist ein Schatz. Danke dir vielmals *Smilie


Auch ein Dank an Tom für die Unterstützung