Endlosschleife in Change-Ereignis

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRowTB1_A As Integer, iRowTB1_B As Integer
Dim iRowTB_12 As Integer
If Target.Cells.Count > 1 Then Exit Sub 'bei Markierung mehrerer Zellen
If Target  Range("A4") Then Exit Sub  'bei jeder anderen Zelle AUSSER  "A4"
With Tabelle1
iRowTB1_A = 3
Do Until .Cells(iRowTB1_A, 6) = Tabelle12.Cells(4, 1)
iRowTB1_A = iRowTB1_A + 1
Loop
iRowTB1_B = iRowTB1_A + 1
iRowTB_12 = 5
Do Until .Cells(iRowTB1_B, 6)