Office: (Office 365) Combobox auswahl und in textboxen

Helfe beim Thema Combobox auswahl und in textboxen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo alle zusammen. Ich habe eine Userform mit einer Combobox und 10 Textboxen. Die Combobox wird mit werten aus Tabelle "Auftragsarchiv" wie folgt... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Blacky1980, 12. Januar 2021.

  1. Blacky1980 Erfahrener User

    Combobox auswahl und in textboxen


    Hallo alle zusammen.

    Ich habe eine Userform mit einer Combobox und 10 Textboxen.
    Die Combobox wird mit werten aus Tabelle "Auftragsarchiv" wie folgt gefüllt.
    Die Werte können auch mehrfach vorkommen.

    Code:
    Private Sub UserForm_Initialize()
    Dim X As Variant, WS As Worksheet
    Set WS = Worksheets("Auftragsarchiv")
    With WS
    For X = 2 To WS.[b65536].End(xlUp).Row
    If WorksheetFunction.CountIf(WS.Range("B2:B" & X), WS.Cells(X, 2)) = 1 Then
    With ComboBox1
    If WS.Cells(X, 20) = "X" Or WS.Cells(X, 20) = "x" Then .AddItem WS.Cells(X, 2).Value
    If WS.Cells(X, 20) = "X" Or WS.Cells(X, 20) = "x" Then .List(.ListCount - 1, 1) = WS.Cells(X, 3).Value
    If WS.Cells(X, 20) = "X" Or WS.Cells(X, 20) = "x" Then .List(.ListCount - 1, 2) = WS.Cells(X, 54).Value
    If WS.Cells(X, 20) = "X" Or WS.Cells(X, 20) = "x" Then .List(.ListCount - 1, 3) = WS.Cells(X, 56).Value
    End With
    End If
    Next
    End With
    End Sub
    
    Wenn nun die Werte mehrfach vorkommen, sollen nur die ersten 10 Werte von Spalte D in die 10 Textboxen eingtragen werden. Sollten es mehr als 10 spielt es keine rolle da beim schreiben in die Tabelle das "X" in spalte T gelöscht wird und später nicht mehr geladen werden.

    Wer könnte mir da mal helfen wie ich das mit dem laden der textboxen hin bekomme?

    Danke schon mal vorab für die hilfe.


    Gruß Michael
     
    Blacky1980, 12. Januar 2021
    #1
  2. Blacky1980 Erfahrener User
    Als Beispiel
    suchen und finden In die textBoxen
    __A______B____________C________________D
    1_-_____20693______170031632______498001654787
    2_-_____20696______170031633______498001654763
    3_-_____20696______170031633______498001654749
    4_-_____20696______170031633______498001654725
    5_-_____20696______170031633______498001654701
    2_-_____20696______170031633______498001654688

    Ich suche nach 20696 dies gibt es 5 mal in der Tabelle
    Nun sollte in 5 von 10 TextBoxen die Werte so eingtragen werden.
    TextBox101 = 498001654763 (Wert aus Spalte D)
    TextBox102 = 498001654749 (Wert aus Spalte D)
    TextBox103 = 498001654725 (Wert aus Spalte D)
    TextBox104 = 498001654701 (Wert aus Spalte D)
    TextBox105 = 498001654688 (Wert aus Spalte D)

    Gruß Michael
     
    Blacky1980, 12. Januar 2021
    #2
  3. Hajo_Zi
    Hajo_Zi Erfahrener User
    Hallo Michael,

    ich bnaue keine Datei nach, die Zeit hat schon jemand investiert.
    Darum meine Antwort in Deinem Stil, für meine Datei.

    Option Explicit

    Sub Find_mehrmals()
    '**************************************************
    '* H. Ziplies *
    '* 29.03.2020 *
    '* erstellt von HajoZiplies@WEB.de Spam *
    '* Homeseite - Hajo's Excelseiten *
    '**************************************************
    Dim Rafound As Range
    Dim StAdresse As String
    With Worksheets("Projekte")
    Set Rafound = .Columns(4).find("Ha", .Range("D1"), , xlPart, , xlNext)
    ' xlPart enthalten
    ' xlWhole kompletter Vergleich
    If Not Rafound Is Nothing Then
    MsgBox Rafound.Address
    StAdresse = Rafound.Address ' erste Adresse merken
    Do ' Such wiederholen
    Set Rafound = .Columns(4).FindNext(Rafound)
    If Not Rafound Is Nothing Then
    If StAdresse = Rafound.Address Then
    Exit Do ' erstes Ergebniszelle
    Else
    MsgBox Rafound.Address
    End If
    End If
    Loop
    End If
    End With
    Set Rafound = Nothing
    End Sub


    Combobox auswahl und in textboxen GrußformelCombobox auswahl und in textboxen Homepage
     
    Hajo_Zi, 12. Januar 2021
    #3
  4. Blacky1980 Erfahrener User

    Combobox auswahl und in textboxen

    Hallo Hajo

    Danke für die Antwort, nur leider komme ich mit dem Code von Dir nicht wirklich klar. Ich habe mal eine Testmappe erstellt und die hier Hochgeladen.

    Gruß Michael
     
    Blacky1980, 12. Januar 2021
    #4
  5. Hajo_Zi
    Hajo_Zi Erfahrener User
    Hallo Maicheal,

    ich kann Dir Leider nicht Helfen, da ich die ConBox nicht finden konnte.
    Vioelleicht findet sie jemand anderes.
    Viel Erfolg noch.

     
    Hajo_Zi, 12. Januar 2021
    #5
  6. Blacky1980 Erfahrener User
    Hallo Hajo

    Button "Rechnung erstellen" auf dem Tabellenblatt Rechnung oder Command Button auf dem Tabellenblatt "Auftragsarchiv".
    Die ComboBox ist dann in der UserForm oben rechts steht auch drüber hier "Hier Auswählen"

    Habe die userForm etwas kleiner gemacht vieleicht sieht man jetzt alles.
    Gruß Michael
     
    Blacky1980, 12. Januar 2021
    #6
  7. Hajo_Zi
    Hajo_Zi Erfahrener User
    Hallo Michael,

    Private Sub ComboBox1_Change()
    Dim InI As Integer
    InI = 101
    If ComboBox1 <> "" Then
    '**************************************************
    '* H. Ziplies *
    '* 12.01.2021 *
    '* erstellt von HajoZiplies@WEB.de Spam *
    '* Homeseite - Hajo's Excelseiten *
    '**************************************************
    Dim Rafound As Range
    Dim StAdresse As String
    With Worksheets("Auftragsarchiv")
    Set Rafound = .Columns(2).Find(ComboBox1 * 1, .Range("B1"), , xlPart, , xlNext)
    ' xlPart enthalten
    ' xlWhole kompletter Vergleich
    If Not Rafound Is Nothing Then
    'MsgBox Rafound.Address
    Controls("Textbox" & InI) = Rafound.Offset(0, 2)
    InI = InI + 1
    StAdresse = Rafound.Address ' erste Adresse merken
    Do ' Such wiederholen
    Set Rafound = .Columns(2).FindNext(Rafound)
    If Not Rafound Is Nothing Then
    If StAdresse = Rafound.Address Then
    Exit Do ' erstes Ergebniszelle
    Else
    'MsgBox Rafound.Address
    Controls("Textbox" & InI) = Rafound.Offset(0, 2)
    InI = InI + 1
    End If
    End If
    If InI = 110 Then
    Exit Do
    End If
    Loop
    End If
    End With
    Set Rafound = Nothing
    End If
    End Sub


    Heute ist Feierabend.

     
    Hajo_Zi, 12. Januar 2021
    #7
  8. Blacky1980 Erfahrener User

    Combobox auswahl und in textboxen

    Guten morgen Hajo

    vielen Dank klappt wunderbar.

    Gruß Michael
     
    Blacky1980, 13. Januar 2021
    #8
  9. Blacky1980 Erfahrener User
    Ich nochmal

    Frage wie kann ich noch ein Bedinung einbauen das die TextBox nur mit dem Wert gefüllt wird wenn in Spalte T ein "x" oder "X" steht.

    Gruß Michael
     
    Blacky1980, 13. Januar 2021
    #9
  10. Blacky1980 Erfahrener User
    Habe es so hin bekommen habe den Code so angepasst

    Code:
    If Rafound.Offset(0, 17) = "X" Or Rafound.Offset(0, 17) = "x" Then Controls("Textbox" & InI) = Rafound.Offset(0, 1)
    
    Gruß Michael
     
    Blacky1980, 13. Januar 2021
    #10
  11. Hajo_Zi
    Hajo_Zi Erfahrener User
    If Ucase(Rafound.Offset(0, 17) )= "X" Then

     
    Hajo_Zi, 13. Januar 2021
    #11
  12. Blacky1980 Erfahrener User
    Hallo Hajo
    Danke wusste nicht mir wie das war mit groß und klein schreibung.

    Nun habe ich doch ein Problemchen.
    Wie bekomme ich es hin das ich dazwischen keine leeren Textboxen habe. Ist mir gerade erst aufgefallen.

    Gruß Michael
     
    Blacky1980, 13. Januar 2021
    #12
  13. Hajo_Zi
    Hajo_Zi Erfahrener User

    Combobox auswahl und in textboxen

    If Rafound.Offset(0,2)<>"" then
    Controls("Textbox" & InI) = Rafound.Offset(0, 2)
    Ini=ini+1
    End if


     
    Hajo_Zi, 13. Januar 2021
    #13
  14. Blacky1980 Erfahrener User
    Hallo Hajo

    Könntest Du mir bitte noch veraten wo das genau hin muss.

    Danke

    Gruß Michael
     
    Blacky1980, 13. Januar 2021
    #14
  15. Hajo_Zi
    Hajo_Zi Erfahrener User
    habe ich den Code falsch gelese?
    Gibt es die Zeile
    Controls("Textbox" & InI) = Rafound.Offset(0, 2)
    nicht?
    Ich kann Die da nicht weiter helfen und bin raus.

    Viel erfolg noch

     
    Hajo_Zi, 13. Januar 2021
    #15
Thema:

Combobox auswahl und in textboxen

Die Seite wird geladen...
  1. Combobox auswahl und in textboxen - Similar Threads - Combobox auswahl textboxen

  2. Auswahl Combobox mit Tabelle vergleichen und Daten in nächste Zelle eintragen

    in Microsoft Excel Hilfe
    Auswahl Combobox mit Tabelle vergleichen und Daten in nächste Zelle eintragen: Hallo an Alle. Ich habe ein Problem mit dem vergleichen der Daten aus der Combobox und den Daten in der Tabelle. Ich habe mich schon quer durch sämtliche Foreneinträge gelesen, doch habe leider...
  3. Monat über Combobox auswählen Kalenderdaten im Userform anzeigen

    in Microsoft Excel Hilfe
    Monat über Combobox auswählen Kalenderdaten im Userform anzeigen: hallo, ich habe folgendes Problem. Ich habe eine Tabelle in der ein Kalender generiert wird. Eine Userform (frmTerminkalender. In der Userform werden Monate angezeigt. ich möchte, dass wenn ich...
  4. Auswahl von Combobox ergibt Laufzeitfehler

    in Microsoft Excel Hilfe
    Auswahl von Combobox ergibt Laufzeitfehler: Hallo, ich habe ein Problem und komme nicht so richtig weiter. Ich habe auf einer UserForm insgesamt 12 ComboBoxen. In jeder ComboBox sind verschiedene Eigenschaften mit Werten hinterlegt. Bei...
  5. Wert X in Combobox auswählen und Wert Y in Zelle schreiben

    in Microsoft Excel Hilfe
    Wert X in Combobox auswählen und Wert Y in Zelle schreiben: Hallo zusammen Leider komme ich gerade einfach nicht dahinter, wie ich folgendes Problem lösen soll: Ich möchte eine Zelle mit einer ComboBox versehen. In dieser sollen bspw. die Werte "John",...
  6. nach Combobox Auswahl

    in Microsoft Access Hilfe
    nach Combobox Auswahl: Hallo, ich bin mal wieder, der Anfänger. Habe Kombinationsfelder erstellt, funktionieren auch. Das 1. Kombinationsfeld25 sucht nach Namen Das 2. Kombinationsfeld48 sucht nach KD_ID 1. Nach...
  7. Tabelle mit Auswahl Listbox und Combobox befüllen (bzw. Werte überschreiben, ändern)

    in Microsoft Excel Hilfe
    Tabelle mit Auswahl Listbox und Combobox befüllen (bzw. Werte überschreiben, ändern): Hallo zusammen! Habe da ein kleines Problem, eigentlich mindestens 2. Das erste, bin VBA-Anfänger und habe 1000 Ideen, was ich gerne umsetzen möchte, aber keine Ahnung wie genau es geht. Mit...
  8. vba comboboxen auswählen

    in Microsoft Excel Hilfe
    vba comboboxen auswählen: Hallo an alle. Ich versuche schon länger erstellte comboboxen auszuwählen und je nach bedarf anzuzeigen. Auf grund der hohen Anzahl an Boxen wurde der die TAbelle rasch voll...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden