Case Select endet nicht bzw. endet im Laufzeitfehl
23.11.2014 00:59:32
Robert
ich habe in der Zelle Q56 ein Dropdown erstellt und daran einen Case Select gekoppelt. Wenn Case 1 selektiert wird sollen die Zellen "L58:N59" und "L59:N59" selektiert, gemerged und jeweils mit einem Text versehen werden. Es gehschieht zwar was ich mir vorstelle nur hört das Ganze nicht auf sich zu wiederholen und endet in einem Laufzeitfehler. Durch den Debugger sehe ich das die Zellen wie gewünscht selektiert und zusammengefügt werden sowie die Texte hinzugefügt werden, nur springt er dann vom End Sub wieder zum Ende Select und wieder zum End Sub dann zum Private Sub und dann zum ersten Range und durchläuft diesen immer wieder. Hier meine Frage: Warum?
Ich habe derzeit wenig Ahnung von VBA und wäre nett wenn mir einer eben helfen könnte da ich meines Wissens nach keine Schleife oder ähnliches eingebaut habe :o(
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Select Case Range("Q56")
Case "1"
Range("L58:N58").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Selection.Merge
ActiveCell.FormulaR1C1 = "Test 1"
Range("L59:N59").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Selection.Merge
ActiveCell.FormulaR1C1 = "Test 2"
End Select
End Sub