Office: Werte kopieren und unter dem aktuellen Datum einfügen.

Hallo zusammen,

ich habe folgende Herausforderung:

In Tabellenblatt 1 habe ich Daten (Zahlen) in den Zellen B5:B50.

Im Tabellenblatt 2 habe ich in Zeile 2 (ab Spalte "C") die Datumswerte stehen.
die Datumswerte sind aufaddiert (also der 01.01. errechnet sich durch =C2+1)

Ich möchte nun mit einem Makro aus Tabellenblatt 1 die Zellen B5 bis B50 kopieren und im Tabellenblatt 2 in Spalte "AS" ab Zeile 5 (also AS5:AS50) einfügen.

Ich habe schon versucht, das mit offset hinzubekommen, aber mir will das nicht gelingen.
Die ideale Weg wäre es, wenn das Makro sich ein Ziel-Datum aus der Zelle "A1" holt - also meinetwegen, wenn ein Datum in A1 eingetragen ist, bie diesem Datum einfügen - wenn A1 leer ist, beim heutigen Datum einfügen.


Danke im voraus, ich bin für jeden Tip dankbar.

Bernd

:)

 

Hallo Bernd
Da passt was in deiner Beschreibung nicht.

Also sollen die Daten nicht unter das Datum. sondern immer nach AS5:AS50.

TIP!!!: Am besten mal eine Bsp.-Mappe hochladen.
gruss hary

 

Hallo Hary,

das passt schon fast, es hätte heißen müssen, dass die der 02.01. durch =C2+1 berechnet. Ich habe es vielleicht auch nicht klar genug erklärt.

Also:
In C2 steht das Datum 01.01.13
In D2 (=C2+1) dann der 02.01.13 u.s.w.
AS2 ist dann das Datum 12.02.13

Und ab AS5 sollen die Werte eingefügt werden (in dem Beispiel)

Zahlen_verschieben.xlsx

 

Hallo Bernd
Code:

gruss hary

 

Hallo Hary,

vielen Dank, das klappt exakt so, wie ich es mir vorgestellt habe.

Ich habe lediglich am Ende noch:
Application.CutCopyMode = False
eingefügt, da der Rahmen um die kopierten Zellen noch aktiv war.

Wenn es Dir nichts ausmacht, würde ich gerne wissen, wie das Makro funktioniert.
Ein wenig kenne ich zwar (alles selbst beigebracht), daher denke ich ggf. in einigen Sachen zu kompliziert. z.B. hätte ich hier wahrscheinlich versucht, das ganze mit Offset zu lösen - also anhand vom Datum die Anzahl der Tage berechnen, die das ganze weiter rechts eingefügt werden muss......

Viele Grüße,

Bernd

 

Hallo Bernd
Match ist der englische Ausdruck für die Funktion VERWEIS()
Code:

gruss hary

 

Vielen Dank für Deine Mühe,

ich habe das Makro bereits eingebaut, morgen früh werde ich es real testen, da kommen aktuelle Zahlen rein.......

Eine kleine Änderung habe ich im Makro gerade noch vorgenommen - aber das hatte ich bei der Erklärung, was es denn machen soll einfach nicht bedacht.
Ich habe aus:
Datum = IIf(wksQ.Cells(1, 1) = "", Date, wksQ.Cells(1, 1))
dies gamacht:
Datum = IIf(wksQ.Cells(1, 1) = "", Date-1, wksQ.Cells(1, 1))

Also ich bekomme ja morgens die Zahlen vom Vortag - die ich dann in die Tabelle einpflege. Also ist es ein Fehler, wenn ich die bei "heute" einpflegen lasse.
Bei dem gesetzten Datum in Zelle "A1" ist das anders, das liegt ja in der Vergangenheit und soll schon direkt ausgewählt werden können.
(Die Funktion ist nur dafür, falls es durch welche Gründe auch immer mal nicht gemacht wird.)

Vielen Dank für Deine Mühe, das Makro zu schreiben - und mir das auch noch zu erklären. Ich habe mir die Erklärungen gut abgelegt. Werde ich sicher nochmal brauchen können.

Viele Grüße und einen schönen Abend,
Bernd

 

Na dann, gutes Naechtle
gruss hary