Hallo an alle!
Hier mein Problemchen bei dem ich sehr hoffe, dass mir jemand helfen kann!! :)
Tabelle1 Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B3:B39 , C3:C39, D3:D39, E3:E39")) Is Nothing Then
Sheets("Kiste").Range("C9:C44").Value = Sheets("Kosten").Range("B3:B39").Value
Sheets("Kiste").Range("F9:F44").Value = Sheets("Kosten").Range("C3:C39").Value
Sheets("Kiste").Range("J9:J44").Value = Sheets("Kosten").Range("D3:D39").Value
Sheets("Kiste").Range("H9:H44").Value = Sheets("Kosten").Range("E3:E39").Value
End If
End Sub
Tabelle 4 Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C9:44, F9:F44, J9:J44, H9:H44")) Is Nothing Then
Sheets("Kosten").Range("B3:B39").Value = Sheets("Kiste").Range("C9:C44").Value
Sheets("Kosten").Range("C3:C39").Value = Sheets("Kiste").Range("F9:F44").Value
Sheets("Kosten").Range("D3:D39").Value = Sheets("Kiste").Range("J9:J44").Value
Sheets("Kosten").Range("E3:E39").Value = Sheets("Kiste").Range("H9:H44").Value
End If
End Sub
Beim Debuggen kommt immer der selbe Fehler "Laufzeitfehler 9 - Index ausserhalb des gültigen Bereichs". Konkret liegt der Fehler in Tabelle 1 bei Sheets("KISTE")..., die gesamte Zeile wird gelb markiert. Ich habe schon alles probiert: ThisWorkbook.Sheets gesetzt; statt "KISTE" und "KOSTEN" "Tabelle1" und "Tabelle4" geschrieben; .xls bei KISTE bzw Tabelle1 angehängt.
Liegt der Fehler vielleicht wo anders? Worauf muss man überhaupt achten bei solchen Sheet-Codes und bei Laufzeitfehler 9 -Fehlern?
Freu mich über jede Hilfe!!! :) (*halbverzweifelt bin*)