Eintrag in allen Sheets | Herbers Excel-Forum


Betrifft: Eintrag in allen Sheets
von: highman4
Geschrieben am: 11.11.2009 08:26:54

Hallo Excelfreunde,
Ich möchte in einem Workbook mit 150 Sheets in allen Sheets Zelle K10 einen Eiintrag (nur ein Änderungsdatum) vornehmen.
Kann man das mit einen kleinen VBA Code automatisieren, damit ich nicht jedes Sheet einzeln öffnen muß?????
Vielen Dank für Eure Hilfe
freundliche Grüsse
Marco

Betrifft: AW: Eintrag in allen Sheets
von: David
Geschrieben am: 11.11.2009 08:35:34
Hallo Marco,
so z. Bsp.:

Sub alle()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Range("A1") = Date + 1
Next
End Sub
Gruß
David

Betrifft: AW: Eintrag in allen Sheets
von: highman4
Geschrieben am: 11.11.2009 08:44:03
Vielen Dank David,
ich hab es begriffen.
Viele Grüsse
Marco

Betrifft: warum denn vba
von: Matthias L
Geschrieben am: 11.11.2009 08:54:57
Hallo
Alle Tabellen markieren und in K10 Deine Änderung eintragen - Fertig.
Gruß Matthias

Beiträge aus den Excel-Beispielen zum Thema "Eintrag in allen Sheets"