Thema Datum  Von Nutzer Rating
Antwort
Rot Auslesen Combobox + befüllen Textboxen geht nicht mit allen Werten.
13.10.2020 11:14:31 Leo
NotSolved
13.10.2020 11:56:34 Mase
Solved
13.10.2020 13:26:56 Gast81728
NotSolved
13.10.2020 13:41:08 Mase
Solved
13.10.2020 13:45:48 Gast38240
NotSolved
13.10.2020 13:52:12 Gast91560
NotSolved

Ansicht des Beitrags:
Von:
Leo
Datum:
13.10.2020 11:14:31
Views:
46
Rating: Antwort:
  Ja
Thema:
Auslesen Combobox + befüllen Textboxen geht nicht mit allen Werten.

Hallo zusammen,

 

ich bin sehr unerfahren mit VBA und knabbere seit einigen Stunden an folgendem Problem.

Ziel:

Userform mit mehren Multipages.

Auf Seite 1 soll nun aus der Auswahl einer Combobox eine Textbox befüllt werden.

Um nicht das gesamte Projekt zu versenden habe ich Euch nur den Code für das Auslesen der Daten für die Combobox und das befüllen der Textbox angehangen und in eine simplifiziertes Projekt integriert.

Problem

Die Formel funktioniert wenn in Zeile A ein reiner Zahlenwert steht. Sobald ich aber einen Wert wie Test 1 oder einen Buchstaben hinterlege in der Spalte B funktioniert die Befüllung der Textbox nicht mehr.

 

CODE:

Private Sub CommandButton1_Click()

Unload Me
End Sub
 
 
Private Sub UserForm_Initialize()
Dim i As Long, LastRow As Long, ws As Worksheet
Set ws = Sheets("userData")
LastRow = ws.Range("B" & Rows.Count).End(xlUp).Row
    For i = 3 To LastRow
    Me.ComboBox1.AddItem ws.Cells(i, "B").Value
    Next i
End Sub
 
Private Sub ComboBox1_Change()
 
Dim i As Long, LastRow As Long, ws As Worksheet
Set ws = Sheets("userData")
LastRow = ws.Range("B" & Rows.Count).End(xlUp).Row
 
For i = 3 To LastRow
    If Val(Me.ComboBox1.Value) = ws.Cells(i, "B") Then
        MsgBox Me.ComboBox1.Value
        Me.TextBox1 = ws.Cells(i, "C").Value
    
    End If
    
Next i
 
End Sub
 

 

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Auslesen Combobox + befüllen Textboxen geht nicht mit allen Werten.
13.10.2020 11:14:31 Leo
NotSolved
13.10.2020 11:56:34 Mase
Solved
13.10.2020 13:26:56 Gast81728
NotSolved
13.10.2020 13:41:08 Mase
Solved
13.10.2020 13:45:48 Gast38240
NotSolved
13.10.2020 13:52:12 Gast91560
NotSolved