Thema Datum  Von Nutzer Rating
Antwort
23.09.2010 10:14:26 Carlos
NotSolved
23.09.2010 14:22:10 Severus
NotSolved
Rot Aw:Aw:2 Optionsfelder
 27.09.2010 19:38:33 Carlos
NotSolved
28.09.2010 17:07:49 Severus
NotSolved
29.09.2010 22:18:43 Carlos
NotSolved

Ansicht des Beitrags:
Von:
Carlos		 Datum:
27.09.2010 19:38:33		 Views:
890		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:2 Optionsfelder
Severus schrieb am 23.09.2010 14:22:10:

Carlos schrieb am 23.09.2010 10:14:26:

Hallo!

Das Problem, das ich habe ist folgendes:
Ich will 2 Optionsfelder aus der SteuerelementeBox miteinander verknüpfen.

Wenn ich nun in eine Zelle die durhc das eine Optionsfeld aktiviert werden eine Zahl shcreibe, will ich dass automatisch in den nicht aktivierten Zellen des anderen Optionsfeldes der Wert neu berechnet wird.

Muss ich da nicht irgendwie allgemein was an den Einstellungen ändern? Das er mir bei jedem Verlassen einer Zelle alles aktualisiert oder so, gibts da was?

oder wo soll ich den Code hinschreiben und was soll ich schreiben?

gruß,

C.

Leider bin ich nicht sicher, ob ich Dich richtig verstanden habe, aber probiers mal mit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.SendKeys "{F9}"
End Sub

im Klassenmodul des Arbeitsblattes.

Severus


Vielen Dank Severus! Das hat auf Anhieb geklappt, d. h. nicht ganz..
ich muss noch irgendwo in meinem code eine zeile drin haben, die nicht passt.
Das mit der automatischen Aktualisierung funktioniert nämlich nur immer wenn ich in die Zellen des nicht aktiven Optionsfeldes etwas reinschreibe. Ich denke mal, dass die Zeile, die du nicht magst (vgl. anderer Thread;) :
Range("M" & i + 17).Value = Range("M" & i + 17).Value
der grund ist.
Wenn ich diese aber weglasse meckert er ständig wegen Zirkelbezug herum...

Hier einmal der gesamte Code der beiden Optionsfelder:


Private Sub Option1_Click()

Range("K17:K20").Select
Selection.Interior.ColorIndex = 0
Range("M17:M20").Select
Selection.Interior.ColorIndex = 15

Range("K17").Select

For i = 0 To 3
Range("M" & i + 17).Value = Range("M" & i + 17).Value
Range("K" & i + 17).Formula = "=M" & CStr(i + 17) & "/100*E" & CStr(17)
Next i

End Sub



Private Sub Option2_Click()

Range("M17:M20").Interior.ColorIndex = 0
Selection.Locked = False
Range("K17:K20").Interior.ColorIndex = 15
Selection.Locked = True
Range("M16").Select

For i = 0 To 3
Range("K" & i + 17).Value = Range("K" & i + 17).Value
Range("M" & i + 17).Formula = "=K" & CStr(i + 17) & "*100/E" & CStr(17)
Next i

End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.SendKeys "{F9}"
End Sub

Bei unklarheiten einfahc schreiben, schicke auf wunsch gerne noch einen Screenshot dazu.


mfg Carlos


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
23.09.2010 10:14:26 Carlos
NotSolved
23.09.2010 14:22:10 Severus
NotSolved
Rot Aw:Aw:2 Optionsfelder
 27.09.2010 19:38:33 Carlos
NotSolved
28.09.2010 17:07:49 Severus
NotSolved
29.09.2010 22:18:43 Carlos
NotSolved