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
1908to1912
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
1908to1912
1908to1912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn anderer Wert dann

Wenn anderer Wert dann
03.12.2022 12:14:11
wolfgang
Hallo zusammen,
ich habe folgende Makros:

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then ActiveSheet.Cells(12, 11) = "Frau"
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
End Sub


Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then ActiveSheet.Cells(12, 11) = "Herrn "
OptionButton1.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
End Sub


Private Sub OptionButton3_Click()
If OptionButton3.Value = True Then ActiveSheet.Cells(12, 11) = "Eheleute"
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton4.Value = False
End Sub


Private Sub OptionButton4_Click()
If OptionButton4.Value = True Then ActiveSheet.Cells(12, 11) = "Firma"
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
End Sub
wenn aber in K12 weder Frau, Herrn, Eheleute und Firma steht, sollen die Optinbutton alle deaktiviert sein.
mfg wolfgang

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ein Beispiel ...
03.12.2022 12:50:14
Dieter(Drummer)
Hallo Wolfgang,
hier ein Bespeilcode, den du ja auch noch anpassen kannst. Ist K12 leer, dann sind alle Buttons abgeschaltet.
Gruß, Dieter(Drummer)
Code im Modol:
  • 
Sub Leer()
If Tabelle1.Range("K12") = "" Then
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
End If
End Sub

    • AW: Ein Beispiel ...
    03.12.2022 18:54:36
    wolfgang
    Guten Abend,
    ich habe es Falsch beschrieben.
    Wenn in K12 nicht: weder Frau, Herrn, Eheleute und Firma steht, sondern ein anderer Text,
    dann soll das OptionsButton Butto auf False gestellt werden.
    mfg
    wolfgang
    Anzeige
    AW: Ein Beispiel ...
    03.12.2022 19:00:40
    onur 
    
Private Sub Worksheet_Change(ByVal Target As Range)
Dim t
If Target.Row  12 Or Target.Column  11 Then Exit Sub
t=Target.Text
If t  "Frau" And t  "Herrn" And t  "Eheleute" And  t  "Firma" Then
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
End If
End Sub

    AW: Ein Beispiel ...
    03.12.2022 19:20:06
    wolfgang
    Hallo Onur,
    habe dein Makro gerade getestet.
    OptionsButton1 bleibt auf True also schwarzer Punkt.
    mfg
    wolfgang
    AW: Ein Beispiel ...
    03.12.2022 19:44:54
    onur
    Du musst ja auch den Code ins Modul des entsprechenden Blattes kopieren.
    AW: Wenn anderer Wert dann
    03.12.2022 15:03:55
    onur 
    
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row  12 Or Target.Column  11 Then Exit Sub
If Target.Text = "" Then
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
End If
End Sub

    Anzeige
    AW: Wenn anderer Wert dann
    03.12.2022 19:16:30
    wolfgang
    Hallo onur,
    ich habe es jetzt so versucht:
    
Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then ActiveSheet.Cells(12, 11) = "Frau"
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
OptionButton1.Value = False
End Sub
    daher, es wird nach dem klicken das Optionsbutton deaktiviert.
    mfg
    wolfgang
    AW: Wenn anderer Wert dann
    03.12.2022 19:47:39
    Yal
    Hallo Wolfgang,
    mein Beitrag:
    
Private Sub OptionButton1_Click()
If OptionButton1.Value Then Umschalter 1
End Sub
Private Sub OptionButton2_Click()
If OptionButton2.Value Then Umschalter 2
End Sub
Private Sub OptionButton3_Click()
If OptionButton3.Value Then Umschalter 3
End Sub
Private Sub OptionButton4_Click()
If OptionButton4.Value Then Umschalter 4
End Sub
Private Function Umschalter(Elt As Integer)
Dim i As Integer
ActiveSheet.Cells(12, 11) = Split(" Frau Herrn Eheleute Firma")(Elt)
For i = 1 To 4
Me.Controls("OptionButton" & i) = (i = Elt)
Next
End Function
    Aber eigentlich solltest Du die OptBtn in einer Gruppe zusammenbringen können, was dazu führt, dass wenn ein OptBtn der Gruppe auf True geht, alle andere automatisch auf False gehen.
    VG
    Yal
    Anzeige
    AW: Wenn anderer Wert dann
    04.12.2022 10:58:30
    wolfgang
    Guten Morgen Yal,
    habe in der entsprechenden Sheet eingesetzt.
    Leider Fehlermeldung:
    "Fehler beim Kompilieren"
    Methode oder Datenobjekt nicht gefunden.
    blieb hier stehen: Controls("OptionButton" & i)
    mfg
    wolfgang
    AW: Wenn anderer Wert dann
    04.12.2022 11:22:09
    wolfgang
    Hallo,
    "OptBtn in einer Gruppe zusammenbringen"
    habe ich gemacht, gleiche Fehlermeldung !
    mfg
    wolfgang
    AW: Wenn anderer Wert dann
    04.12.2022 11:25:48
    onur
    Wenn die Optionbutton gruppiert sind, ist immer einer von Ihnen enabled, immer nur genau einer.
    Gemeint war...
    05.12.2022 12:00:16
    Yal
    ... wenn Du die OptBtn in einer Gruppe zusammenbringt, brauchst Du 90% bis 100% des Codings nicht mehr.
    Die Fehlermeldung kommt wahrscheinlich, weil es ein OptBtn im Blatt ist. Lass den Markorekorder laufen und schalte ein von diesen OptBtn an oder aus. Schau dann, was die Aufnahme sagt.
    VG
    Yal
    Anzeige
    du musst nich...
    04.12.2022 11:25:09
    Oberschlumpf
    Hi Wolfgang,
    ...bei schon so vielen Fehlversuchen eine Bsp-Datei mit Bsp-Daten, allem anderen, was erforderlich is, per Upload zeigen - aber es könnte sehr, sehr hilfreich sein.
    Ciao
    Thorsten
    Danke -)
    04.12.2022 11:57:19
    wolfgang
    Hallo Thorsten und die anderen Experten,
    ich habe die Datei von der Firma ist auch zu groß.
    Ich lasse es so wie ich bei mir getestet habe.
    
Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then ActiveSheet.Cells(12, 11) = "Frau"
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
OptionButton1.Value = False
End Sub
    Danke an ALLE !
    Schönen 2. Advent !
    mfg
    Wolfgang
    Anzeige
    AW: Danke -)
    04.12.2022 15:56:45
    Oberschlumpf
    Hi Wolfgang,
    a) Datei von Firma
    Du sollst ja auch BEISPIEL-Daten zeigen, also, alles an Originaldaten durch Bsp-Daten ersetzen
    b) Datei zu groß
    dann lösch doch alles in der Datei, was nicht notwendig ist, so dass Helfende dein Problem noch immer verstehen
    verwende z Bsp 7-ZIP, um die Bsp-Datei für den Upload noch mehr zu verkleinern
    ...aber na ja, du scheinst ja nun doch schon zufrieden zu sein...
    Ciao
    Thorsten
    AW: Danke -)
    04.12.2022 17:36:19
    Wolfgang
    Danke !
    Bin zufrieden !
    Schönen 2 . Advent noch.
    Mit freundlichen Grüßen
    Wolfgang

    321 Forumthreads zu ähnlichen Themen

    Anzahl unterschiedl. Werte in Spalte zählen
    Jakob

    Hallo,
    ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
    Meine Problem:
    Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
    14.08.2008 18:16:11
    Thread-ID: 1001934
    2 Beiträge
    Anzeige
    Letzen wert in Zeile(nicht Spalte)
    hary

    Nabend alle miteinander
    In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
    Case Is = Cells...
    28.08.2008 21:25:00
    Thread-ID: 1005592
    5 Beiträge
    von Datum bis Datum suchen und Werte in die Spalte
    Datum

    Hallo liebe Excel-Könner,
    ich habe folgendes Problem und finde keine Lösung.
    Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
    Ich hoffe Ihr könnt mir helfen!
    ...
    07.09.2008 09:31:20
    Thread-ID: 1007931
    8 Beiträge
    Anzeige
    Werte löschen beim Eintrag in andere Spalte ?
    Selma

    Hallo Leute,
    wie kann ich folgendes ab Zeile 5 für aktive Zeile über VBA erreichen:
    1. Wird der Wert in aktive Zeile in Spalte H eingetragen, dann sollen die Werte in Zellen der Spalte D und E gelöscht werden.
    2. Wird der Wert in aktive Zeile in Splate D oder E eingetragen, dann sol...
    12.10.2008 17:05:00
    Thread-ID: 1015877
    5 Beiträge
    TextBox Werte in Spalte Q ersetzen ?
    Selma

    Hallo Leute,
    ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
    Ersetzt sollen nur die vorhandene W...
    13.10.2008 15:42:00
    Thread-ID: 1016083
    3 Beiträge
    Wenn Eintrag in ListBoxspalte dann Eintrag in lbl
    Josef

    Guten Morgen!
    In eine mehrspaltige ListBox werden eine Menge Datensätze eingelesen.
    Ich möchte nun folgendes erreichen:
    Wenn ich einen Datensatz in der ListBox markiere oder anklicke und wenn jetzt z.B. in der 2.Spalte in der ListBox ein "J" steht, dann soll ein vordefinierter Text...
    29.10.2008 07:57:42
    Thread-ID: 1020127
    3 Beiträge
    Formel wenn dann sonst ...
    Uwe

    Hallo, Gemeinde ..
    Mir stellt sich folgende Herausforderung:
    ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
    Wie bekomme ich eine Formel hin, die das berechnet, wenn
    - der A...
    31.10.2008 11:20:00
    Thread-ID: 1020821
    10 Beiträge
    Zelleninhalt suchen wenn gefunden dann...
    Ernst

    Hallo Fachleute,
    ich möchte mit einem Makro eine Tabelle (möglichst nur einen vorher definierten Bereich) auf bestimmte Zellinhalte durchsuchen und wenn es einen Inhalt findet soll es dort eine Zeile einfügen und von mir im Makro definierten Text einfügen.
    Nähere Anleitung in der Datei....
    16.11.2008 14:44:22
    Thread-ID: 1024902
    7 Beiträge
    Anzeige

    Links zu Excel-Dialogen

    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
    1
    8
    4
    7
    4
    4
    2
    2
    9
    6
    4
    2
    1
    2
    4
    4
    5
    2
    33
    5
    10
    1
    3
    2
    2