Office: Makro: 1 Arbeitsblatt mit Infos zu allen Arbeitsblätten?

Hallo,

ich will mir Änderungen in Arbeitsblättern in einem Arbeitsblatt anzeigen lassen.

Kann man z.B. mit einem Makro in einen Arbeitsblatt ("Doku") sich in Spalte 1 alle Arbeitsblätter der Excel-Datei und in Spalte 2 die letzte Änderungszeit plus Datum des einzelnen Arbeitsblattes automatisch auflisten lassen?

Danke für Hilfe.
VG, Mat

 

Hallo!

Vielleicht reicht dir schon das, was Excel von Haus aus mitbringt?
http://office.microsoft.com/de-ch/e...rotokollieren-von-anderungen-HP005230064.aspx

 

Hallo!

Im Prinzip funktioniert die Protokollierung des letzten Änderungsdatums der Arbeitsblätter auch ohne Dateifreigabe wie in der beiliegenden Datei zu sehen ist. Diese Liste im Arbeitsblatt 'Doku' ist stets aktuell, man braucht keinen zusätzlichen Befehl auszuführen.

Gesteuert wird das ganze über das WorksheetChange-Event der Arbeitsmappe.

 

Hallo Anton,

danke. Das sieht super aus, aber bitte noch einmal langsam für mich:
wie aktiviere ich in meinen Excel-Datein WorksheetChange-Event auch ohne Dateifreigabe?

 

Hallo!

Du musst das in der Datei 'MatStorm_Duko.xls' im Codemodul der Arbeitsmappe enthaltene VBA-Makro in Deine Excel-Datei kopieren. Es handelt sich dabei um folgendes Makro Vorsicht ist allerdings dann geboten, falls dort bereits eine SUB mit dem gleichen Namen 'Workbook_SheetChange' enthalten wäre.

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Dim ShI As Long
  With Sheets("Doku")
    Application.EnableEvents = False
    ShI = Sh.Index + 1
    .Cells(ShI, 1) = Sh.Name
    .Cells(ShI, 2) = Now
    Application.EnableEvents = True
  End With
End Sub

Installationsanleitung:
1) Markieren des vorigen Makros mit der Maus, drücken der Tastenkombination Strg+C, um das markierte Makro in die Zwischenablage von Windows einzufügen.
2) Zurückkehren in ein Arbeitsblatt Deiner Exceldatei.
3) Drücken der Tastenkombination Alt+F11, um in den VBA-Editor zu wechseln.
4) Dort dann die Tastenkombination Strg+R drücken, um das Fenster 'Projekt - VBAProjekt' anzuzeigen, falls es nicht ohnehin schon zu sehen ist.
5) Dort ist eine Liste mit Baumstruktur zu sehen, wobei einer dieser Listeneinträge 'DieseArbeitsmappe' lautet (bei einer engl.Version hieße er 'ThisWorkbook').
Auf diesen Eintrag einen Doppelklick mit der Maus machen, sodass sich das Codemodulfenster der Arbeitsmappe öffnet.
6) In diesem Codemodulfenster die Tastenkombination Strg+V drücken, um das Makro aus der Zwischenablage hier einzufügen - es ist dann dort sichtbar.
7) Daraufhin wieder die Tastenkombination Alt+F11 drücken, um in ein Excel-Arbeitsblatt zurückzuwechseln.

Das war's. Das Makro ist installiert und müsste funktionieren. Auf alle Fälle ist unbedingt zu berücksichtigen, dass es ein Arbeitsblatt 'Doku' geben muss, in dem die Einträge gemacht werden. Falls dieses nicht existiert, produziert das Makro eine Fehlermeldung.
Falls dieses besagte Blatt einen anderen Namen bekommen sollte, musst Du die Stelle im Makro With Sheets("Doku") entsprechend abändern.