Clever-Excel-Forum

Guten Tag an alle Forenmitglieder

Ich habe ein kleines Problem, dass die VBA-Kundigen wahrscheinlich/hoffentlich mit 'links' lösen.
Hier mein Problem:
Aus einem Blatt "Fortschritte" sollen die Zellen E18, B19, K18, H19, Q18 und N19 in ein neues Tabellenblatt kopiert werden.
Im Zielbereich kommt in Spalte A das aktuelle Datum und dann die Werte aus dem Blatt "Fortschritte" in die Spalten B bis G. Für jedes neue Datum soll eine neue Zeile eingetragen werden.
Ist das machbar?
Bis jetzt mache ich das immer mit der Hand am Arm (Zusammengeklicktes Macro, in dem ich die Zeile ändere)

Bin für jeden Hinweis dankbar der mir die Arbeit abnimmt.

Vorab vielen Dank an Alle.
Gruß
hziemer

Hallo,

z.B. so:

Code:
Sub Uebertrag()

  Dim i As Integer

  Dim rngQ As Range

  Set rngQ = Worksheets("Fortschritte").Range("E18,B19,K18,H19,Q18,N19")

  With Worksheets("Tabelle2") '<< Tabellenname anpassen

    With .Cells(.Rows.Count, 1).End(xlUp).Offset(1).EntireRow

      .Cells(1).Value = Date

      For i = 1 To rngQ.Areas.Count

        .Cells(i + 1).Value = rngQ.Areas(i).Value

      Next i

    End With

  End With

End Sub

Gruß Uwe

hziemer hatte mir folgende Nachricht per Email geschickt:
------------------------------------------
Ich hätte nicht gedacht, dass mir jemand so schnell helfen kann.
Mit so wenig zeilen VBA genau die Lösung bringen.
Ich bin baff.
Super
Vielen Dank aus dem Schwabenland
H. Ziemer
------------------------------------------

Nochmals vielen Dank für die schnelle Hilfe.

Genau die Lösung für mein Problem.

Super

hziemer

Kuwer

Kuwer

hziemer