Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
364to368
364to368
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingung für ausgewählten Wert?

Forumthread: Bedingung für ausgewählten Wert?

Bedingung für ausgewählten Wert?
21.01.2004 10:15:09
Florian
Hallo
ich habe eine Combobox und wähle damit einen wert aus einer Tabelle aus.
Die Bedingung für den Wert lautet:
If (ComboBox1.Value < 1600) Then
...
hier funktioniert es wunderbar wenn ich den Wert aus der Tabelle auswähle.
Wenn ich jetzt aber einen Wert in die Box schreibe, dann funktioniert die Bedingung oben nicht.
Ich habe auch schon ausprobiert:
If (ComboBox1.Text < 1600) Then
...
Hier geht es auch nicht.
Vielleicht kann mir jemand helfen.
Gruß Flo
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Bedingung für ausgewählten Wert?
21.01.2004 10:17:32
Matthias G
Hallo Flo,
ComboBox hat primär erstmal Text als Inhalt.
versuche es mit
If Val(ComboBox1.Value) < 1600 Then...
Gruß,
Matthias
AW: Bedingung für ausgewählten Wert?
21.01.2004 10:37:39
Florian
Nein, er übernimmt mir immer noch nicht den Wert den ich händisch eingegeben habe

Gruß Flo
AW: Bedingung für ausgewählten Wert?
21.01.2004 10:43:10
Matthias G
Hallo Flo,
poste doch mal etwas mehr Code.
Was heisst: "er übernimmt mir immer noch nicht den Wert den ich händisch eingegeben habe"?
Matthias
Anzeige
AW: Bedingung für ausgewählten Wert?
21.01.2004 10:52:43
Florian 

Private Sub ComboBox1_Click()
On Error Resume Next
Select Case ComboBox1.ListIndex
Case 0: Label1 = "4 Bänder enthalten"
Case 1: Label1 = "4 Bänder enthalten" // hiermit wähle ich aus der Tabelle Werte aus
Case Else: Label1 = "Information"
End Select
If Val(ComboBox1.value) < 1600 Then //nun will ich auch wenn ich den Wert nicht aus
Label4.Caption = "1 Fenster"    //der Tabelle auswähle, sondern den wert selbst
Else: Label4.Caption = "2 Fenster"  //eintrage, dass die Bedingung noch gilt und die
End If                              //ausgabe "1 Fenster" bei einem Wert von z.B. 1000
//funktioniert.
End Sub

Gruß Flo
Anzeige
AW: Bedingung für ausgewählten Wert?
21.01.2004 11:05:07
Matthias G
Hallo Flo,
vielleicht liegt es am Ereignis ComboBox1_Click?
nimm doch besser ComboBox1_Exit, das Click-Ereignis wird - glaube ich - nicht ausgelöst, wenn du mit der Tastatur etwas einträgst.
Gruß,
Matthias
AW: Bedingung für ausgewählten Wert?
21.01.2004 11:22:05
Florian
Ah jetzt hab ichs,
man muss den ausdruck
Private Sub ComboBox1_Change()
statt
Private Sub ComboBox1_Click() oder exit verwenden dann funktionierts
Trotzdem danke
Gruß Flo
Anzeige
AW: ok alles klar! - oT
21.01.2004 11:23:40
Matthias G
-
AW: Bedingung für ausgewählten Wert?
21.01.2004 11:15:35
Florian 

Private Sub ComboBox1_Click()
On Error Resume Next
Select Case ComboBox1.ListIndex
Case 0: Label1 = "4 Bänder enthalten"
Case 1: Label1 = "4 Bänder enthalten" // hiermit wähle ich aus der Tabelle Werte aus
Case Else: Label1 = "Information"
End Select
If Val(ComboBox1.value) < 1600 Then //nun will ich auch wenn ich den Wert nicht aus
Label4.Caption = "1 Fenster"    //der Tabelle auswähle, sondern den wert selbst
Else: Label4.Caption = "2 Fenster"  //eintrage, dass die Bedingung noch gilt und die
End If                              //ausgabe "1 Fenster" bei einem Wert von z.B. 1000
//funktioniert.
End Sub

Gruß Flo
Anzeige
;

Forumthreads zu verwandten Themen

Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
Anzeige
Code sorgt für 99%CPU Last und endet nicht?!?
Lauren

Hallo zusammen
folgender code bewirkt eine Art Endlosschleife jemand ne Idee woran das liegen könnte, übersehe ich hier etwas?!?!
Range("M2").Select ActiveCell.FormulaR1C1 = "=IF(COUNTIF(C[-12],RC[-12])>=3,RC[-3]*RC[-9],"""")" Selection.AutoFill Destination:=Range("M2:M" & Rang...
12.08.2008 14:04:00
Thread-ID: 1001198
10 Beiträge
Syntax für Summe aus mehreren Blättern
friedolin

Hallo Forum,
ich möchte aus mehreren Blättern, die da heißen " 01.01. , 02.01. 03.01. " usw. die Summe der Spalte D40 (immer gleich) in ein neues Blatt ermitteln. Habe schon einiges probiert, aber die Syntax macht Probleme.
diese Formel funktioniert nicht! =Summe(01.01. : 31.01. !D40...
18.08.2008 14:55:54
Thread-ID: 1002612
7 Beiträge
Anzeige
MsgBox Code ausführung
Hanses

Hallo,
ich versuche über eine MsgBox eine Auswahl zu treffen.
Leider funktioniert das ganze nur wenn ich ja anklicke.
Habe eine MsgBox mit Ja/Nein Schaltflächen.
Stehe auf dem Schlauch wo der Fehler liegt.
Der Code sieht so aus:
Private Sub CommandButton6_Click() Dim i...
25.08.2008 18:40:31
Thread-ID: 1004549
9 Beiträge
MsgBox Code ausführung
Hanses

Hallo,
ich versuche über eine MsgBox eine Auswahl zu treffen.
Leider funktioniert das ganze nur wenn ich ja anklicke.
Habe eine MsgBox mit Ja/Nein Schaltflächen.
Stehe auf dem Schlauch wo der Fehler liegt.
Der Code sieht so aus:
Private Sub CommandButton6_Click() Dim i...
25.08.2008 18:42:06
Thread-ID: 1004550
2 Beiträge
Worksheet über Codename ein/ausblenden
Reinhard

Hallo Wissende,
geht es auch direkt ein Worksheet anhand des Codenamen ein/auszublenden?
Eine Schleife kriege ich hin, die alle Blätter durchläuft und wenn der gesuchte Codename gefunden ist dieses Blatt/Worksheet aus/einblendet.
Meine Frage ist also, geht das auch ohne Schleife?
28.08.2008 16:28:02
Thread-ID: 1005518
6 Beiträge
Präfix:ausgefüllter Text
WF

Moin Leute,
=ZELLE("Präfix";A1)
ergibt als Ergebnis: ' bei linksbündigem, '' bei rechtsbündigem, ^ bei zentriertem und \ bei ausgefülltem Text (aus der Excel-Hilfe).
Was ist "ausgefüllter Text" ?
Salut WF
29.08.2008 10:38:00
Thread-ID: 1005724
4 Beiträge
Code-Ausführung aussetzen
Peter

Hallo Excel-Experten,
ich habe einen an Tabelle1 hängenden Code mit einer Worksheet_Change - Prozedur, die eine Anweisung ausführt, wenn in Tabelle1 in einem definierten Bereich was geändert wird. So weit so gut, wenn diese Änderungen manuell ausführt wird.
Es kommt aber vor , dass in...
31.08.2008 12:59:00
Thread-ID: 1006175
4 Beiträge
Code für mehrere Labels
otto

Guten Morgen,
ich habe eine UF mit 180 Labels. Bei Klick auf diese Labels soll immer das gleiche Makro namens "suchen" ausgeührt werden.
Wie kann ich das zusammenfassen, dass ich nicht 180x den code reinschreiben muss?
Der Suchbegriff muss das Caption des jeweilig angeklickten Label...
03.09.2008 06:48:06
Thread-ID: 1006994
5 Beiträge
2. Auswahl in Makro hinzufügen
Josef_T

Guten Tag,
ist es möglich, in unten stehendem Script, eine zweite Meldung einzubauen und zwar so, das eine Auswahl möglich ist, zwischen:
"Mängel behoben" oder "Gerät defekt".
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Co...
08.09.2008 18:16:54
Thread-ID: 1008231
3 Beiträge
Anzeige
Sicherungskopie über Makrocode..
Ernst

Guten Morgen !
Habe wieder mal wieder ein Problem wo ich eure Hilfe benötigen würde...
Dieses Makro wird über eine Befehlsschaltfläche aufgerufen (Alle Einräge löschen) ich hätte gerne das eine Sicherungskopie erstellt wird bevor alle Einträge gelöscht werden und zwar in einem Ordner de...
17.09.2008 08:09:00
Thread-ID: 1010216
6 Beiträge
Eindeutigkeitsprüfung aus 2 Zellen
Kock

Hallo zusammen,
ich habe folgendes Problem, aus einem Datenblatt soll eine Zeile ausgelesen werden und der Inhalt in eine Maske angezeigt werden. Die Eindeutigkeit des Datensatzes ergibt sich aus der 1 und 2 Zelle. Mit einer Zelle ist es kein Problem, da wird die Maske gefüllt. Jetzt bräuch...
18.09.2008 11:27:58
Thread-ID: 1010675
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige