|
Autor
|
Thema: Datums-Automatismus (968 mal gelesen)
|
Pro_Blem
Ehrenmitglied V.I.P. h.c.
Tschechischer Zeichner
   Beiträge: 2952
Registriert: 24.07.2006 alles von Office 97 bis 2010...
|
erstellt am: 25. Okt. 2007 13:30  <-- editieren / zitieren -->   Unities abgeben:          
Hallo ihr Tabellenkalkulatoren  kann mir jemand sagen, ob ein Automatismus der Art: Wenn in dieser Zelle etwas eingetragen wird, soll das Datum hinterlegt werden (z.B. in der nächsten Spalte); das Ganze soll natürlich nur passieren, wenn die Zelle tatsächlich geändert wird! Nicht, dass man am nächsten Tag das Arbeitsblatt öffnet und hinter allen Zellen, die nicht leer sind das aktuelle Datum steht  also abstrakt:
="aktuelles Datum", wenn "Zelle xy" geändert wurde Vielen Dank für eure Vorschläge  Basti ------------------
 
...und jetzt: Werbung!
Weiß gewinnt! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Axel.Strasser
Ehrenmitglied V.I.P. h.c.
Selbstständig im Bereich PLM/CAx
Beiträge: 4107
Registriert: 12.03.2001 Früher war vieles gut, und das wäre es heute immer noch, wenn man die Finger davon gelassen hätte!
|
erstellt am: 25. Okt. 2007 13:36 <-- editieren / zitieren --> Unities abgeben: Nur für Pro_Blem 
Sollte mit Makro über Worksheet_Change möglich sein. Diese Prozedur wird bei jeder Änderung durchlaufen. Wenn Du dann den Bereich "abfrägst", Deine Zeile ermittelst und dann in das entsprechende Datumsfeld den Eintrag machst, sollte das funktionieren Axel Irgendwie so etwas (ungetestet und sicher so nicht lauffähig ): Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Change As Range
Set Change = Range(Cells(4, 2), Cells(3000, 2))
If Not Intersect(Target, Change) Is Nothing Then
If Cells(Target.Row(), 2).Value <> "" Then
Cells(Target.Row(), 3).Select
ActiveCell.value = date
End If
End If
End Sub
[Diese Nachricht wurde von Axel.Strasser am 25. Okt. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| | Product Development Engineer (w/m/d) | MINTH Group is a leading supplier in the automotive segment, primarily engaged in the innovation, development and manufacture of battery enclosure system. Our innovation goal is to pursue sustainable development, making cars lighter and more environmentally friendly. We never stop the pursuit of product quality and excellence, and work closely with customers to create a better lifestyle with higher quality.... | | Anzeige ansehen | Maschinenbau |
|
Pro_Blem
Ehrenmitglied V.I.P. h.c.
Tschechischer Zeichner
Beiträge: 2952
Registriert: 24.07.2006 alles von Office 97 bis 2010...
|
erstellt am: 25. Okt. 2007 13:50 <-- editieren / zitieren --> Unities abgeben:
Danke Axel & Überweisung. mal sehen, ob ich das umsetzten kann. Aber jetzt hab ich Suchbegriffe ...sehe gerade, dass Du schon ein Makro-"Layout" eingestellt hast - Danke  Basti ------------------
...und jetzt: Werbung!
Weiß gewinnt!
EDIT: Das funktioniert!  Gut, dass ich das selbst nie hingekriegt hätte 
[Diese Nachricht wurde von Pro_Blem am 25. Okt. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
 |
Foren auf CAD.de (alle Foren)
| 
