Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in 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
  Werte in anderes Tabellenblatt kopieren mit VBA Mario 5 82 22.01.2017, 00:16
Letzter Beitrag: Mario
  Zeilen mit gleichem Datum in anderes Tabellenblatt kopieren Taximichel 12 181 12.01.2017, 19:50
Letzter Beitrag: schauan
  Bei Änderung des Zellinhalts Zeile in Tabellenblatt kopieren nedial 2 78 30.12.2016, 12:30
Letzter Beitrag: schauan
  Übernehmen von Zeilen mit bestimmten Werten in ein neues Blatt StephanT 4 122 19.12.2016, 09:23
Letzter Beitrag: Kai Neahnung
  Inhalt mehrere Tabellenblätter in ein "großes" Tabellenblatt kopieren. dantri81 2 95 16.12.2016, 16:12
Letzter Beitrag: dantri81
  Tabellenblätter nach Begriff durchsuchen - Zeile in neues Tabellenblatt kopieren anmaha 1 77 12.12.2016, 11:27
Letzter Beitrag: RPP63
  Hyperlink anpassen auf neues Tabellenblatt Icepic 3 124 10.12.2016, 05:47
Letzter Beitrag: schauan
  Nur zellen mit bestimmten Wert kopieren teufelchenbs 1 106 25.11.2016, 22:25
Letzter Beitrag: schauan
  Tabellenblatt Kopieren und mit Namen versehen knallebumm 2 215 30.10.2016, 16:35
Letzter Beitrag: knallebumm
  Tabellenblatt mit Diagramm kopieren... radagast 9 212 28.10.2016, 11:42
Letzter Beitrag: schauan

Gehe zu:


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