Alle Zeiten plus 1 Stunde erhöhen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Add_1_Hour() Dim lZ& lZ = Cells(Rows.Count, "E").End(xlUp).Row With Range("M1") .Value = TimeSerial(1, 0, 0) .Copy Range("E2:E" & lZ & ",G2:G" & lZ).PasteSpecial xlPasteValues, xlPasteSpecialOperationAdd .Clear End With End Sub

Moin Herbert!
Zunächst mal:
Eine einzige der 2^34 (2^20*2^14) aka 17.179.869.184 müsste doch eventuell noch frei sein?
(zumal sie ja nur temporär genutzt wird)
Um Deine Frage zu beantworten:
Es gibt ja die Möglichkeit, mittels VBA Text ins Clipboard zu schreiben.
Offensichtlich jedoch bedient sich o.g. Methode NICHT der Zwischenablage, denn folgender Code funktioniert NICHT:
1. Dabei ist es egal, ob ich 1 oder "1" schreibe
2. Denkbar, dass ein Range-Objekt benötigt wird
Modul Modul1

Option Explicit 
Sub ohne_Zelle() 
'Extras, Verweise, Microsoft Forms 2.0 Object Library setzen! 
Dim Clipboard As New DataObject 
Clipboard.SetText 1 
Clipboard.PutInClipboard 
Range("A1:A10").PasteSpecial xlPasteValues, xlPasteSpecialOperationAdd 
End Sub

Gruß Ralf

Hi
In Excel gibt es zwei Zwischenablagen:
a) die allgemeine Windows-Zwischenablage
b) die Excel-spezifische Zwischenablage
Das "Inhalte Einfügen" / PasteSpecial bedient sich aus der Excel-Zwischenablage.
Das normale Einfügen / Paste nimmt die Werte aus der Windows-Zwischenablage.
Der .Copy-Befehl befüllt beide Zwischenablage parallel, das PutInClipBoard nur die allgemeine Windows-Zwischenablage.
Da hier das PasteSpecial verwendet wird, braucht man einen Wert in der Excel-Zwischenablage und muss daher eine Zelle mit diesem Wert kopieren.
Eine freie Zelle dafür findet man zuverlässig mit Cells.Specialcells(xlcelltypelastcell).offset(1, 1)
Dass man sein Blatt bis zur letzten Zeile verwendet, dürfte die große Ausnahme sein.
Gruß Daniel

Sub Add_1_Hour() Dim lZ&, SaveFirst lZ = Cells(Rows.Count, "E").End(xlUp).Row With Range("E2") SaveFirst = .Value .Value = TimeSerial(1, 0, 0) .Copy Range("E3:E" & lZ & ",G2:G" & lZ).PasteSpecial xlPasteValues, xlPasteSpecialOperationAdd .Value = .Value + SaveFirst End With End Sub

Code: [Cc] Sub plus_1_Stunde() Dim ws As Worksheet, rg1 As Range, rg2 As Range Set ws = ThisWorkbook.Worksheets("Tabelle1") With ws Set rg2 = .Range("E2") Set rg1 = .Range(rg2, .Cells(.Rows.Count, rg2.Column).End(xlUp)) End With For Each rg2 In rg1 rg2.Offset(0, 2).Value = rg2 + 1 / 24 rg2.Offset(0, 2).NumberFormat = "hh:mm .D.M.YYYY.DDDD" Next rg2 Set rg1 = Nothing: Set rg2 = Nothing: Set ws = Nothing End Sub ' VBA, XML, HTML => Forum-HTML, (c) 2018 by KHV (VBA) und Haklesoft (VB)

Beliebteste Forumthreads (12 Monate)

Alle Zeiten plus 1 Stunde erhöhen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Alle Zeiten plus 1 Stunde erhöhen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread