fortlaufende Nummer bei jedem öffnen der Tabelle..
01.04.2005 10:49:29
Anne
ich habe einen kleinen Denkfehler in meinem VBA-Code.
ich habe eine Tabelle mit 12 Tabellenblättern (1,2,...12) für jeden Monat eine. in der Spalte A Steht die fortlaufende Zahl, Spalte B das aktuelle Datum, Spalte C steht zur freien Verfügung. Bei jedem neuen öffnen der Datei wird automatisch eine neue fortlaufende Nummer vergeben und das aktuelle Datum. Ist ein Monat beendet, soll er die letzte fordlaufende Zahl +1 in das neue Tabellenblatt schreiben und dann nach jedem öffnen wie oben beschrieben fortfahren.
Ich nutzte Office 2002/Windows 200 SP4
Der aktuelle Fehler:
Ist eine Monat beendet, springt er zwar automatisch auf das neue Tabellenblatt, gibt jedoch einen Debuggfehler aus, weil ihm die Zahl fehlt.
Kann mir jemand helfen?
Hier der Code:
Private Sub Workbook_Open()
Dim i As Integer, b As Integer, c As Integer
Worksheets(CByte(Month(Date))).Activate
b = CByte(Month(Date)) - 1
If b = 0 Then b = 1
c = Range("A65536").End(xlUp).Row + 1
If c < 2 Then c = 2
i = Range("A" & Range("A65536").End(xlUp).Row)
If i = 0 Then i = Worksheets(b).Range("A" & Worksheets(b).Range("A65536").End(xlUp).Row).Value
Range("A" & c) = i + 1
Range("B" & c) = Date
End Sub
Danke schonmal
Gruß Anne
Anzeige