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

Ansicht des Beitrags:
Von:
Carlos		 Datum:
29.09.2010 22:18:43		 Views:
924		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Aw:Aw:2 Optionsfelder
Severus schrieb am 28.09.2010 17:07:49:

Carlos schrieb am 27.09.2010 19:38:33:

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

Hi Carlos,
ich habe immer noch ein Problem mit
Range("K" & i + 17).Value = Range("K" & i + 17).Value

hier steht doch nur (als Beispiel) K17=K17!
Ich verstehe nicht, was das soll. i ist in beiden Fällen gleich. Ebenso die Spalte. Hast Du da nicht irgendwo gedanklich was versemmelt?

Severus


Hi Severus!

hier mal ein screenshot:
http://yfrog.com/bfscrshtprblmj

Was ich machen will:
Ihc will ein excel sheet erstellen, mit dem ich entweder prozentsätze oder manuell eingeben kann oder mir automatisch berechnen lassen kann, oder aber euro-werte manuelle eingeben kann bzw. diese automatisch aus den prozentsätzen berechnen lassen kann.
Je nachdem, ob ich prozentsätze oder eurowerte gegeben habe, soll das jeweils andere automatisch durch hinterlegte formeln berechnet werden. Die Auswahl darüber hab ich mit Optionsfeldern realisiert.

Wie würdest denn du das anpacken? Vielleicht hab ich auch einfach falsch angesetzt. Bin da nich so geübt drin, was VBA betrifft.

wenn ich die - ich gebe zu, nicht sinnvoll klingende zeile - weglasse, meckert er wegen zikelbezug rum.

Vielen Dank für deine Hilfe ...
..und deine Geduld :)

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
27.09.2010 19:38:33 Carlos
NotSolved
28.09.2010 17:07:49 Severus
NotSolved
Rot Aw:Aw:Aw:Aw:2 Optionsfelder
 29.09.2010 22:18:43 Carlos
NotSolved