History erzeugen

Computer: Software & Programmierung Office Software
1

Hy,
Ich möchte in einem leeren Tabellenblatt eine History erzeugen.
Jedes mal, wenn ich einen button drücke, möchte ich, das in das History-Blatt, in die erste Spalte das heutige Datum eingetragen wird und in die nächsten 3 Spalten drei wichtige Daten. Beim nächsten mal, wenn dieser Button gedrückt wird sollen die gleichen Spalten verwendet werden, aber eine Zeile tiefer, mit dem neuen Datum und den drei wichtigen Daten, die sich jetzt geändert haben. U.s.w.
Kann da jemand helfen ??
Vielen Dank
Marcus

2

Hallo, Marcus!

Ich möchte in einem leeren Tabellenblatt eine History
erzeugen.
Jedes mal, wenn ich einen button drücke, möchte ich, das in
das History-Blatt, in die erste Spalte das heutige Datum
eingetragen wird und in die nächsten 3 Spalten drei wichtige
Daten. Beim nächsten mal, wenn dieser Button gedrückt wird
sollen die gleichen Spalten verwendet werden, aber eine Zeile
tiefer, mit dem neuen Datum und den drei wichtigen Daten, die
sich jetzt geändert haben. U.s.w.

Wie immer ungetestet und uncompiliert. Bau Dir eine Schaltfläche irgendwo in irgendwelche Tabellen und weise ihr das Makro zu. Beim Einbau in eine Userform analog.

Sub Historyeintrag()
 dim lngZeile as long

 lngZeile = 1
 do while Tabelle1.Cells(lngZeile,1)""
 lngZeile=lngZeile+1
 loop
 with Tabelle1
 .cells(lngZeile,1)=date()
 .cells(lngZeile,2)="Dein erster Wert"
 .cells(lngZeile,3)="Dein zweiter Wert"
 .cells(lngZeile,4)="Dein dritter Wert"
 end with
end sub

Je nachdem, welche Daten Du setzen willst, kannst Du sie ggf. als Parameter der obigen Funktion übergeben. Beachte aber, dass Du nur parameterlose Funktionen und Prozeduren an eine Schaltfläche binden kannst (und/oder über „Makro ausführen“ starten kannst).

Gruß, Manfred

3

Danke für die Hilfe.
Die Funktion ist da, aber mit den Zeilen

.cells(lngZeile,2)=„Dein erster Wert“
.cells(lngZeile,3)=„Dein zweiter Wert“
.cells(lngZeile,4)=„Dein dritter Wert“

habe ich Schwierigkeiten.

Mein erster Wert befindet sich in Blatt 1 D5
Mein Zweiter Wert befindet sich in Blatt 3 A4

Wie gebe ich dieses ein ???

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

4

so

.cells(lngZeile,2)= Range("‚Blatt 1‘!D5").Value
.cells(lngZeile,3)= Range("‚Blatt 3‘!A4").Value
.cells(lngZeile,4)=„Dein dritter Wert“

HTH