Erhöhung Rechnungsnummer um 1
23.04.2008 15:15:00
drigi
kann mir jemand bei folgendem Problem weiterhelfen?
Ich habe ein Tabellenblatt "Rechnung", "Journal" und "Kopie".
"Kopie" ist genau gleich "Rechnung".
In D13 steht die Rechnungsnummer in "Rechnung".
In "Journal" stehen Rechnungsdaten. Speziell in Spalte A stehen Rechnungsnummern.
Durch VBA versuche ich nun die letzte Rechnungsnummer aus "Journal" zu ermitteln und in D13 um einen Zähler zu erhöhen, wenn ich "Rechnung" durch "Kopie" ersetze.
Kann mir das unten jemand einbauen?
Sub Sicherungskopie()
Application.DisplayAlerts = False
Sheets("Kopie").Visible = True
Sheets("Rechnung").Delete
Application.DisplayAlerts = True
Sheets("Kopie").Copy before:=Sheets(1)
ActiveSheet.Name = ("Rechnung")
Sheets("Rechnung").Select
Sheets("Kopie").Visible = False
End Sub