Office: Auswahl Combobox mit Tabelle vergleichen und Daten in nächste Zelle eintragen

Deni27 · 12. März 2018

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 nichts gefunden, was mir wirklich weiterhilft, daher nun die Frage hier an die Profis.

Ich habe eine Tabelle, in der Spalte A stehen Daten und in der Zeile 2 Spalte B bis S Namen.
Dazu gibt es eine Userform mit insges. 4 ComboBoxen.
1. ComboBox enthält die Daten aus Spalte A, in der 2. ComboBox stehen die Namen der Zeile 2. In den ComboBoxen 3 und 4 kann man Zahlen zwischen 1 und 10 auswählen.

Ich möchte mit einem Code, dass die Datenauswahl der ComboBox1 mit den Daten der Spalte A abgeglichen werden, das gleiche mit Namen und ComboBox 2.
Anschließend sollen die Daten aus ComboBox 3 und 4 dann in die entsprechenden Zellen (die verglichenden) eingetragen lassen.

Ich hoffe ihr könnt mir helfen.

Zum besseren Verständnis habe ich die Datei angehangen.

Vielen Dank schonmal an alle, die sich meinem Problem annehmen.

:)

Hasso · 14. März 2018

Hallo Deni,

ich habe da jetzt mal was gestrickt. Bitte probier das aus, ob es deinen Vorstellungen entspricht. Hier meine Änderungen: Code:

Private Sub UserForm_Initialize()
Dim strAktDate As String
Dim intLetzteZeile As Integer
Dim STbereich As String
Dim intZaehler As Integer

Worksheets("Treffer-Liste S17-18").Activate

intLetzteZeile = Cells(4, 1).End(xlDown).Row
STbereich = "A4:A" & intLetzteZeile
'Spieltag
With ComboBox_Spieltag
.RowSource = STbereich
For intZaehler = 4 To intLetzteZeile
If CDate(Cells(intZaehler, 1)) > Date Then
'ComboBox_Spieltag.ListIndex = (soll aktuelles Datum sein, bzw. dem
'jetzigen am nächsten liegenden)
.ListIndex = intZaehler - 4
Exit For
End If
Next intZaehler
End With

...

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Private Sub CommandButton_OK_Click()
....
'--------------------------------------------------------------------------------------------------------------------------------------
'Die Auswahl aus ComboBox_geworfen soll in die jeweilige (=)Zelle, abhängig von Auswahl ComboBox_Spieltag und ComboBox_Spieler
'Das gleiche mit ComboBox_getroffen

'Z.B. Spieltag Auswahl: 30.09.2017
' Spieler Auswahl: Name 3
' Auswahl geworfen: 3
' Auswahl getroffen: 2
'Dann soll in der Zelle F5 "3" (geworfen) eingetragen werden und in Zelle G5 "2" (getroffen)
'--------------------------------------------------------------------------------------------------------------------------------------
Cells(ComboBox_Spieltag.ListIndex + 4, ComboBox_Spieler.ListIndex * 2 + 2) = CInt(ComboBox_geworfen)
Cells(ComboBox_Spieltag.ListIndex + 4, ComboBox_Spieler.ListIndex * 2 + 3) = CInt(ComboBox_getroffen)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Deni27 · 14. März 2018

Hallo Hasso.

Vielen Dank für deine schnelle Antwort.
Das ist genau wie ich es mir vorgestellt habe.
Eine letzte Frage habe ich noch, da ich ein Anfänger bin:
Warum steht in dem Code

Cells(ComboBox_Spieltag.ListIndex + 4, ComboBox_Spieler.ListIndex * 2 + 2) = CInt(ComboBox_geworfen)
Cells(ComboBox_Spieltag.ListIndex + 4, ComboBox_Spieler.ListIndex * 2 + 3) = CInt(ComboBox_getroffen)

ListIndex * 2??

+2 und +3 verstehe ich. Aber mit dem *2 kann ich leider noch nichts anfangen.

Danke nochmal für die Antwort.

Hasso · 14. März 2018

Hallo Deni,

Warum steht in dem Code

Cells(ComboBox_Spieltag.ListIndex + 4, ComboBox_Spieler.ListIndex * 2 + 2) = CInt(ComboBox_geworfen)
Cells(ComboBox_Spieltag.ListIndex + 4, ComboBox_Spieler.ListIndex * 2 + 3) = CInt(ComboBox_getroffen)

ListIndex * 2??

+2 und +3 verstehe ich. Aber mit dem *2 kann ich leider noch nichts anfangen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Weil sich die Namen immer jeweils über 2 Spalten erstrecken.

Deni27 · 14. März 2018

Super.
Wieder was dazu gelernt.

Vielen Dank

Office: Auswahl Combobox mit Tabelle vergleichen und Daten in nächste Zelle eintragen

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

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

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

Auswahl Combobox mit Tabelle vergleichen und Daten in nächste Zelle eintragen - Similar Threads - Auswahl Combobox Tabelle

Auswahl über Combobox dann Werte kopieren

Combobox auswahl und in textboxen

Monat über Combobox auswählen Kalenderdaten im Userform anzeigen

Auswahl von Combobox ergibt Laufzeitfehler

nach Combobox Auswahl

Tabelle mit Auswahl Listbox und Combobox befüllen (bzw. Werte überschreiben, ändern)

vba comboboxen auswählen