Wie kann ich in Zelle A1 einen Wert automatisch bei jedem Öffnen der Datei um eins hochzählen. Der Bereich 30000 bis 99999
Private Sub Workbook_Open ()
Range("A1").value = Range ("A1").Value +1
End Sub
Gruß
Bonte
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 ?
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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen