Das Archiv des Excel-Forums

Makro für Listenübertrag

Bild

Betrifft: Makro für Listenübertrag
von: Roman

Geschrieben am: 02.10.2003 12:24:23

Hallo Spezialisten, könnte mir jemand bei folgendem Problem weiterhelfen:

Es soll von einem Eingabefeld(welches täglich überschrieben wird)auf dem Sheet "Dichte" täglich der Wert in eine Liste "z.b.Gesamt") übergeführt werden, wo dann jeder einzelne Wert jedes Tages untereinander aufscheint.

Gibts hiefür ein Makro?

Danke im Voraus
Roman
Bild


Betrifft: AW: Makro für Listenübertrag
von: xXx
Geschrieben am: 02.10.2003 13:04:56

Hallo,
unter der Voraussetzung, dass dein Wert in A1 steht.
In den Code der Tabelle"Dichte":

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
With Sheets("Gesamt")
lz = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(lz, 1) = Format(Date, "DD.MM.YYYY")
.Cells(lz, 2) = Range("A1")
End With
End Sub

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!


Bild


Betrifft: AW: Makro für Listenübertrag
von: Beni
Geschrieben am: 02.10.2003 13:10:57

Hallo Roman,
Du musst nur noch die Anpassungen machen.
Gruss Beni


Sub Uebertrag()
Dim lRow As Long
With Worksheets("Gesamt")
lRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1 'Spalte 1
.Cells(lRow, 1).Value = Cells(1, 1) 'A1
End With
End Sub



Bild


Betrifft: AW: Makro für Listenübertrag
von: Roman
Geschrieben am: 02.10.2003 16:39:22

Sorry, irgendwie bin ich zu blöd dazu :) irgendwas funktioniert leider nicht.
Ich habe zum besseren Verständnis die 2 Dateien angefügt, wobei die eine die tägl. Eingaben sind und die andere die Monatsliste werden soll.

Danke für die Hilfe.

lg
Roman
https://www.herber.de/bbs/user/1250.xls
https://www.herber.de/bbs/user/1252.xls


Bild


Betrifft: AW: Makro für Listenübertrag
von: xXx
Geschrieben am: 02.10.2003 23:26:30

Hallo,
du sprachst von 'einem' Eigabefeld, das in einer Liste fortgeschrieben werden soll. Ich bin auch davon ausgegangen, dass sich beide Listen in einem Workbook befinden. So gestaltet sich die Sache viel komplizierter. Ich werde mich mal damit befassen, kann aber nicht versprechen, dass es noch am WE was wird.
Evtl. solltest du die Frage genau formuliert und mit den Beispielen noch mal neu stellen.

Gruß aus'm Pott
Udo
http://www.excelerator.de


Bild


Betrifft: AW: Makro für Listenübertrag
von: Roman
Geschrieben am: 03.10.2003 10:40:56

Danke für Deine Mühe!
Werde aber auch Deinem Vorschlag folgen und nochmal auch eine Anfrage ins Forum stellen.

Grüße aus Wien
Roman


 Bild