In Spalte A das Datum von gestern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ben,
nach folgendes Makro eingefügt in ein allgemeinen Modul tut es.
Entweder du fügst es in deiner persönlichen Makro-Arbeitsmappe ein, dann bleibt die Datentabelle makrofrei.
Oder du baust es in ein allgemeines VBA-Modul in der Datei ein, in du die Daten ziehst.
Gruß
Franz Sub Datum_gestern_Spalte_A() Dim Zeile_L As Long, Zeile_1 As Long Dim wks As Worksheet Set wks = ActiveSheet With wks 'nächste leere Zeile in Spalte A Zeile_1 = .Cells(.Rows.Count, 1).End(xlUp).Row If Zeile_1 > 1 Then Zeile_1 = Zeile_1 + 1 Else If .Cells(1, 1) "" Then Zeile_1 = 2 End If 'letzte Zeile mit Daten in Spalte B Zeile_L = .Cells(.Rows.Count, 2).End(xlUp).Row If .Cells(Zeile_L, 2).Value "" Then If Zeile_L >= Zeile_1 Then .Range(.Cells(Zeile_1, 1), .Cells(Zeile_L, 1)).Value = Date - 1 End If End If End With End Sub

Hallo
Ich glaube aber Franz hatte einen anderen Gedanken verfolgt.
Nämlich zu prüfen ob in "A" schon Einträge vorhanden sind.
Wenn "ja" dann erst ab der ersten leeren Zelle in "A" also unter der letzten gefüllten Zelle in "A" (hier A8)
bis zum Ende der Einträge in "B" das Datum vom Vortag zu schreiben.
Die gepostete Code bezieht sich also auch nur auf die von Dir so bereitgestellte Datei!
Wenn allerdings in der gleichen Datei am Folgetag Datensätze unten angefügt werden
hier in blauer Schrift dargestellt:
Juni

	A	B	C	D	E	F	G	H
1	Datum	Name	New Hire	UPH	DUPH	Stunden	Units	in % zur Vorgabe
2	02.06.2013						0	0%
3	02.06.2013	xxx	.	124	115	7,64	947	118%
4	02.06.2013	xxx	.	109	115	7,58	829	104%
5	02.06.2013	xxx	.	111	115	7,63	848	106%
6	02.06.2013	xxx	.	128	115	7,6	970	122%
7	02.06.2013	xxx	.	139	115	7,13	990	132%
8	02.06.2013	xxx	.	106	115	7,68	817	101%
9		xxx	.	86	115	7,57	653	82%
10		xxx	.	125	115	7,6	952	119%
11		xxx	.	70	115	1,19	83	66%
12		xxx	.	110	115	7,7	848	105%
13		xxx	.	115	115	1,18	136	110%
14		xxx	.	109	115	1,96	213	103%
15		xxx	.	150	120	0,02	3	143%
16		xxx	.	122	115	7,6	926	116%
17		xxx	.	164	115	1,22	200	156%
18		xxx	.	123	115	7,63	938	117%

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
denke ich das Franz sicher meinte ab Zeile(9) bis Ende das neue Datum zu setzen (also den 03.06.2013)
Was Du nun genau möchtest kann ich an Deiner Ausgangsfrage leider nicht ganau erkennen.
Gruß Matthias

Sub Datum_gestern_Spalte_A() Dim Zeile_L1 As Long Dim Zeile_L2 As Long With ActiveSheet Zeile_L1 = .Cells(.Rows.Count, 1).End(xlUp).Row Zeile_L2 = .Cells(.Rows.Count, 2).End(xlUp).Row .Range(.Cells(Zeile_L1 + 1, 1), Cells(Zeile_L2, 1)) = Date - 1 End With End Sub

Sub datumgestern() Dim Basis As Range Dim Zelle As Range Dim LoletzteA& Dim LoletzteB& Dim i As Long LoletzteA = Cells(Rows.Count, 1).End(xlUp).Row 'geht hier immer auf Zeile48 LoletzteB = Cells(Rows.Count, 2).End(xlUp).Row Set Basis = Range(Cells(LoletzteA, 1), Cells(LoletzteB, 2)) Application.EnableEvents = False For Each Zelle In Basis i = Zelle.Row Cells(i, 1) = Date - 1 Zelle.Calculate Next Zelle Application.EnableEvents = True End Sub

Sub Datum_gestern_Spalte_A() Dim Zeile_L As Long, Zeile_1 As Long Dim wks As Worksheet Set wks = ActiveSheet With wks With .ListObjects(1) Zeile_L = .Range.Row + .Range.Rows.Count - 1 End With If IsEmpty(.Cells(Zeile_L, 1)) Then Zeile_1 = .Cells(Zeile_L, 1).End(xlUp).Row + 1 If Zeile_1

Beliebteste Forumthreads (12 Monate)

In Spalte A das Datum von gestern

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

In Spalte A das Datum von gestern

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread