Microsoft Excel

Herbers Excel/VBA-Archiv

täglichen Wert koopieren und einfügen

Betrifft: täglichen Wert koopieren und einfügen von: Lupo
Geschrieben am: 06.08.2014 09:47:39

Hallo
wieder mal ich mit dem heutigen Problem.

Ich will einen Code, das In Blatt 2 die Werte von I8 bis L8 kopiert,
und im Blatt 1 in der Spalte B in die erste leere Zeile einträgt.
Info: in der Spalte A ist das Datum bis 2016 schon ausgefüllt, deshalb
ab der leeren Spalte B.

Danke lg

  

Betrifft: AW: täglichen Wert koopieren und einfügen von: Hajo_Zi
Geschrieben am: 06.08.2014 09:52:03

Sub Kopie()
    Dim LoLetzte As Long
    With Worksheets("Blatt1")
        LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(Rows.Count, 21).End(xlUp).Row, . _
Rows.Count)
        Worksheets("Blatt2").Range("I8:L8").Copy .Cells(LoLetzte, 2)
    End With
End Sub
GrußformelHomepage


  

Betrifft: AW: täglichen Wert koopieren und einfügen von: Lupo
Geschrieben am: 06.08.2014 10:25:01

Leider wird der Wert immer nur auf der ersten Zeile eingefügt.
Ich meinte, Wert in Blatt 2 wie beschrieben kopieren und
im Blatt1, Spalte B einfügen, wenn in der z.b. Zeile 844 in der Spalte B nichts mehr steht.
Es würde auch funktionieren, wenn der kopierte Wert in der Zeile ab Spalte B
eingefürt würde, wenn das heutige Datum mit diesem in der Spalte A zusammen passt.

Ich hoffe, das ist halbwegs nachvollziebar.

Danke


  

Betrifft: AW: täglichen Wert koopieren und einfügen von: Christian
Geschrieben am: 06.08.2014 10:39:32

Hallo Lupo,

da ist ein Tippfehler dringewesesen:

LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(Rows.Count, 2).End(xlUp).Row, .Rows.Count)

MfG Christian


  

Betrifft: AW: täglichen Wert koopieren und einfügen von: Lupo
Geschrieben am: 06.08.2014 12:07:10

Super und danke, habe hinten noch +1 dazugesetzt und funktioniert.

Danke wieder vielmals


 

Beiträge aus den Excel-Beispielen zum Thema "täglichen Wert koopieren und einfügen"