Microsoft Excel

Herbers Excel/VBA-Archiv

Makro für Listenübertrag

    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

      


    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!


      


    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
    



      


    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


      


    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


      


    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