Vorhandes Makro um die Einfügung der Zeit Erweitern

Habe schon die Suchfunktion genutzt und Nichts gefunden

Moin,

ich habe aus Snippets mir ein Makro zusammengestellt, was aus Arbeitsblatt 1 (Makro) bestimmte Daten nimmt und sie in ein anderes Arbeitsplatt packt.

Das Arbeitsblatt ist ca so aufgebaut

Datum | Uhrzeit | LEER | WERTE.....

Das Makro (Ausschnitt der Betroffenen Stelle) sieht bisher so aus:

    Sheets("Makro").Select      ' in den Reiter "Makro" springen  
    Range("B28:J28").Select     ' relevanten Bereich auswählen  
    Selection.Copy              ' ... kopieren  
    
    Sheets("Oberostendorf").Select  'in den Reiter "Oberostendorf" springen  
    
    Cells(65000, 1).End(xlUp).Offset(1, 0).Select   ' nächste leere Zeile suchen  
    ActiveCell.FormulaR1C1 = "=TODAY()"             ' das Datum von Heute eintragen  
    Cells(65000, 1).End(xlUp).Offset(0, 3).Select   ' in die Datenspalte springen  
    ActiveSheet.Paste                               ' Daten einfügen  

Ich möchte nun das nach dem Datum in die nächste Spalte noch die Aktuelle Zeit eingetragen wird.

Wir ist das Schick realisierbar?
Danke für eure Hilfe.

Gruß Zero

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 187013

Url: https://administrator.de/contentid/187013

Ausgedruckt am: 24.11.2024 um 03:11 Uhr

2 Kommentare

Neuester Kommentar

Moin,

habs - einfacher als gedacht.

    Sheets("Makro").Select      ' in den Reiter "Makro" springen  
    Range("B28:J28").Select     ' relevanten Bereich auswählen  
    Selection.Copy              ' ... kopieren  
    
    Sheets("Oberostendorf").Select  'in den Reiter "Oberostendorf" springen  
    
    Cells(65000, 1).End(xlUp).Offset(1, 0).Select   ' nächste leere Zeile suchen  
    ActiveCell.FormulaR1C1 = "=TODAY()"             ' das Datum von Heute eintragen  
  >>>  Cells(65000, 1).End(xlUp).Offset(0, 1).Select   ' Zelle für Uhrzeit auswählen  
  >>>  [ActiveCell] = Time                             ' die aktuelle Zeit eintragen  
    Cells(65000, 1).End(xlUp).Offset(0, 3).Select   ' in die Datenspalte springen  
    ActiveSheet.Paste                               ' Daten einfügen  
    Cells(65000, 1).End(xlUp).Offset(0, 0).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False

Gruß Zero

Hallo ColdZero89!

Und so, etwas weniger umständlich:

Dim NextLine As Long

With Sheets("Oberostendorf")  
    NextLine = .Cells(.Rows.Count, "A").End(xlUp).Row + 1  
   .Cells(NextLine, "A") = Date  
   .Cells(NextLine, "B") = Time  
    Sheets("Makro").Range("B28:J28").Copy .Cells(NextLine, "D")  
End With