ich habe ein Problem, und zwar läuft mein Makro eine Schleife ab, die mir viieeel zu lange dauert. Kann ich das i-wie unterdrücken oder verkürzen?
Meine Datei:
Ich habe 3 Tabellen, wenn ich in einer von dreien in Spalte 9, 10 oder 11 etwas ändere, soll es in den anderen Tabellen auch geändert werden.
Folgender Auszug aus dem Makro für Tabelle 1 (Für Tabelle 2 und 3 sind nur die Worksheets anders benannt, der Rest ist gleich):
Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As Long, ws2 As Worksheet, ws3 As Worksheet
Set ws2 = Worksheets("Tabelle 2")
Set ws3 = Worksheets("Tabelle 3")
If Target.Column = 9 Then ' Spalte 9
Select Case Cells(Target.Row, 9)
Case Is = "Gezeichnet"
ws2.Cells(Target.Row, 9) = Target
ws3.Cells(Target.Row, 9) = Target
Case Is = "Versendet"
ws2.Cells(Target.Row, 9) = Target
ws3.Cells(Target.Row, 9) = Target
Case Is = "Genehmigt"
ws2.Cells(Target.Row, 9) = Target
ws3.Cells(Target.Row, 9) = Target
Case Else
ws2.Cells(Target.Row, 9) = ""
ws3.Cells(Target.Row, 9) = ""
End Select
End If
If Target.Column = 10 Then ' Spalte 10
Select Case Cells(Target.Row, 10)
Case Is = "Angefordert"
ws2.Cells(Target.Row, 10) = Target
ws3.Cells(Target.Row, 10) = Target
Case Is = "Versendet"
ws2.Cells(Target.Row, 10) = Target
ws3.Cells(Target.Row, 10) = Target
Case Is = "Eingegangen"
ws2.Cells(Target.Row, 10) = Target
ws3.Cells(Target.Row, 10) = Target
Case Else
ws2.Cells(Target.Row, 10) = ""
ws3.Cells(Target.Row, 10) = ""
End Select
End If
If Target.Column = 11 Then ' Spalte 11
Select Case Cells(Target.Row, 11)
Case Is = "Erstellt"
ws2.Cells(Target.Row, 11) = Target
ws3.Cells(Target.Row, 11) = Target
Case Is = "An EVU versendet"
ws2.Cells(Target.Row, 11) = Target
ws3.Cells(Target.Row, 11) = Target
Case Is = "An Kunden versendet"
ws2.Cells(Target.Row, 11) = Target
ws3.Cells(Target.Row, 11) = Target
Case Is = "An Kunden und EVU versendet"
ws2.Cells(Target.Row, 11) = Target
ws3.Cells(Target.Row, 11) = Target
Case Else
ws2.Cells(Target.Row, 11) = ""
ws3.Cells(Target.Row, 11) = ""
End Select
End If
End Sub
Wenn ich nun etwas ändere, bleibt Excel Minuten lang stehen bis er es überall übernommen hat. Ich denke das dort eine Schleife läuft, die gefühlt unendlich lang ist. Kann mir wer helfen? =(
Grüße