Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Friedrichroda /
Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.

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
to 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
to 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
------------------------------------------
to top
#4
Nochmals vielen Dank für die schnelle Hilfe.

Genau die Lösung für mein Problem.

Super
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  fehlende Daten (Datum) in Datensatz einfügen und dabei Zellen einfügen fredo2611 4 75 14.03.2017, 10:02
Letzter Beitrag: fredo2611
Question Zellen per VBA Kopieren ohne Tabllenblatt zu wechseln o0Julia0o 5 113 13.03.2017, 17:20
Letzter Beitrag: Rabe
  mit Makro Datei mit aktuellem Datum öffnen addy0604 3 48 10.03.2017, 14:37
Letzter Beitrag: addy0604
  To-do-Liste: Verschieben erledigter Aufgaben auf neues Blatt hrsonnenschein 5 141 10.03.2017, 10:42
Letzter Beitrag: Rabe
  Bestimmte Zellen in neue Tabellen kopieren aeugeln87 30 672 07.03.2017, 00:10
Letzter Beitrag: aeugeln87
  Tabellenblatt auswerten Werte kopieren tmessers 19 534 23.02.2017, 21:37
Letzter Beitrag: schauan
  Bestimmte Zellen die den Typ enthalten kopieren auf ein anderes AB [VBA Marko] promenade 8 187 23.02.2017, 10:05
Letzter Beitrag: promenade
  Tabellenbereich kopieren, neues Dokument erstellen, einfügen und speichern DrWahnsinn 8 141 21.02.2017, 15:41
Letzter Beitrag: DrWahnsinn
  Zelleninhalt in neues Tabellenblatt übernehmen torsten t. 3 157 16.02.2017, 12:51
Letzter Beitrag: RPP63
  (VBA) Zellen verschiedener gleichaufgebauter Dateien in Auswertungsdatei kopieren Betalo 12 149 15.02.2017, 15:57
Letzter Beitrag: Betalo

Gehe zu:


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