Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
508to512
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
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aktuelles Tagesdatum automatisch nach Zelländerung

Aktuelles Tagesdatum automatisch nach Zelländerung
03.11.2004 17:52:21
Jürgen
Hallo Forumskollegen,
ich stehe vor einem kleinen Problem und habe es jetzt seit 1 Stunde nicht gelöst bekommen, vielleicht ist es effizienter Euch mal zu fragen.
Folgender Sachverhalt:
Ich habe eine Tabelle in der per Worksheet_Change Makro automatisch nach der Eingabe in Zelle A1 in Zelle C1 das aktuelle Tagesdatum eingetragen werden soll. Da ich nicht möchte, dass dieses Datum ständig aktualisiert wird, fällt =Heute() schonmal weg. Ich habe es per VBA Makro versucht (mit dem Befehl "Date") und bekomme das auch für diesen einen Fall hin.
Ich möchte dies aber nun für alle Zellen von A1 bis A100 aktivieren, sprich: Wenn nun A2 geändert wird, soll in C2 das aktuelle Tagesdatum stehen ... Wenn A3 geändert wird, soll in C3 das aktuelle Tagesdatum stehen ...
Die Auto-Eintragung sollte aber schnell gehen und es nicht erst durch eine If-Schleife erstmal alle 100 Zellen abgeprüft werden.
Ich denke das ist möglich nur komme ich irgendwie heute nicht auf die richtige und komfortable Lösung.
Wäre nett wenn mir einer von Euch helfen könnte.
Vielen Dank schonmal und beste Grüße
Jürgen Stuhlträger

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aktuelles Tagesdatum automatisch nach Zelländerung
03.11.2004 17:56:17
Hajo_Zi
Hallo Jürgen,
bei VBA Gut bekommst Du folgendes Makro angepast.

Private Sub Worksheet_Change(ByVal Target As Range)
'   erstellt von Hajo.Ziplies@web.de 19.07.03, 30.10.03
' <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a>
'   HINTERGRUND
'   für Schrift RaZelle.Font.ColorIndex
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("B3:C35, D1:D7")
'   noch mehr Bereiche
'    Set RaBereich = Union(Range("C7:I26"), Range("L7:R26"), Range("U7:AA26"), Range("AD7:AJ26"))
'    ActiveSheet.Unprotect ("Passwort")
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
If IsDate(RaZelle.Text) Then
'               Ansatz von Uwe Küstner
'               Zuordnung der Farbwerte (1 bis 56) zu den Stunden (0 bis 23)
'                RaZelle.Interior.ColorIndex = Choose(Hour(RaZelle.Value) + 1, _
'                    , 3, 4, 5, 6, 7, 8, 9, 10, 55, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 40)
'               Farbe automatisch
If Hour(RaZelle) < 24 Then
RaZelle.Interior.ColorIndex = Hour(RaZelle) + 3
Else
RaZelle.Interior.ColorIndex = 26
End If
End If
End If
Next RaZelle
'    ActiveSheet.protect ("Passwort")
Set RaBereich = Nothing
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
? *g, welche Anfrage meinst du Hajo?:-) o.w.T
Reinhard
AW: ? Change nur in bestimmten Bereich
03.11.2004 18:42:53
Hajo_Zi
Hallo Reinhard,
es ging darum das sein Change Ereigis nur in einem bestimmten Bereich gelten soll. Und bei VBA Gut kann er sich den Code umarbeiten.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


O.T. m T.
Reinhard
Hallo Hajo,
ja, das hattest du ja auch geschrieben, aber ich sah nur dass es da um Farben ging und dachte du hättest den falschen Code erwischt:-)
Gruß
Reinhard
AW: ? *g, welche Anfrage meinst du Hajo?:-) o.w.T
03.11.2004 20:03:17
Jürgen
Alles klar danke Jungs, ich werde mich morgen mal drum kümmern, jetzt habe ich schon zuviel Alk getrunkekn dafür ;-) Kleines Festchen im Büro ...
Ich werd' dann mal berichten ob ich wirklich so gut bin in VBA ...
Besten Dank.
Jürgen
Anzeige
AW: Aktuelles Tagesdatum automatisch nach Zelländerung
04.11.2004 11:00:35
Jürgen
Also ich bin doch ganz gut ;-)
Bin zwar mit deinem Code nicht so wirklich klar gekommen, aber folgender Code hat dann doch zum gewünschten Ergebnis geführt:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
For i = 2 To 100
If Cells(i, 1) > 0 And Cells(i + 1, 1) = "" Then
Cells(i, 10).Value = Date
If Cells(i + 1, 1) = "" Then Exit Sub
End If
Next i
End Sub

Wer auch so was braucht kann ja in angehängter Datei mal reingucken. Mit Blattschutz und Ausblendungen kann man dann nicht mehr viel falsch machen.
https://www.herber.de/bbs/user/12966.xls
Schönen Tag noch und danke für die Tips ...
Jürgen
Anzeige
AW: Aktuelles Tagesdatum automatisch nach Zelländerung
Ulf 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Target.Offset(0, 2) = Date
End If
End Sub

Ulf
AW: Aktuelles Tagesdatum automatisch nach Zelländerung
04.11.2004 11:10:06
Jürgen
HI Ulf,
ich habe eben erst Deinen Code entdeckt, da die antwort sich ganz unten eingereiht hatte ... Super, der ist schneller und komfortabler als meiner. Danke! Bin ich wohl doch nicht so gut ... ;-)
Grüße
Jürgen

308 Forumthreads zu ähnlichen Themen

Pivot-Tabellen automatisch aktualisieren
C

Hallo,
ich möchte eine Excel Datei mit mehreren Pivot-Tabellen nachts aktualisieren, damit ich morgens aktuelle Daten vorliegen habe und nicht den Aktualisierungsprozess abwarten muss. Hinter den Pivot-Tabellen liegen Datenbank-Tabellen. Wie bekomme ich das am einfachsten hin?
Vielen D...
28.10.2008 10:27:00
Thread-ID: 1019831
2 Beiträge
Anzeige
Datum automatisch einstellen
Timmy

Liebe Excler,
wie kann ich in meinem Worksheet das Datum automatisch einstellen lassen, sodass es sich von selbst aktualisiert sobald ich das Sheet oeffne, oder beginne zu erarbeiten?
Vielen Dank und liebe Gruesse
Timmy
16.02.2009 16:05:00
Thread-ID: 1051200
3 Beiträge
Automatisches Datum in der Zelle
Schindlbeck62

Hallo Excel Speziallisten,
ich habe eine Liste für die Terminverfolgung erstellt, jetzt möchte ich, wenn die Aufgabe erledigt ist. das ich z. B. in die Zelle D4 ja schreibe sich in die Zelle D5 das Heutige Datum automatisch einträgt aber nicht mehr aktualisiert wenn ich es an an...
27.03.2009 11:04:10
Thread-ID: 1064527
9 Beiträge
Anzeige
Automatisches Aktualisieren beim Öffnen
svenja

Hallo,
habe in einer Exceldatei Daten aus einer Access-Datenbank verknüpft. Die Daten sollen beim Öffnen der Excel-Datei automatisch aktualisiert werden. Habe das entsprechende Häkchen bei "Datenbereichseigenschaften" gesetzt. Es handelt sich hier um eine Excel-Datei mit insgesamt 13 Tabell...
23.07.2009 01:40:16
Thread-ID: 1090320
2 Beiträge
Datum nicht Aktualisieren
René

Hallo
Ich hätte da mal ein Frage
Gibt es eine möglichkeit wenn man in die Zelle (A2) etwas hineinschreibt in die Zelle (B2) das aktuelle Datum mit Uhrzeit steht?
Ich hätte die Formel: =wenn(A2="";"";jetzt())
Das Problem dabei ist, dass sich das Datum dabei immer Aktualisiert. Gi...
25.07.2009 18:19:57
Thread-ID: 1091274
2 Beiträge
Beim Speichern Pivot aktualisieren
andreas

Hallo zusammen,
da ich leider keine Ahnung habe von VBA:
kann mir jemand bei einem Code aushelfen, der, wenn gespeichert wird, automatisch alle Pivottabellen in der Datei aktualisiert?
Vielen lieben Dank vorab
Andreas
14.10.2009 19:24:13
Thread-ID: 1109670
2 Beiträge
Pivottabellen automatisch aktualisieren
martin

Hallo,
Ich aktualisiere bis jetzt meine Pivottabellen über folgenden Code: Private Sub Worksheet_Activate() Dim pt As PivotTable For Each pt In Me.PivotTables pt.RefreshTable Next End Sub
dabei muss ich ja immer das Tabellenbaltt neu aktivieren auch wenn ich bereits in dem Tabellenbla...
05.11.2009 12:41:16
Thread-ID: 1114702
3 Beiträge
Makro automatisch bei Zellenänderung ausführen
Michael

Hallo,
für eine Tabelle nutze ich folgendes Makro: Sub einfärben() For Each Cell In Range("H5:AH16") If Cell = "SE" Then Cell.Interior.ColorIndex = 3 Cell.Font.ColorIndex = 3 End If If Cell = "TW" Then Cell.Interior.ColorIndex = 4 Cell.Font.ColorIndex = 4 End If If Cell = "BS" Then Cell.In...
16.03.2010 10:59:21
Thread-ID: 1146150
15 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
1
3
2
8
7
1
1
1
2
14
9
2
1
9
4
7
2
3
2
1
9
6
6
5
1