coldzero89
Jun 25, 2012, updated at 13:19:40 (UTC)
view3965
view2
0
Goto Top

Vorhandes Makro um die Einfügung der Zeit Erweitern

GermansolvedQuestionVB for ApplicationsDevelopment

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
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 187013

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

Printed on: April 16, 2024 at 07:04 o'clock

2 Comments
Latest comment
Goto Top
Member: ColdZero89
ColdZero89 Jun 25, 2012 updated at 13:41:39 (UTC)
Goto Top
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
Mitglied: 76109
76109 Jun 25, 2012 at 14:47:32 (UTC)
Goto Top
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

Gruß Dieter
GermansolvedQuestionVB for ApplicationsDevelopment