Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1776to1780
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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

307 Forumthreads zu ähnlichen Themen

Indirekt-Formel mit Wenn-Funktion?
Ingrid

Hallo, hab noch ein Problem...
Gibts auch die Möglichkeit diese Indirekt-Formel (wie schon in "Auto-Ausfüllen: Zelle gleich - anderes Tabellenblatt" besprochen) mit einer Wenn-Funktion zu versehen?
=INDIREKT("'" &ZEILE(D1) &"'!B16")
Wenn B16="" Dann C16
LG
Ingrid
11.09.2008 14:37:28
Thread-ID: 1009130
5 Beiträge
Anzeige
Verschachtelungen mit Wenn-Funktionen
Gießbach

Hallo Zusammen,
habe ein Problem:
Und zwar versuche ich gerade eine Berechnung unserer Frachtkosten bei einem Spediteur zu erstellen. Ich habe eine Matrix mit in Spalte A angegebenen Gewichten und in den Spalten B bis I die Kosten für das jeweilige Gewicht von/bis. Dazu sind die Preiss...
11.05.2009 15:50:07
Thread-ID: 1074386
4 Beiträge
Grafik mit Zelle verknüpfen
Frank

Hallo Zusammen!
Ich habe in einer Tabelle Mannschaften stehen, denen würde ich gern ein Bild (Grafik) in die Nachbarzelle zuweisen. Wie kann ich aber nun erreichen, dass wenn die Tabelle sortiert wird auch die Grafik mit sortiert wird? Ich hoffe dass ich mich einigermaßen verständlich ausge...
30.07.2009 14:45:45
Thread-ID: 1092540
3 Beiträge
Anzeige
Funktion "Wenn" mit mehreren Argumenten
Andreas

Hallo zusammen,
ich suche die verschachtelte Wennfunktion die mir hilft bei z.B.:
Wenn Zelle A1 = Europa, dann kalkuliere B1*C1
Wenn Zelle A1 = Asien, dann kalkuliere B2*C2 usw. mit mehreren Argumenten.
z.B. =wenn (A1="Europa";B1*C1), wenn(A1="Asien";B2*C2), wenn(A1 = "Afrika";B...
19.11.2009 16:08:12
Thread-ID: 1118694
9 Beiträge
Register/Tabellenblatt in Formel einbinden
Tobias

Hallo miteinander
In einem xls-sheet habe ich Verknüpfungen auf Register gemacht (z.B. =Tabelle3!C9+Tabelle5!A11).
Habe im laufe der Zeit ein neues Register mit einem neuen Tabellenblatt eingefügen.
Besteht die Möglichkeit die Formel so zu automatisieren, damit sie mit dem neuen Tab...
22.02.2010 14:09:38
Thread-ID: 1140346
6 Beiträge
Koeffizienten in Formel einbinden
Kurt

Hallo Forum,
ich wende mich an Euch mit folgender Bitte.
Ich habe eine Formel in Spalte B. Diese Formel hat als EIngangsvariable die Werte der Spalte A.
Die Koeffizienten stehen in den Zeilen 1 bis 4 (a,b,c,d).
Ich suche nun einen Weg (Makro), die Koeffizienten per Makro in ein...
28.03.2010 22:06:00
Thread-ID: 1148981
3 Beiträge
Auswahl Dropdown mit Zellen verknüpfen
Frank

N'Abend
Kurze Fragen:
1. - Wie stelle ich es an das im Dropdown die hinterlegten Werte die zur Auswahl stehen, bei Auswahl AA2 die nebenstehenden Werte in den Zellen rechts davon angezeigt werden? ( siehe Bespieltabelle )
2. - Wie kann das ganze Prozedere in einem Bezeichnungsfeld:...
12.04.2010 11:21:48
Thread-ID: 1151119
3 Beiträge
Inhalt einer Zelle mit Kontrollkästchen löschen
Ralf

Hallo miteinander,
Ich habe ein wahrscheinlich leicht zu lösendes Problem.
Wenn der Wert eines Kontrollkästchens "falsch" ist, soll der Inhalt der Zelle $H$14 gelöscht werden.
Ich komme beim besten Willen nicht auf den Code.
Vieleicht kann mir jemand weiterhelfen.
Vielen Dan...
01.07.2010 23:50:33
Thread-ID: 1165033
7 Beiträge
Anzeige

Links zu Excel-Dialogen

CheckBox OptionButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
6
3
2
6
8
5
2
2
6
18
3
4
2
2
4
7
4
8
3
6
1
6
5
5