Endlosschleife in Change-Ereignis
31.08.2013 12:46:42
Franz
ich möchte aus einem Sheet mit Datumsangaben alle Datümer ab einem Datum, das in A4 eingegeben wird, einlesen. Ich hab das so versucht:
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)
Damit bekomme ich aber eine Endlosschleife, weil bei jedem Eintrag in die Zieltabelle im Blatt "Tabelle12" das Change-Ereignis erneut losgetreten wird.
Kann ich das irgendwie unterbinden? Und wenn ja, wie? Oder muss ich einen gänzlich anderen Weg versuchen?
Danke schonmal und Grüße
Franz