Kann mir jemand sagen, was ich im nachfolgenden code falsch mache
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call uebertragen
End Sub
Sub uebertragen()
Dim Mldg$
Mldg = MsgBox("Wollen Sie die Daten in die Datenbank übertragen", _
vbYesNo + vbQuestion, "")
If Mldg = vbNo Then
MsgBox "Bitte nicht vergessen"
Exit Sub
Else
Call Datenbank
End If
End Sub
Sub Datenbank()
'Wenn etwas in der jeweiligen Zeile steht wir es in Lebenslauf.xls übertragen
'Kessel2
If Range("C33") > 0 Then
Range("A9:J9,A33:J39").Copy
Workbooks.Open "C:\Mappe2.xls"
Workbooks("Mappe2.xls").Sheets("Tabelle1").Select
Worksheets("Tabelle1").Paste "Hier kommt der Fehler"
Else
Workbooks.Open "C:\Mappe2.xls"
End If
End Sub
Fehler ist Laufzeitfehler 9
Index außerhalb des gültigen Bereichs
Für Eure Hilfe wäre ich dankbar
Gruß
Sascha