Supportnet / Forum / Tabellenkalkulation

Hi. Wie kann ich Änderungsdatum von einem Dokument direkt in der Tabelle in eine Zelle ausgeben.

Mit was ist denn das "Dokument" erstellt?? Excel??

Ja mit Excel

OK dann öffne beide Dateien, geh in die Zelle wo das Datum hin soll gib dort "=" ein (nicht mit ENTER abschließen!), wechsel dann in die Datei von der du das Datum haben willst, klicke auf die entsprechende Zelle und drücke ENTER.
Dürfte funktionieren.

Lars

Wenn du die Dokumenteninformation meinst dann musst du dafür wohl ein Makro nutzen. Ich hab zumindest keine Funktion zum Wiedergeben der Dokumenteninformationen gefunden.

Man kann sich aber in dem Dokument automatisch das aktuelle Datum anzeigen. ich dachte so ist das gemeint. Wenn du die Infos natürlich aus der Dokumenteninfo haben willst bin ich auhc erstmal überfragt.

@Toadie

" Wenn du die Dokumenteninformation meinst dann musst du dafür wohl ein Makro nutzen. Ich hab zumindest keine Funktion zum Wiedergeben der Dokumenteninformationen gefunden.
"
Ja es geht um Dokumenteninformation. Und die sollen in dem Dokument ,in derTabelle, in eine zelle sichtbar sein.

@metalfreakla
Nein wen du aktuelles datum anzeigen lest dan wird sie verendet mit dem öfnen des dokument und Du kanst nicht mehr sehen wan das dokument verendet würde.

bitte was?? nochma auf deutsch bitte!!

hi all :)

hier einansatz :))

gruss nighty

das erste sheet wird kontrolliert und
das letzte sheet dient der darstellung

darstellung :
spalte a vorige wert der aenderung
spalte b datum der aenderung
spalte c zeit der aenderung

einzufuegen unter :

alt/f11/projektexplorer/sheet(1)

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
If ActiveSheet.Index <> Sheets.Count Then
Cells(Target.Row, Target.Column).Copy Sheets(Sheets.Count).Range("A" & Sheets(Sheets.Count).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
Sheets(Sheets.Count).Cells(Sheets(Sheets.Count).UsedRange.SpecialCells(xlCellTypeLastCell).Row, 2) = Date
Sheets(Sheets.Count).Cells(Sheets(Sheets.Count).UsedRange.SpecialCells(xlCellTypeLastCell).Row, 3) = Time
End If
Application.EnableEvents = True
End Sub

hi all :)

mit vorigen wert natuerlich so grrr
korrigiert :)))

gruss nighty

Private Sub Worksheet_selectionChange(ByVal Target As Excel.Range)
Application.EnableEvents = False
If ActiveSheet.Index <> Sheets.Count Then
Cells(Target.Row, Target.Column).Copy Sheets(Sheets.Count).Range("A" & Sheets(Sheets.Count).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
Sheets(Sheets.Count).Cells(Sheets(Sheets.Count).UsedRange.SpecialCells(xlCellTypeLastCell).Row, 2) = Date
Sheets(Sheets.Count).Cells(Sheets(Sheets.Count).UsedRange.SpecialCells(xlCellTypeLastCell).Row, 3) = Time
End If
Application.EnableEvents = True
End Sub

nighty

Danke probiere morgen aus. :-))

Pisa läßt grüßen....