Zelle unter Textfeld/Befehlsbutton ansprechen
04.07.2006 08:53:51
Gregor
Folgendes Problem:
Ich habe an verschiedenen Stellen einen mehrfach vorkommenden Befehlsbutton, der folgendes Makro auslöst:
Sub a()
Application.ScreenUpdating = False
If Cells(ActiveCell.Row, 2).Value = "d" Then
Cells(ActiveCell.Row, 2).Value = "k"
Else:
Cells(ActiveCell.Row, 2).Value = "d"
End If
End Sub
Nun zum Problem:
wenn der Cursor in der korrekten Zeile platziert ist (z.B. D20), wird auch die richtige Zeile angesteuert. Wenn der Befehlsbutton z.B. in Zeile 20 steht, der Cursor allerdings in Zeile 17 und ich direkt den Befehlsbutton anklicke, schreibt es mir den Buchstaben in die Zeile 17 anstatt in die gewünschte Zeile 20 (= dieselbe Zeile wie der mehrfach vorkommende Befehlsbutton).
Kennt jemand eine Lösung, wie ich nach betätigen des Befehlsbuttons die unter dem Button liegende Zelle anklicken könnte (z.B. Zelle C20, d.h. aktive Zelle unter Button)?
Vielen Dank für deinen geschätzten Imput!
Grüsse Gregor