Excel2000: Nach Eingabe neue Zeile anfügen

Computer: Software & Programmierung Office Software
1

Hallo Excelaner,

vielleicht könnt Ihr mir helfen?

Ich habe eine Zelle in meiner Tabelle ( A1 ) in der ich 1x täglich einen Wert eingebe.

Ich möchte nun mit einem Makro in der Spalte C diesen Wert, in der Spalte D den dazugehörenden Tageswert (Eingabedatum = aktuelles Datum) automatisch einfügen. Außerdem möchte ich, daß diese Eingaben nach „unten“ fortgeführt werden, so daß ich eine „Zeitreihe“ erhalte.

z. B.
Eingabe in Zelle A1 „125,75“ am 30.06.2003

A B C D
--------------------------------------
125,75 125,75 30.06.2003

Eingabe in Zelle A1 „211,32“ am 01.07.2003

A B C D
--------------------------------------
211,32 125,75 30.06.2003
 211,32 01.07.2003

Eingabe in Zelle A1 „188,54“ am 02.07.2003

A B C D
--------------------------------------
188,54 125,75 30.06.2003
 211,32 01.07.2003
 188,54 02.07.2003

Ist sowas zu realisieren?

Danke für Eure Tipps

gruss
moritzbock

2

Hallo Moritz,
ich habe hier nichts programmiert, sondern nur Aktionen in ein Makro aufgezeichnet.
Achtung! Das jetzige Makro funktioniert so nur, wenn in Spalte C bereits mindestens 2 Werte (also in C1 und C2) enthalten sind. Soll das auch mit einer (fast) leeren Liste funktionieren muss da noch eine IF-Abfrage (o.ä.) programmiert werden.

Sub AnListeAnhaengen()
 Range("A1").Select
 Selection.Copy
 Range("C1").Select
 Selection.End(xlDown).Select
 ActiveCell.Offset(1, 0).Range("A1").Select
 ActiveSheet.Paste
 ActiveCell.Offset(0, 2).Range("A1").Select
 ActiveCell.FormulaR1C1 = "=TODAY()"
 ActiveCell.Select
 Selection.Copy
 ActiveCell.Offset(0, -1).Range("A1").Select
 Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= \_
 False, Transpose:=False
 Application.CutCopyMode = False
 Selection.NumberFormat = "dd/mm/yyyy"
 ActiveCell.Offset(0, 1).Range("A1").Select
 Selection.Clear
 Range("A1").Select
End Sub

Wolfgang

Ich habe eine Zelle in meiner Tabelle ( A1 ) in
der ich 1x täglich einen Wert eingebe.

Ich möchte nun mit einem Makro in der Spalte C diesen Wert, in
der Spalte D den dazugehörenden Tageswert (Eingabedatum =
aktuelles Datum) automatisch einfügen. Außerdem möchte ich,
daß diese Eingaben nach „unten“ fortgeführt werden, so daß ich
eine „Zeitreihe“ erhalte.

z. B.

Eingabe in Zelle A1 „188,54“ am 02.07.2003

A B C D
--------------------------------------
188,54 125,75 30.06.2003
 211,32 01.07.2003
 188,54 02.07.2003
3

Hallo Wolfgang,

Hallo Moritz,
ich habe hier nichts programmiert, sondern nur Aktionen in ein
Makro aufgezeichnet.

Trotzdem tausend Dank für Deine Lösung.

Achtung! Das jetzige Makro funktioniert so nur, wenn in
Spalte C bereits mindestens 2 Werte (also in C1 und C2)
enthalten sind.

Hat prima geklappt - so wie´s jetzt läuft, ist es schon optimal!

Soll das auch mit einer (fast) leeren Liste
funktionieren muss da noch eine IF-Abfrage (o.ä.) programmiert
werden.

Wolfgang

Ein Stern ist unterwegs ********

Danke und Gruss
moritzbock