Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1776to1780
1776to1780
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Optionsfelder mit Zellen verknüpfen

Forumthread: Optionsfelder mit Zellen verknüpfen

Optionsfelder mit Zellen verknüpfen
14.08.2020 12:01:23
Michel
Hallo,
bauche mal wieder Eure tolle Hilfe :)
Ich habe eine Tabelle mit Räumen und den dazugehörigen Flächen (m²) und Mietpreis pro m², sodass ich den Mietpreis pro Raum ausrechnen kann.
Nun möchte ich mittels Optionsfeldern den Preis ausrechnen, wenn diese angeklickt werden. Werden also bspw. 10 Optionsfelder (Räume) ausgewählt soll er den Gesamtpreis für die Räume ausrechnen.
Ich habe das erste Optionsfeld mit einer Zelle in derselben Zeile verknüpft, sodass eine 1 in der Zelle erscheint, wenn das Feld angeklickt wird. So kann ich am Ende mittels Formel (zB SUMMEWENN) den Gesamtpreis aller ausgewählten Räume berechnen.
Ich habe 227 Räume und damit Optionsfelder, die ich nun nacheinander mit einer Zelle verknüpfen müsste.
Das ist mir zu aufwändig. Habt ihr vielleicht eine Lösung oder bessere Alternative?
Danke im Voraus
Michel
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nimm folgendes...
14.08.2020 12:30:14
Case
Hallo, :-)
... Makro: ;-)
Option Explicit
Public Sub Main()
Dim shpObject As Shape
On Error GoTo Fin
With ThisWorkbook.Worksheets("Tabelle1")
For Each shpObject In .Shapes
If Left(shpObject.Name, 5) = "Optio" Then
shpObject.ControlFormat.LinkedCell = shpObject.TopLeftCell.Offset(0, 1).Address
End If
Next shpObject
End With
Fin:
If Err.Number  0 Then MsgBox "Error: " & Err.Number & " " & Err.Description
End Sub
Das setzt in Tabelle1 für alle OptionButton die Zelle rechts daneben als LinkedCell. Willst du eine andere Zelle, musst du mit dem Offset spielen.
Servus
Case
Anzeige
Vergiss, was ich...
14.08.2020 12:45:40
Case
Hallo, :-)
... geschrieben habe. Mit OptionButton geht das nur über Gruppieren. Dann musst du das anders ansprechen. CheckBoxen würden gehen. Lade doch einfach mal eine Beispieldatei hoch, dann sehen wir weiter. ;-)
Servus
Case
Anzeige
Ich dachte da an sowas...
14.08.2020 13:23:31
Case
Hallo, :-)
... ähnliches: ;-)
Beispieldatei...
Servus
Case
Anzeige
AW: Nimm folgendes...
14.08.2020 12:52:54
Michel
Hi Case,
danke für Deinen Code, es hat funktioniert.
Problem ist nur, dass ich von diesen ganzen Feldern nur eins auswählen kann...
ich glaube das sagt auch schon der Name "Optionsfeld".
Trotzdem danke
VG
Das geht schon...
14.08.2020 13:04:58
Case
Hallo, :-)
... - ist aber etwas Arbeit. Du musst da mit Gruppenfeldern und gruppieren arbeiten, dann kann man OptionButton auch so nutzen. Aber dafür gibt es natürlich die CheckBoxen und ob das den Aufwand wert ist? ;-)
Servus
Case
Anzeige
AW: Das geht schon...
14.08.2020 13:06:09
Michel
Hi,
ja ich glaube, Du hast recht. Für den Aufwand lohnt es sich glaube ich nicht.
Aber danke für Deine Hilfe.
VG Michel
;
Anzeige
Anzeige

Infobox / Tutorial

Optionsfelder in Excel effektiv nutzen

Schritt-für-Schritt-Anleitung

  1. Optionsfeld einfügen:

    • Öffne Excel und wähle die Registerkarte „Entwicklertools“. Falls diese nicht sichtbar ist, aktiviere sie über „Datei“ -> „Optionen“ -> „Menüband anpassen“ und setze ein Häkchen bei „Entwicklertools“.
    • Klicke auf „Einfügen“ und wähle das „Optionsfeld“ aus der „Formularsteuerelemente“-Gruppe aus.
    • Zeichne das Optionsfeld in deiner Tabelle.

  2. Verknüpfung mit Zelle herstellen:

    • Rechtsklicke auf das Optionsfeld und wähle „Steuerelement formatieren“.
    • Gehe zum Reiter „Steuerelement“ und gib die Zelle ein, mit der das Optionsfeld verknüpft werden soll (z.B. die Zelle rechts daneben).

  3. Gruppierung der Optionsfelder:

    • Falls du mehrere Optionsfelder hast, die miteinander gruppiert werden sollen, wähle die gewünschten Optionsfelder aus, klicke mit der rechten Maustaste und wähle „Gruppieren“.

  4. Formeln zur Berechnung nutzen:

    • Nutze die verknüpfte Zelle in einer Formel, um beispielsweise den Gesamtpreis zu berechnen. Eine mögliche Formel könnte =SUMMEWENN(A1:A10;1;B1:B10) sein, wobei A1:A10 die verknüpften Zellen und B1:B10 die Mietpreise sind.

Häufige Fehler und Lösungen

  • Problem: Optionsfeld reagiert nicht.

    • Lösung: Stelle sicher, dass die Zelle korrekt verknüpft ist. Überprüfe die Einstellungen im „Steuerelement formatieren“.

  • Problem: Mehrere Optionsfelder sind gleichzeitig auswählbar.

    • Lösung: Achte darauf, die Optionsfelder in Gruppen zu organisieren. Nutze die Gruppierungsfunktion, um sicherzustellen, dass nur eines ausgewählt werden kann.

Alternative Methoden

Wenn die Nutzung von Optionsfeldern kompliziert erscheint, kannst du auch CheckBoxen in Excel verwenden. Diese ermöglichen es, mehrere Auswahlmöglichkeiten gleichzeitig zu treffen. Auch hier kannst du Zellen verknüpfen und die Auswahl in Berechnungen einbeziehen.

  1. Füge eine CheckBox wie bei den Optionsfeldern ein.
  2. Verknüpfe die CheckBoxen mit einer Zelle und nutze SUMMEWENN oder ähnliche Formeln, um den Gesamtpreis zu berechnen.

Praktische Beispiele

  • Beispiel 1: Du hast eine Excel-Tabelle mit verschiedenen Räumen. Für jeden Raum erstellst du ein Optionsfeld, das in einer Zelle den Wert 1 (ausgewählt) oder 0 (nicht ausgewählt) hinterlegt. Mit der Formel =SUMME(A1:A10) kannst du die Gesamtzahl der ausgewählten Räume zählen.

  • Beispiel 2: Berechne den Gesamtpreis für die ausgewählten Räume, indem du die Mietpreise in einer weiteren Spalte hast und die Formel =SUMMEWENN(B1:B10;1;C1:C10) verwendest, wobei B die Zellen mit den Optionsfeldern und C die Mietpreise sind.

Tipps für Profis

  • Automatisierung: Nutze ein VBA-Makro, um die Verknüpfung von mehreren Optionsfeldern zu automatisieren, was den Prozess erheblich beschleunigt.

    Option Explicit
Public Sub Main()
  Dim shpObject As Shape
  On Error GoTo Fin
  With ThisWorkbook.Worksheets("Tabelle1")
      For Each shpObject In .Shapes
          If Left(shpObject.Name, 5) = "Optio" Then
              shpObject.ControlFormat.LinkedCell = shpObject.TopLeftCell.Offset(0, 1).Address
          End If
      Next shpObject
  End With
Fin:
  If Err.Number <> 0 Then MsgBox "Error: " & Err.Number & " " & Err.Description
End Sub

  • Kombination von Steuerelementen: Experimentiere mit der Kombination von Optionsfeldern und CheckBoxen, um komplexere Auswahlmöglichkeiten zu schaffen.

FAQ: Häufige Fragen

1. Wie viele Optionsfelder kann ich in Excel verwenden? Du kannst theoretisch so viele Optionsfelder einfügen, wie du benötigst. Beachte jedoch, dass die Übersichtlichkeit leidet, wenn du zu viele Felder verwendest.

2. Kann ich die Darstellung der Optionsfelder ändern? Ja, du kannst die Größe und das Design der Optionsfelder anpassen, indem du sie auswählst und die Formatierungsoptionen im Kontextmenü nutzt.

3. Was ist der Unterschied zwischen Optionsfeldern und CheckBoxen? Optionsfelder erlauben nur eine Auswahl unter mehreren Optionen, während CheckBoxen mehrere Auswahlmöglichkeiten erlauben.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige