VBA Code Ausführung triggern

[MisterBurns]

Gut, wie du meinst. Ich habe keine Lust auf eine Diskussion. Schönen Tag noch.

[schauan]

Hallöchen,

dazu darf es aber kein Drehfeld (Formularsteuerelement) sein oder?
Muss es da nicht so ein ActiveX Element sein.

Ich hatte es, ..., es bereits ausprobiert.

Wenn Du dabei nicht bemerkt hast, das beides geht, ist irgendwo was fehlgeschlagen.

[RPP63]

Ich nehme mal Druck aus dem Kessel!
Ein Formularsteuerelement löst kein SelectionChange aus (auch bei einer Zellverknüpfung nicht, noch nicht mal ein _Change!)!
Insofern hat der TE (dem ich dennoch ein paar Abzüge in der B-Note gebe) schlicht Recht!

Gruß Ralf

[schauan]

Hallo Ralf,

der Code sollte in ein gesondertes Makro und sowohl vom SelectionChange als auch vom Drehfelt oder Spinbutton_Change aus aufgerufen werden.

[RPP63]

Dann spiele mal mit dem Spin … 
Wohlgemerkt: Ich rede vom FSE, nix ActiveX

[RPP63]

Ich habe es mir noch einmal genau durchgelesen.
Ja! Würde gehen, nur wozu???

[schauan]

Hallo Ralf,

um dabei die Aktion wie gefragt sowohl vom SelectionChange als auch z.B. von der Drehfeld-Änderung auszulösen?

[RPP63]

No, Sir André!
Wozu bräuchte man dann einen Spin, wenn er  byChange dieselbe Funktion wie ein Klick auf ABO234194 triggern sollte?
Sorry, aber das ist mir jetzt ein wenig zu profan, als dass man darüber weiter nachdenken sollte (ich brauchte ja auch den zweiten Anlauf) …

[schauan]

Hallo Ralf,

nicht ganz. Das Drehfeld verändert den Wert von B19 und führt dadurch zu einem anderen Resultat als nur der Wechsel der selektierten Zelle:

Range("P16").Value = "Test " & Range("B19") & " von " & Wert

[Kuwer]

Hallo Excelsior940,

mache einen Rechtsklick auf das Drehfeld und wähle Makro zuweisen.
Klicke auf Neu.
Füge folgenden Code ein:

  Dim lngP(1 To 2) As Long
 With Range("P16")
   lngP(1) = InStr(1, .Value, " ") + 1
   lngP(2) = InStr(lngP(1), .Value, " ")
   .Value = Application.Replace(.Value, lngP(1), lngP(2) - lngP(1), Range("B19").Value)
 End With

Gruß Uwe