Office: VBA Verknüpung von ComboBox und Textfeld Problem

Docc2015 · 17. März 2015

Hallo liebe Community ,

ich bin blutiger Anfänger was die Programmierung in VBA angeht.
Da ich Arbeitsbedingt doch recht häufig mit Excel arbeite, bin ich bei meinem derzeitigen Projekt auf den Geschmack der Eingabe von Daten mit Hilfe eines Formulars gekommen.

Bei vielen Problemen konnte ich mir bisher noch durch das fleißige Lesen verschiedener Foren behelfen, doch diesmal bin ich mit meinem Latein am Ende.

Folgende Ausgangslage:
2 Tabellenblätter (Gebühren und Daten)

Im Tabellenblatt 1 (Gebühren) befindet sich eine Tabelle mit derzeit noch vier Spalten (lfd. Nr., Dezernat, Tarifstelle, Tarifstellenname)
Im Tabellenblatt 2 (Daten) befindet sich eine Tabelle mit drei Spalten die eine Übersicht über den kompletten Gebührenkatalog bietet.
Die Spalten sind wie folgt beschriftet Spalt A Dezernat, Spalte B Tarifstellennummer, Spalte C Tarifstellenname

Im Tabellenblatt Gebühren befindet sich nun ein Button der eine Userform1 öffnet mit 2 Comboboxen, 1 Textfeld und zwei Buttons (Abbruch und in Tabelle eintragen)

Wenn man das Formular aufruft kann man mit der der Combobox das Dezernat wählen,
In der zweiten Combobox kann man dann die Tarifstelle wählen, wobei nur noch die Tarifstellen angezeigt werden die zu der Auswahl aus der Combobox 1 gehören. (das funktioniert recht gut bisher)

Wenn man jetzt eine Tarifstelle ausgewählt hat soll der dazugehörige Text (zur Kontrolle und eventuellen Bearbeitung) in dem darunter liegenden Textfeld ausgegeben werden

Das funktioniert nur mit Einschränkungen, da nur die Bezeichnungen des ersten Dezernats ausgeworfen werden. Bei allen anderen Dezernaten wird zwar auch der Text in der TextBox angepasst, aber leider nicht der Richtige.

Ich würde mich freuen wenn mir da jemand helfen könnte. Ich kann den Code hier posten oder eine anonymisierte Datei hochladen.

Public Auswahl1 As String, Auswahl2 As String, Auswahl3 As String

Private Sub ComboBox1_Change()

Dim Wiederholungen As Integer
'Alle Einträge in der Combobox löschen
ComboBox2.Clear
'Sichtbaren Eintrag in der Combobox löschen
ComboBox2.Text = ""
'Letzte beschriebene Zeile in Blatt Daten ermitteln
Letzte_Zeile = Sheets("Daten").Range("A65536").End(xlUp).Row
'Ausgewählter Eintrag aus der Combobox in Variabele "Auswahl1"
'schreiben
Auswahl1 = ComboBox1.Text
'For/Next Schleife um Combobox mit den Einrägen aus Blatt "Daten"
'Spalte B ohne Duplicatt zu füllen.
For Wiederholungen = 2 To Letzte_Zeile
'Wenn der ausgewählte Begriff = dem Eintrag in Spalte A in der Zeile,
'die durch die For/Next Schleife angesprochene Zeile dann...
If Sheets("Daten").Cells(Wiederholungen, 1) = Auswahl1 Then
'...Eintag aus Blatt "Daten" Spalte B der durch die For/Next Schleife
'angesprochenen Zeile in Spalte IV kopieren
Sheets("Daten").Cells(Wiederholungen, 2).Copy Cells(Wiederholungen, 256)
'Duplicate löschen
If WorksheetFunction.CountIf(Range("IV2:IV" & Wiederholungen), _
Cells(Wiederholungen, 256)) = 1 Then _
'Werte in ComboBox eintragen
With ComboBox2
.AddItem Sheets("Daten").Cells(Wiederholungen, 2)
End With
End If
End If
'Nächster Schleifendurchlauf
Next Wiederholungen
'Daten in Spalte IV löschen
Range("IV2:IV" & Letzte_Zeile).ClearContents

End Sub

Private Sub ComboBox2_Change()

Dim Wiederholungen As Integer
'Alle Einträge in der Combobox löschen
'ComboBox3.Clear
'Sichtbaren Eintrag in der Combobox löschen
'ComboBox3.Text = ""
'Letzte beschriebene Zeile in Blatt Daten ermitteln
Letzte_Zeile = Sheets("Daten").Range("A65536").End(xlUp).Row
'Ausgewählter Eintrag aus der Combobox in Variabele "Auswahl2"
'schreiben
Auswahl2 = ComboBox2.Text
'For/Next Schleife um Combobox mit den Einrägen aus Blatt "Daten"
'Spalte B ohne Duplicatt zu füllen.
For Wiederholungen = 2 To Letzte_Zeile
'Wenn der ausgewählte Begriff = dem Eintrag in Spalte B in der Zeile,
'die durch die For/Next Schleife angesprochene Zeile und
'der ausgewählte Begriff aus der Combobox1 = dem Eintrag in Spalte A
'in der Zeile, die durch die For/Next Schleife angesprochene Zeile dann...
If Sheets("Daten").Cells(Wiederholungen, 2) = Auswahl2 And _
Sheets("Daten").Cells(Wiederholungen, 1) = Auswahl1 Then
'...Eintag aus Blatt "Daten" Spalte B der durch die For/Next Schleife
'angesprochenen Zeile in Spalte IV kopieren
Sheets("Daten").Cells(Wiederholungen, 3).Copy Cells(Wiederholungen, 256)
'Duplicate löschen
If WorksheetFunction.CountIf(Range("IV2:IV" & Wiederholungen), _
Cells(Wiederholungen, 256)) = 1 Then _

'Werte in TextBox eintragen (FUNKTIONIERT NICHT WIE ES SOLL)
TextBox1 = Worksheets("Daten").Cells(ComboBox2.ListIndex + 1, 3)

End If
End If
'Nächster Schleifendurchlauf
Next Wiederholungen
'Daten in Spalte IV löschen
Range("IV2:IV" & Letzte_Zeile).ClearContents

End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Activate()

Dim Wiederholungen As Integer

'Alle Einträge in der Combobox löschen
ComboBox1.Clear
'sichtbaren Eintrag in der Combobox löschen
ComboBox1.Text = ""
'For/Next Schleife um Combobox mit den Einrägen aus Blatt "Daten" Spalte A
'ohne Duplicatt zu füllen.
For Wiederholungen = 2 To Worksheets("Daten").Range("A65536").End(xlUp).Row
If WorksheetFunction.CountIf(Worksheets("Daten"). _
Range("A2:A" & Wiederholungen), Worksheets("Daten"). _
Cells(Wiederholungen, 1)) = 1 Then _
ComboBox1.AddItem Worksheets("Daten").Cells(Wiederholungen, 1)
Next Wiederholungen

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'Damit UserForm über X nicht geschloßen werden kann
If CloseMode = 0 Then
MsgBox "Bitte schließen Sie das Fenster mit der Schaltfläche 'Beenden'.", vbCritical
Cancel = 1
End If
End Sub

Private Sub CommandButton2_Click()

Dim intErsteLeereZeile As Long

With ActiveSheet
[A2] = 0
'intErsteLeereZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1
intErsteLeereZeile = .Cells(Rows.Count, 1).End(xlUp).Select

ActiveCell.Offset(1, 0) = ActiveCell + 1

ActiveCell.Offset(1, 1) = ComboBox1.Text
ActiveCell.Offset(1, 2) = ComboBox2.Text

End With

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

Vielen Dank schon einmal im Voraus :)

Office: VBA Verknüpung von ComboBox und Textfeld Problem

VBA Verknüpung von ComboBox und Textfeld Problem

VBA Verknüpung von ComboBox und Textfeld Problem

VBA Verknüpung von ComboBox und Textfeld Problem - Similar Threads - VBA Verknüpung ComboBox

TXT-Import brauchbar machen

Drucken per VBA mit Vorschau

Formel per VBA einfügen

VBA bestimmte Tabellenblätter separat speichern

VBA: Wenn Bedingung erfüllt, dann Kopiere Wert..

Automatische Zeilenhöhe ohne VBA

Benötige Hilfe zu vba

TXT-Import brauchbar machen

(Office 2016) Bestimmten Wert in Spalte suchen, aber andere Werte fortlaufend ausgeben

(Office 365) Makro Inhalt löschen wenn Bedingung erfüllt

Werte aus zweiter Datei beim Druck in Feld einer Tabelle einsetzen

(Office 365) Office-Skript zum Ausblenden bestimmter Spalten

Office: VBA Verknüpung von ComboBox und Textfeld *Problem*

VBA Verknüpung von ComboBox und Textfeld *Problem*

VBA Verknüpung von ComboBox und Textfeld *Problem*

VBA Verknüpung von ComboBox und Textfeld *Problem* - Similar Threads - VBA Verknüpung ComboBox

Office: VBA Verknüpung von ComboBox und Textfeld Problem

VBA Verknüpung von ComboBox und Textfeld Problem

VBA Verknüpung von ComboBox und Textfeld Problem

VBA Verknüpung von ComboBox und Textfeld Problem - Similar Threads - VBA Verknüpung ComboBox