Hochzählen beim Öffnen



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Hochzählen beim Öffnen
von: Dirk S
Geschrieben am: 13.05.2002 - 17:38:59

Hallo Excel Freunde

Wie kann ich in Zelle A1 einen Wert automatisch bei jedem Öffnen der Datei um eins hochzählen. Der Bereich 30000 bis 99999


nach oben   nach unten

Re: Hochzählen beim Öffnen
von: Bonte
Geschrieben am: 13.05.2002 - 17:46:48

Hallo,

Private Sub Workbook_Open ()

Range("A1").value = Range ("A1").Value +1

End Sub

Gruß
Bonte


nach oben   nach unten

Re: Hochzählen beim Öffnen
von: Dirk S
Geschrieben am: 14.05.2002 - 11:04:34

Thx, mal sehen ob ich es zum laufen bekomme :)
nach oben   nach unten

Re: Hochzählen beim Öffnen
von: Dirk S
Geschrieben am: 14.05.2002 - 11:42:23

Also es funzt nicht :(

Sub Zaehler() <---wenn das nicht eingefügt wird, ist das Makro nicht vorhanden

Private Sub Workbook_Open ()
Range("A1").value = Range ("A1").Value +1
End Sub

Also was muss ich tun ?

nach oben   nach unten

Re: Hochzählen beim Öffnen
von: Dirk S
Geschrieben am: 14.05.2002 - 15:48:06

So ich habe es jetzt selbst hinbekommen.
Hier meine Lösung, wenn auch noch nicht 100% ;)

Sub Getzaehlernummer()
Dim neuenummer As Long
Application.ScreenUpdating = False
Workbooks.Open FileName:="c:\dateiname-zaehler.xls"
neuenummer = Cells(2, 1).Value
neuenummer = neuenummer + 1
Cells(2, 1).Value = neuenummer
ActiveWorkbook.Save
ActiveWorkbook.Close
Range("AB1").Select
ActiveCell.Value = neuenummer
Application.ScreenUpdating = True
End Sub

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Tabellenblatt OHNE rückfrage durch vba löschen "