TextBox mit ComboBox & TextBox verbinden

[Rogue]

Guten Tag community,

stehe vor einen Problem.

Ich möchte gerne, ComboBox203 & TextBox204 in TextBox214 anzeigen lassen.

Ich Beutze diesen Code

Code:

Private Sub ComboBox203_Change()
ComboBox203.Value = TextBox204.Value & ComboBox203
End Sub

soweit klappt der Code auch, nur habe ich in der TextBox204 probleme, er zeigt nicht das richtig an, 
sondern etweder eine zeile davor oder danach.
(bei anderen ComboBox gibt es mit diesem Code keine Probleme da läuft allles.

Das Probleme ist, dass unter ComboBox203 noch eine zeilen Code mit drine steht.

Code:

'Change "Kunde", neue Items für "Kn ID"
Private Sub ComboBox203_change()
  With Tabelle1
    TextBox202.Text = .Cells(ComboBox203.ListIndex + 2, 2).Value
  End With
  TextBox214.Value = TextBox211.Value & ComboBox203.Value
End Sub

gibt es vielleicht eine anderen möglichkeit in TextBox214 die Werten von TextBox202 & ComBox203 anzeigen zu lassen?

Gruß

[Klaus-Dieter]

Hallo,

üblicherweise verwendet man ComboBoxen um damit Inhalte auszuwählen, die vorher schon definiert wurden. Was du da vorhast, macht keinen Sinn.

[Rogue]

Guten Morgen,

der hintergrund ist:
Ich möchte die Kunden-Nr. aus Tabelle1 vom Kunden in der TextBox bekommen, wenn ich den bestimmten Kunden in der ComboBox auswähle.
Anschließend möchte ich den Eintrag in Tabelle2 übergeben bzw abspeichern.

Tabelle1 stehen die Kunden:
B2=Kunden-Nr.
C2=Kunden Name

ListBox um bestimmten eintrag auszuwählen fängt bei B2:B in Tabelle2 an.

Code:

Private Sub UserForm_Initialize()
    With Tabelle2
        ' Account Tabelle2
        Me.ListBox200.Clear
        Me.ListBox200.List = .Range("B2:B" & .Cells(Rows.Count, 2).End(xlUp).Row).Value
    End With
    ' TextBox200 für Eingabe sperren
    Me.TextBox200.Locked = True
    Me.TextBox200.SetFocus
    Me.Image200.Enabled = False
    Me.TextBox202.Locked = True
End Sub

Daten für die comboBox kommen :

Code:

    With Tabelle1
        lZeile = .Cells(Rows.Count, 2).End(xlUp).Row
        arr = .Range(.Cells(2, 1), .Cells(lZeile, 9)).Value
    End With

Das probleme ist, wenn ich die Daten so wie beim ersten Code hole, 
dann werden sie nach übergabe in die Tabelle2 aus der ComboBox gelöscht.

Gruß

[Klaus-Dieter]

Hallo,

stelle doch bitte eine Beispieldatei ein.

[Rogue]

Guten Morgen,

sorry das habe ich total vergessen...
Das ist nur eine Beispiel-Datei...

Der Kunden Vorname = TextBox ist das probleme!!!
Gruß

[Klaus-Dieter]

Hallo,

das ist für mich nicht durchsichtiger geworden. Wozu zwei Listen mit ID und Namen, wobei die ID in beiden Listen auch noch von einander abweicht?

[Rogue]

OK.

Stell dir vor, dass der Name als Account ist.
Und der Vorname als Charakter.
jewalls eine Tabelle.

In der Userform kommen beide zusammen.

Ich brauche die ID von Beiden, um in Tabelle 3 sie zusammen zu fügen, um bestimmte gegenstände zuzuordnen.

Die Datenbank soll später als überblick für ein MMO Games sein.

Gruß

[Klaus-Dieter]

Hallo,

das kann ich mir nicht vorstellen, da ich ein Verfechter von Lösungen mit einer Liste bin. Gleichartige Dinge gehören in eine Liste, dann ist zusammen, was zusammen gehört.

[Rogue]

hallo,

es tut mir leid, dass du das nicht nachvollziehen kannst,
aber so ist meine Datenbank aufgebaut.

Naja dann muss ich mir eine andere möglichkeit suche, um das umzusetzen...

Trotzdem Danke...

Gruß

[schauan]

Hallöchen,

um mal auf Deine Ausgangsfrage zurückzukommen, da hast Du zwei Codes Combobox203_Change Sowas geht nicht. Ich komm auch irgendwie mit der Logik Deiner Codes nicht hinterher.

Das
ComboBox203 & TextBox204 in TextBox214 anzeigen lassen.
und das
ComboBox203.Value = TextBox204.Value & ComboBox203

ist irgendwie unlogisch. Willst Du Textbox204 dann 2x sehen? Einmal wäre es dann ja schon in der ComboBox

Außerdem packst Du hier
TextBox214.Value = TextBox211.Value & ComboBox203.Value

noch andere Daten in die Textbox214. Du wolltest doch 204 haben und nicht 211 ...