Office: Datenaufnahme per VBA kopieren und sichern

Hallo,

irgendwie sagt er mir immer Laufzeitfehler 9...

Erase arr
Set wksHis = wkb.Worksheets(m_sHistorie) --> hier hört er auf und markiert gelb
Set wksAuf = wkb.Worksheets(m_sAufnahme)
Set wkb = ThisWorkbook
End Sub

Public Sub TurnOffFunctionality()
Application.Calculation = xlCalculationManual
Application.DisplayStatusBar = False
Application.EnableEvents = False
Application.ScreenUpdating = False
End Sub
Public Sub TurnOnFunctionality()
Application.Calculation = xlCalculationAutomatic
Application.DisplayStatusBar = True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

 

Du wirst doch nicht das Arbeitsblatt "Historie" umbenannt oder gelöscht haben, JanFr?

Umbenennen oder löschen ist pfui, es sei denn Du gibst dem Code bescheid.

Hier werden die Arbeitsblattnamen definiert, auf welche sich der Code beziehen wird:
Tipp der Forumssoftware: Nachfolgende, hervorgehobene Zeilen, werden mit Code-Tags erreicht.

Code:

Wenn es keine Aufnahme oder Historie gibt, bekommst Du einen Laufzeitfehler 9.

 

Hallo,

nein, gelöscht habe ich die Tabellenblätter auf keinen Fall, dafür habe ich nun wirklich Excel-Vorkenntnisse...

Er gibt den Fehler 9
Index außerhalb des gültigen Bereichs

aus.

Nach Debuggen landet er hier:

Set wksHis = wkb.Worksheets(m_sHistorie)

Aufnahme ist das erste Tabellenblatt
Historie das zweite

 

Ob Erste oder Zweite ist egal.

Wichtig ist, dass die Blätter so heißen:

"Aufnahme"
"Historie"

Und natürlich nicht verkehrt sind^^