Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1808to1812
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
1808to1812
1808to1812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

von ComboBox in Text/ComboBox

von ComboBox in Text/ComboBox
01.02.2021 17:02:25
ComboBox
Hallo,
ich finde leider nichts passendes im Archiv.
Mittels diesem Code lade ich die ComboBox1: 

Dim xRow&
xRow = wksTB1.[A65536].End(xlUp).Row
With ComboBox1
.Clear
.RowSource = "Tabelle1!A3:D" & xRow
.ColumnCount = 4
.ColumnWidths = "50;50;40;40"
.Text = "neue Buchung hinzufügen"
End With
Wenn ich jetzt einen Eintrag in ComboBox1 auswähle, möchte ich den gewählten Datensatz in die TextBox/ComboBox übertragen.
Ich verwende folgenden Code, der aber nicht funktioniert: 

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then
Label37.Visible = True
Label37.Caption = "kein Eintrag ausgewählt"
ComboBox1.Value = "neue Buchung hinzufügen"
ElseIf ComboBox1.ListIndex > -1 Then
ComboBox1.Value = CDate(ComboBox1.Value)
''    TextBox1.Value = CDate(ComboBox1.Column(0, ComboBox1.ListIndex + 1))
''    ComboBox2.Value = ComboBox1.Column(1, ComboBox1.ListIndex + 1)
''    ComboBox3.Value = Format(ComboBox1.Column(2, ComboBox1.ListIndex + 1), "#0.00")
''    TextBox4.Value = ComboBox1.Column(3, ComboBox1.ListIndex + 1)
''End If
With Me
TextBox1 = (Cells(ComboBox1.ListIndex + 1, 1))
ComboBox2 = Cells(ComboBox1.ListIndex + 1, 2)
ComboBox3 = Format(Cells(ComboBox1.ListIndex + 1, 3), "#0.00")
TextBox4 = Cells(ComboBox1.ListIndex + 1, 4)
End With
End If
End Sub
Was mache ich hier bitte falsch?
Gruss
Peter

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: von ComboBox in Text/ComboBox
01.02.2021 17:53:06
ComboBox
Hallo Peter,
nicht funktioniert ist ein weites Feld. Was passiert, was nicht, Fehlermeldung ...?
Gruß
Nepumuk
AW: von ComboBox in Text/ComboBox
01.02.2021 17:54:54
ComboBox
Hallo Nepumuk,
es wird nicht die richtige Zeile der ComboBox ausgewählt.
Es ist immer die gleiche Zeile.
Gruss
Peter
AW: von ComboBox in Text/ComboBox
01.02.2021 18:03:21
ComboBox
Hallo Peter,
der ListIndex des 1. Eintrags ist 0. Dein RowSource beginnt in Zeile 3. Du musst also zum ListIndex 3 addieren um in die richtige Datenzeile zu kommen. Du addierst nur 1.
Gruß
Nepumuk
AW: von ComboBox in Text/ComboBox
03.02.2021 08:42:00
ComboBox
Hallo Nepumuk,
besten Dank für Deine Hilfe. Habe die Sache jetzt wie folgt gelöst:

'Auswahl bei Änderung
Private Sub ComboBox1_fuellen()
Dim iRow As Integer
Dim wks As Worksheet
Set wks = Worksheets("Tabelle1")
With ComboBox1
.Clear
.ColumnCount = 4
.ColumnWidths = "4,5 cm; 2,5 cm; 2,5 cm; 2,0 cm"
.AddItem "neue Buchung hinzufügen"
For iRow = 2 To wks.Range("A65536").End(xlUp).Row
.AddItem wks.Cells(iRow, 1).Value
.List(.ListCount - 1, 1) = wks.Cells(iRow, 2).Value
.List(.ListCount - 1, 2) = Format(wks.Cells(iRow, 3).Value, "#0.00")
.List(.ListCount - 1, 3) = wks.Cells(iRow, 4).Value
Next
.ListIndex = 0 '"neue Buchung hinzufügen"
End With
End Sub
und für das Change-Ereignis: 

'für Änderung Buchungen auswählen
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > 1 Then
Label37.Caption = "Änderung durchführen oder abbrechen!"
TextBox1.Value = ComboBox1.List(ComboBox1.ListIndex, 0)     'Werte aus ComboBox
ComboBox2.Value = ComboBox1.List(ComboBox1.ListIndex, 1)    'Werte aus ComboBox
ComboBox3.Value = ComboBox1.List(ComboBox1.ListIndex, 2)    'Werte aus ComboBox
TextBox4.Value = ComboBox1.List(ComboBox1.ListIndex, 3)     'Werte aus ComboBox
CommandButton8.Visible = True
CommandButton28.Visible = False
Else
Label37.Caption = "für neue Buchung bitte u. a. Felder ausfüllen - Button ""Buchen"" drü _
cken oder" _
& vbLf & "bitte Buchung auswählen, Daten ändern - Button Andern drücken oder" _
& vbLf & "Abbruch bzw. Formular beenden!"
ComboBox1.Value = "neue Buchung hinzufügen"
TextBox1.Value = ""
ComboBox2.Value = ""
ComboBox3.Value = ""
TextBox4.Value = ""
CommandButton28.Visible = True
CommandButton8.Visible = False
TextBox1.SetFocus
End If
End Sub
Es klappt jetzt einwandfrei. Ich glaube dass hiermit auch Deine Bedenken gelöst sind.
Nochmals vielen Dank.
Gruss
Peter
Anzeige
AW: von ComboBox in Text/ComboBox
01.02.2021 18:02:13
ComboBox
Hi
1. lass das Combobox1.value = egalwas weg
was soll das?
wenn man das Change.Event verwendet, dann sollte man keine Änderungen an dem jeweiligen Steuerelement vornehmen, ansonsten landet man schnell in einer Endlosschleife
2. statt Change verwende besser CLICK oder AfterUpdate oder sowas um auf anwendereingaben zu reagieren.
Change reagiert meistens "zu oft"
3. wenn du die Werte aus Combobox in weitere Steuerelemente übertragen willst, dann entweder aus Liste der Box selbst, dann musst du aber beachten dass die Werte in der Liste Text sind: 
Textbox1.Value = Combobox1.List(Combobox1.ListIndex, 0)
Combobox2.Value = Combobox1.List(Combobox1.ListIndex, 1)
usw
wenn du die Werte aus der Exceltabelle lesen willst, musst du Zeilen- und Spaltennummern auch korrekt umrechnen (in deinem Fall + 3) und ggf das Tabellenblatt mit angeben: 
Textbox1.Value = Sheets("Tabelle1").Cells(Combobx1.ListIndex + 3, 1).Value

oder liest den Zellbereich aus der RowSource an, dann kannst du als Korrekturwert immer +1 nehmen unabhängig von der Postion im Tabellenblatt: 
Textbox1.Value = Range(Combobx1.RowSource).Cells(Combobox1.ListIndex + 1, 1)
wenn du die Zellwerte nicht mit .Value sondern mit .Text ausliest, bekommst du sie dann auch so wie sie formatiert in der Zelle stehen, was bei Datum/Uhrzeit/Währung u. das nachformatieren mit FORMAT erspart.
Gruß Daniel
Anzeige
AW: von ComboBox in Text/ComboBox erledigt
03.02.2021 08:40:40
ComboBox
Hallo Daniel,
besten Dank für Deine Hilfe. Habe die Sache jetzt wie folgt gelöst:

'Auswahl bei Änderung
Private Sub ComboBox1_fuellen()
Dim iRow As Integer
Dim wks As Worksheet
Set wks = Worksheets("Tabelle1")
With ComboBox1
.Clear
.ColumnCount = 4
.ColumnWidths = "4,5 cm; 2,5 cm; 2,5 cm; 2,0 cm"
.AddItem "neue Buchung hinzufügen"
For iRow = 2 To wks.Range("A65536").End(xlUp).Row
.AddItem wks.Cells(iRow, 1).Value
.List(.ListCount - 1, 1) = wks.Cells(iRow, 2).Value
.List(.ListCount - 1, 2) = Format(wks.Cells(iRow, 3).Value, "#0.00")
.List(.ListCount - 1, 3) = wks.Cells(iRow, 4).Value
Next
.ListIndex = 0 '"neue Buchung hinzufügen"
End With
End Sub
und für das Change-Ereignis: 

'für Änderung Buchungen auswählen
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > 1 Then
Label37.Caption = "Änderung durchführen oder abbrechen!"
TextBox1.Value = ComboBox1.List(ComboBox1.ListIndex, 0)     'Werte aus ComboBox
ComboBox2.Value = ComboBox1.List(ComboBox1.ListIndex, 1)    'Werte aus ComboBox
ComboBox3.Value = ComboBox1.List(ComboBox1.ListIndex, 2)    'Werte aus ComboBox
TextBox4.Value = ComboBox1.List(ComboBox1.ListIndex, 3)     'Werte aus ComboBox
CommandButton8.Visible = True
CommandButton28.Visible = False
Else
Label37.Caption = "für neue Buchung bitte u. a. Felder ausfüllen - Button ""Buchen"" drü _
cken oder" _
& vbLf & "bitte Buchung auswählen, Daten ändern - Button Andern drücken oder" _
& vbLf & "Abbruch bzw. Formular beenden!"
ComboBox1.Value = "neue Buchung hinzufügen"
TextBox1.Value = ""
ComboBox2.Value = ""
ComboBox3.Value = ""
TextBox4.Value = ""
CommandButton28.Visible = True
CommandButton8.Visible = False
TextBox1.SetFocus
End If
End Sub
Es klappt jetzt einwandfrei. Ich glaube dass hiermit auch Deine Bedenken gelöst sind.
Nochmals vielen Dank.
Gruss
Peter
Anzeige

179 Forumthreads zu ähnlichen Themen

Suchfunktion - TextBox kein Text sondern Datum
Frank

Hallo Liebe Excelgemeinde!!!
In einer UserForm befindet sich folgender Code um bestimmte Einträge zu suchen. Da in der TextBox1 aber kein Text sondern ein Datum steht funktioniert dies nicht, da kommt die Meldung " Suchbegriff wurde nicht gefunden".
Was muss ich ändern, damit auch nach...
21.08.2008 15:35:00
Thread-ID: 1003541
4 Beiträge
Anzeige
Textbox in abhängigkeit von "DropdownValue" zeigen
"DropdownValue"

Hallo,
hab da mal ein kleines Problem!
Da ich einfach ein Anfänger bin komm ich nicht auf die wahrscheinlich simple Lösung =(
Möchte einfach nur 5 Textefelder in dem Sheet, die jeweils nur sichtbar sind wenn ein bestimmter Wert in ComboBox2 erfüllt ist.
Beispiel: In ComboBox2 wi...
30.10.2008 16:07:48
Thread-ID: 1020654
3 Beiträge
Textboxinhalt in html konvertieren?
Timo

Hallo,
gibt es eine einfache Möglichkeit den Textboxinhalt in html zu konvertieren?
Ich hab in einer Userform ein Textbox welche als Mailinhalt dient! Wenn ich nun mit
.HTMLBody = Mailtext.TextBox1
die Mail versende wird die Mail ohne Zeilenumbrüche und Schriftfarbe geschrieben!...
17.11.2008 17:59:00
Thread-ID: 1025334
8 Beiträge
Anzeige
Von Textbox 27 Werte in Textbox 29
Heinz

Guten morgen Leute
Im unteren Code kann ich in Textbox27 eine 5 stellige Zahl eingeben,der mir dann im Worksheets("Artikeln") in Spalte A den übereinstimmenden Wert sucht.
Nun möchte ich aber das mir der Wert von Spalte B in Textbox29 anzeigt.
Z.B. Gebe in Textbox27 12345 ein, und...
09.01.2009 07:31:11
Thread-ID: 1038086
3 Beiträge
TextBox von Aktivierreihenfolge ausschliesen
Aktivierreihenfolge

Mahlzeit Leute
Eine Frage: Wie kann man in einer UF TextBoxen & CheckBoxen von der Aktivierungs Reihenfolge ausschliessen ?
Also das man diese Boxen mit der Eingabetaste überspringt ? Habe Locked auf True gestellt.
Gruß
Heinz
19.01.2009 12:36:00
Thread-ID: 1041374
7 Beiträge
Inhalt von Combobox nach Textbox übertragen
Combobox

Hallo Excel Freunde
Wer kann mal schauen?
Ich möchte das der Inhalt meiner combobox1 automatisch in die Textbox1 übetragen wird.
Mein Stand der bisherigen Bearbeitung: (Geht aber leider nicht. Ich nehme an ein falsches Ereignis?)
Private Sub TextBox37_Change() UserForm23.Frame...
22.01.2009 10:19:00
Thread-ID: 1042474
3 Beiträge
Ergebnis von msgbox in Textbox übertragen
msgbox

Hallo excel Freunde
Wie bekomme ich das Ergebnis von(MsgBox "Ihre Auswahl:" & vbNewLine & Dateiname) in die textbox1?
Mfg
Achim H.
30.01.2009 13:09:00
Thread-ID: 1045376
5 Beiträge
Textbox Exit mit Button verlassen
WolfgangN

Hallo,
ich habe eine Userform mit einer Textbox, wo ein Datum eingefügt wird. Wenn kein Datum, dann verbleibe in Textbox. Das klappt auch alles sehr gut. Ich suche jetzt aber eine Möglichkeit, wenn kein Datum eingegeben wurde und Button Abbrechen (Unload Userform1) wurde gedrückt, soll Exit...
10.02.2009 13:00:00
Thread-ID: 1049026
13 Beiträge
Anzeige

Links zu Excel-Dialogen

Label 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
3
1
2
7
2
2
6
2
4
12
6
13
3
3
5
8
11
10
13
5
8
1
2
10
5