Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Kopieren von Zellen in neues Tabellenblatt mit aktuellem Datum
#1
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
Antwortento top
#2
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
[-] Folgende(r) 1 Benutzer sagt Danke an Kuwer für diesen Beitrag:
  • hziemer
Antwortento top
#3
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
------------------------------------------
Antwortento top
#4
Nochmals vielen Dank für die schnelle Hilfe.

Genau die Lösung für mein Problem.

Super
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste