Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
23.04.2024 08:59:38
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1544to1548
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1544to1548
1544to1548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datumswerte beim Öffnen und Bearbeiten hinzufügen

Datumswerte beim Öffnen und Bearbeiten hinzufügen
04.03.2017 09:31:41
Andi
Hallo, liebe Helfer,
Ich würde gern folgende Aufgabe mit VBA erledigen.
Beim Öffnen der Datei soll festgestellt werden, ob in der darin befindlichen Tabelle Namens "Bearbeitung", die Spalte "E" mit Datumsangaben versehen sind.
Der Bereich Umfasst die Spalten A-L bis zur letzten Ausgefüllten Zelle.
Wenn dort in "E" ein Datum steht, dann soll dies Belassen werden.
In den Zellen wo kein Datum vorkommt, soll in "E das Datum der letzten Speicherung der Mappe" eingetragen werden.
Wenn jetzt Datenreihen hinzugefügt, soll in E der "Datumswert heute" eingetragen werden.
https://www.herber.de/bbs/user/111941.xlsm
Wo müsste dann welcher Code hinzugefügt werden?
Grüße Andi

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
mit: BuiltinDocumentProperties ...
04.03.2017 11:37:55
Matthias
Hallo Andi
Wo müsste dann welcher Code hinzugefügt werden?
Folgender Code, gehört in: (DieseArbeitsmappe)
Option Explicit Private Sub Workbook_Open() Dim x& With Tabelle1 For x = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row If .Cells(x, 5).Value = "" Then .Cells(x, 5) = Format(ThisWorkbook.BuiltinDocumentProperties(11).Value, "DD/MM/YYYY") end if Next End With End Sub Beim Öffnen der Mappe wird geprüft ob in "E" ein Wert steht
Steht da keiner, wird das Erstelldatum dieses Dokumentes eingetragen.
Gruß Matthias
Nachtrag ...
04.03.2017 11:53:32
Matthias
Hallo
Kleiner Nachtrag wg des SchleifenStart
Da Du ja keine Überschriften in Zeile1 hast muss die Schleife mit 1 beginnen
For x = 1 to ...
Ich hatte Überschriften eingepflegt,
da lässt es sich besser filtern oder als Tabelle konvertieren.
Bearbeiten

 ABCDEFGHIJKL
1NrRaum 2BezeichnungDDatumStatusWert1Wert2Wert3JMaßnahmeEntscheidung
21ChefGeräteanschlußleitung 02.03.2017z.Z. n.V.    Stillegungnein
32 Geräteanschlußleitung 02.03.2017i.O.< 0,3> 1,0    ja
43 Kopierer 02.03.2017i.O.< 0,3> 1,0    ja
54 Kopierer 02.03.2017i.O.< 0,3> 1,0    ja
65 Geräteanschlußleitung 02.03.2017i.O.< 0,3> 1,0    ja
76 Geräteanschlußleitung 02.03.2017i.O.< 0,3> 1,0    ja
87R12Geräteanschlußleitung 02.03.2017i.O.< 0,3> 1,0    ja
98 Geräteanschlußleitung 02.03.2017i.O.< 0,3> 1,0    ja
109 Geräteanschlußleitung 02.03.2017z.Z. n.V.    Stillegungnein
1110 Geräteanschlußleitung 12.03.2014z.Z. n.V.    Stillegungnein
1211 Kopierer 02.03.2017i.O.< 0,3> 1,0    ja
1312R22Kopierer 02.03.2017i.O.< 0,3> 1,0    ja
1413 Kopierer 02.03.2017i.O.< 0,3> 1,0    ja
1514 Kopierer 02.03.2017i.O. > 1,0 < 0,5  ja
1615 Kopierer 12.03.2014i.O. > 1,0 < 0,5  ja
1716 Kopierer 12.03.2014i.O.< 0,3> 1,0    ja
1817DachbodenKopierer 12.03.2014i.O.< 0,3> 1,0    ja
1918FlurKopierer 12.03.2014i.O.< 0,3> 1,0    ja
2019 Kopierer 12.03.2014i.O. > 1,0 < 0,5  ja
2120 Kopierer 12.03.2014i.O. > 1,0 < 0,5  ja
2221 Geräteanschlußleitung 12.03.2014i.O.< 0,3> 1,0    ja
2322KellerGeräteanschlußleitung 12.03.2014z.Z. n.V.    Stillegungnein
2423 Geräteanschlußleitung 02.03.2017i.O.< 0,3> 1,0    ja
2524 Geräteanschlußleitung 02.03.2017i.O.< 0,3> 1,0    ja
2625 Kopierer 02.03.2017i.O. > 1,0 < 0,5  ja
2726Raum 2Geräteanschlusskabel  02.03.2017z.Z. n.V.    Stillegungnein
2827 Geräteanschlusskabel  02.03.2017i.O.< 0,3> 1,0    ja


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Gruß Matthias
Anzeige
Vielen Dank, Matthias,
04.03.2017 12:51:11
Michael
für den Code.
Ich habe mal damit herumgespielt (hier eingefügt zu einem neuen Blatt): 
Option Explicit
Sub t()
Dim x&
Range("D:G").Clear
For x = 1 To ThisWorkbook.BuiltinDocumentProperties.Count
Cells(x, 4) = x
Cells(x, 5) = ThisWorkbook.BuiltinDocumentProperties(x).Name
On Error Resume Next
Cells(x, 6) = ThisWorkbook.BuiltinDocumentProperties(x).Value
If Err.Number  0 Then
Cells(x, 6) = "Err. # " & Err.Number
Cells(x, 7) = "Err. D." & Err.Description
End If
On Error GoTo 0
Next
End Sub
Sub t2()
Dim x&
Dim t0 As Single
t0 = Timer
For x = 1 To 5000
Range("A1") = ThisWorkbook.BuiltinDocumentProperties(11).Value
Next
Range("A2") = (Timer - t0) * 1000 & " ms"
End Sub
Sub t3()
Dim x&, wert
Dim t0 As Single
t0 = Timer
wert = ThisWorkbook.BuiltinDocumentProperties(11).Value
For x = 1 To 5000
Range("a3") = wert
Next
Range("a4") = (Timer - t0) * 1000 & " ms"
End Sub

Einige Werte scheinen nicht immer in Excel-Dateien gesetzt zu sein, deshalb die Fehlerbehandlung.
Ansonsten ist t3 einen Ticken schneller als t2: bei 500 Datensätzen isses egal, bei 5000 sind es rund 20%.
Schöne Grüße,
Michael
Anzeige
Danke @Matthias u.@Michael-
04.03.2017 13:58:02
Andi
werde das jetzt mal einarbeiten.
Guter Tipp mit den Überschriften- wäre zu überdenken.
Aber ich freue mich erst mal über die Beantwortung.
Grüße Andi
Danke für die Rückmeldung ... owT
04.03.2017 14:10:06
Matthias

305 Forumthreads zu ähnlichen Themen

Zelle mit heutigem Datum finden
Steffi

Hallo liebe Spezialisten,
hier im Forum hat man mir den unten stehenden Code gezeigt um im Bereich "F:F" die Zelle mit dem heutigen Datum zu finden. Das klappt soweit auch prima :-)
Wenn das Datum jedoch per Formel wie z.B. =HEUTE() erzeugt wurde, funktioniert der Code nicht.
Könnt...
05.09.2008 11:46:00
Thread-ID: 1007634
12 Beiträge
Anzeige
Per Makro zu einer bestimmten Zelle springen
Joachim

HI,
dank Eurer Hilfe weiss ich nun, wie ich meine Spalte prüfen kann:
For Each c In .Range("BD10:BD100")
If Not IsDate(c) And Not IsEmpty(c) Then
UserForm1.TextBox1 = "Cell " & c.Address & " is not a date !"
Exit Sub
End If
Next
Wenn es die Möglichkeit gi...
25.11.2008 08:16:21
Thread-ID: 1027553
5 Beiträge
Datei löscht sich zu einem bestimmten Datum selbst
wolle

Hallo an alle,
ich würde gerne wissen ob es möglich ist, dass sich eine Excel - Datei zu einem bestimmten Datum selbst löschen kann.
Wie stell ich mir das vor?
Diese Datei wird an verschiedene Personen zu Übungszwecken ausgegeben. D.h. das Original wird mittels Speichermedium (USB-...
12.01.2009 20:54:00
Thread-ID: 1039018
6 Beiträge
Anzeige
Zellen färben mittels Datumsabfrage
Pascal

Hallo,
ich brauche mal die Hilfe von Excel "Kennern"...
Ich habe verschiedene Spalten in einem Sheet, die eine zeigt einen Endtermin an, die andere den Status. Dieser steht auf "Released" oder "Service"...
Ist nun ein Endtermin erreicht und der Status steht immer noch auf "Released"...
12.02.2009 11:15:00
Thread-ID: 1049955
2 Beiträge
Zellen färben mittels Datumsabfrage
Pascal

Hallo,
ich brauche mal die Hilfe von Excel "Kennern"...
Ich habe verschiedene Spalten in einem Sheet, die eine zeigt einen Endtermin an, die andere den Status. Dieser steht auf "Released" oder "Service"...
Ist nun ein Endtermin erreicht und der Status steht immer noch auf "Released"...
12.02.2009 11:15:00
Thread-ID: 1049956
3 Beiträge
Vergleich Datum in Zelle mit Datum heute
Schmidtler

Hallo,
habe mal wieder ein Problem:
Ich prüfe Datum bzw. Inhalt von Zelle V1 zu Datum bzw. Inhalt von Zelle V2 und gebe dann einen Wert in die Zelle unterhalb von V2 aus. Die Prüfung OK und ISSUE funktionieren. Jedoch hat mein Marko irgendein Problem mit dem Vergleich =Date. Kann mir ei...
27.02.2009 09:59:09
Thread-ID: 1054614
5 Beiträge
Zahlen zwischen zwie Spalten mit dem Datum darauf
Oskar

Hallo
Ich möchte Zahlen auf Spalten Addieren, welche zwischen zwei Datum liegen um zu berechnen, wie lange eine Arbeit unter Berücksichtigung der Feiertage geht. Die Zeile mit %, wieviel nicht gearbeitet ist, ist schon auf der Tabelle. (Zeile 4) Auf Zeile 2 steht das Datum. Die Datum von un...
11.05.2009 14:07:39
Thread-ID: 1074347
3 Beiträge
Wochentag aus Zelle mit Datum
MikeM

Hallo zusammen,
hab ein Problem und hoffe auf eine Lösung.
Ich möchte mir gerne aus einem Datum den Wochentag anzeigen lassen - allerdings als Text.
Beispiel:
Zelle A1 = 11.02.2009 (formatiert als TT, da ich nur den Tag brauche, also 11, da es sich um einen Kalender handelt)
...
18.05.2009 14:47:49
Thread-ID: 1075909
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
11
1
4
5
16
1
2
4
2
3
1
3
2
6
2
3
5
3
4
2
1
4
11
2
1