Loop - Kein Tabellenblattwechsel in vba
26.01.2019 12:22:31
Dennis
ich habe das Problem, dass Excel nicht die Kundendaten in die entsprechenden Tabellen blätter kopiert.
Der Fehler kommt bei
Sheets("Kunde").Select
mit der Fehlermeldung:
Laufzeitfehler '9':
Index außerhalb des gültigen Bereichs
Hier nochmal der komplette Code als übersicht:Sub Kundenausdruck()
' Kundenausdruck Makro
Application.ScreenUpdating = False
Dim Kunde As String
For i = 1 To 6
If i = 1 Then Kunde = "xxx"
If i = 2 Then Kunde = "xxx"
If i = 3 Then Kunde = "xxx"
If i = 4 Then Kunde = "xxx"
If i = 5 Then Kunde = "xxx"
If i = 6 Then Kunde = "xxx"
Sheets("Kundenausdruckliste").Select
ActiveSheet.ListObjects("EST").Range.AutoFilter Field:=5, Criteria1:= _
"Kunde"
Range("EST").Select
Selection.Copy
Sheets("Kunde").Select
Range("B4").Select
ActiveSheet.Paste
Sheets("Kundenausdruckliste").Select
ActiveSheet.ListObjects("EST").Range.AutoFilter Field:=5
Range("D35").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Sheets("Startseite").Select
Next i
Application.ScreenUpdating = True
End Sub
Ich bedanke mich im vorraus schon einmal für jede Hilfe.MfG Dennis