Worksheet_Change
29.04.2013 20:15:27
Thorsten_Z
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("P6").Value = Sheets("Tabelle11").Range("A2") Then Range("P6").Value = Sheets(" _
Tabelle11").Range("E2").Value
'If Range("P6").Value = Sheets("Tabelle11").Range("A2") Then Range("Q6").Value = Sheets(" _
Tabelle11").Range("G2").Value
End Sub
In Zelle "P6" schreibe ich ein Kürzel, welches in "Tabelle11" Zelle A2 verglichen wird und bei Übereinstimmung die entsprechende Zeit aus "E2" in Zelle "P6" schreibt.Soweit funktioniert es auch.
Nun möchte ich aber auch aus der Zelle "G2" aus "Tabelle11" die Zeit in die Zelle "Q6" schreiben. Das funktioniert jedoch NICHT.
Was ich nicht nachvollziehen kann ist, wenn ich den Code NUR mit der zweiten Zeile (oben im Code noch durch ' deaktiviert) laufen lasse, schreibt er mir zwar die Zeit in "Q6", hängt sich dann aber mit der Meldung "Nicht genügend Stapelspeicher vorhanden" auf!!?
Vom Prinzip soll der Code so sein, dass er das Kürzel in "P6" mit dem in Tabelle11 A2 vergleicht und mir die Zeiten in "P6" (Kürzel wird überschrieben) und "Q6" einträgt.
Wer kann mir da Hilfestellung geben?
Vielen dank
Gruß
Thorsten