Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1136to1140
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
1136to1140
1136to1140
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Wert in ComboBox2, dann Eintrag in TB

Wenn Wert in ComboBox2, dann Eintrag in TB
Josef
Hallo!
Ich würde bitte eine VBA Lösung suchen.
Wenn ein Wert in der ComboBox2 in einer UF aktiviert wird, dann soll dieser Wert in der Tabelle2!B2:B107 gesucht werden und der in der Spalte C danebenstehende Wert soll in die TextBox1 eingelesen werden.
If ComboBox2.Text = Tabelle2!B2:B107 Then ?
TextBox1.Text= "?"
Danke
Josef

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Wenn Wert in ComboBox2, dann Eintrag in TB
09.02.2010 10:10:30
hary
Hallo
Code in den Code der Cbox. 

Private Sub ComboBox2_Change()
Dim zeile As Long
With Worksheets("Tabelle2")
For zeile = 2 To 107
If .Cells(zeile, 2) = ComboBox2.Value Then
UserForm1.TextBox1 = .Cells(zeile, 3) ' Name der Form anpassen
End If
Next
End With
End Sub

gruss hary
AW: Wenn Wert in ComboBox2, dann Eintrag in TB
09.02.2010 10:25:06
Josef
Hallo Hary!
Danke für Deine Antwort und Deine Hilfe. Funktioniert bereits.
Josef
AW: Wenn Wert in ComboBox2, dann Eintrag in TB
09.02.2010 10:19:53
JoWE
Hallo Josef,
da nutzt Du das Change_Ereignis der Combobox: 
Private Sub ComboBox1_Change()
With Sheets("Tabelle2").Range("B2:B107")
Set c = .Find(Me.ComboBox1.Value, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Me.TextBox1 = Sheets("Tabelle2").Cells(c.Row, 2)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address  firstAddress
End If
End With
End Sub

Gruß
Jochen
Anzeige

369 Forumthreads zu ähnlichen 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
Bei Eintrag in Zelle Eintrag i. anderer Zelle prüf
Josef

Guten Morgen!
Wenn ich z. B. in der Spalte K ein Datum eintrage, soll in der Spalte N in der gleichen Zeile folgendes geprüft werden:
Ist ein Wert in der Spalte N vorhanden dann soll dieser gelöscht und die Zelle rot gefärbt werden.
Wenn ich jedoch ein Datum in der Spalte K lösche,...
26.08.2008 06:17:08
Thread-ID: 1004645
3 Beiträge
Wenn in Zelle folgender String, dann
mehmet

Hallo Forum,
In Spalte G4:G92 sind viele kodierte Zeichenfolgen.
Fest steht aber, dass diese zu erkennen sind, z.B.
in Zelle G4: METAR EKAH 052150Z AUTO 12005KT 9999NDV DZ OVC080/// 15/14 Q1005=
in Zelle G5: METAR ESSA 051940Z 20006KT CAVOK 11/10 Q1006 NOSIG=
und so weiter.....
06.09.2008 01:08:00
Thread-ID: 1007801
16 Beiträge
Anzeige
Wenn Wert weniger, in anderer Zelle um d.Wert erh.
Josef

Guten Morgen!
Ich habe z.B. in der Zelle A1 den Wert 5 stehen. Wird dieser Wert z.B. um die Zahl 3 verringert, dann soll der vorhandene Wert in der Zelle B1 um die Zahl 3 erhöht werden. Wie würde hier bitte eine Formellösung dafür lauten?
Danke
Josef
09.09.2008 05:49:00
Thread-ID: 1008272
2 Beiträge
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Wenn 1 dann Wert aus Überschrift
Kendra

Hallo,
ich habe folgendes Problem, zu dem mir einfach keine Lösung einfallen will:
Meine Matrix sieht in etwa so aus:
______Peter_Hans_Susi_Karl_Klaus
Auto___0____1____0___2___0
Haus___1____0____0___0___2
Urlaub__0____0____1___0___2
Hobby__2____0____0___1___0...
23.09.2008 14:03:57
Thread-ID: 1011726
7 Beiträge
Wert nach Änderung einer Zelle schreiben
Markus

Hallo Leute,
ich werde Excel nie wirklich verstehen. Habe wieder eine Frage: Bei Veränderung des Wertes einer Zelle möchte ich einen Wert in eine andere Zelle schreiben (klingt einfach - gelingt mir nicht!):
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrorHandle...
01.10.2008 18:26:00
Thread-ID: 1013729
31 Beiträge
Wert bedingt in anderer Zelle darstellen
sascha76er

Hallo,
ich muss leider schon wieder das Forum mit meinen Fragen nerven.
Ich möchte gerne den Wert einer Zelle welcher in der Spalte W steht in einer Zelle in der Spalte D darstellen, aber nur wenn der entsprechende Wert mi WE beginnt.
Geht das?
Gruß
Sascha
08.10.2008 15:16:49
Thread-ID: 1015075
5 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox TextBox

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
2
3
2
15
2
1
5
6
30
4
2
6
2
2
7
9
5
2
2
11
6
2
3
12
2