VBA - Wert von Combobox in Textfeld

Hallo zusammen,

ich habe wieder ein VBA-Problem:

ich baue gerade eine Noten-Auswertungsliste für unsere Azubis auf, diese sollen dann über die Combobox ihren Namen auswählen können. Ist das geschehen sollte automatisch die Berufsbezeichnung und die Klasse in den Textfeldern eingetragen werden.
Da die Berufsgruppen auch unterschiedliche Schulfächer haben sollten diese dann ja nach Art im Feld "Fach" zur Auswahl aufgeführt werden, dann kann der Azubi seine Note eintragen und alles wird in einer Liste zur weitern Ausführung mit Pivot gespeichert.

Der letzte Schritt ist kein Problem, hierfür habe ich schon eine Lösung, aber beim den Eintragungen in den Textfeldern bräuchte ich Eure Hilfe.

Ich danke schon mal im Voraus.

Gruß Dieter

https://www.herber.de/bbs/user/159893.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub cmb_Name_Change() Dim fund If cmb_Name.ListIndex = -1 Then Exit Sub TextBox_Beruf = Range("tblAzubis[Ausbildungsberuf]").Cells(cmb_Name.ListIndex + 1).Value TextBox_Klasse = Range("tblAzubis[Klasse]").Cells(cmb_Name.ListIndex + 1).Value If TextBox_Beruf > "" Then With Worksheets("Fächer") fund = Application.Match(TextBox_Beruf, .Range("A1:C1"), 0) If Not IsError(fund) Then cmb_Fach.List = .Range(.Cells(2, fund), .Cells(2, fund).End(xlDown)).Value End If End With End If End Sub

Hi zusammen,

ich habe schon extrem rumgebastelt, aber ich bekomme es einfach nicht hin und benötige deshalb nochmals eure Hilfe:

In dem u.g. Code sollte noch eine Abfrage eingebaut werden, so dass der Azubi nicht versehentlich seine Noten bei einem anderen eintragen kann, am besten wäre eine Inputbox für die Eingabe. Bei Falscheingabe sollen folgende Meldung erscheinen:

OK - für weitere Eingabe
Abbrechen - zurück zur Namenseingabe

Danke und schönen Tag euch allen. :-)

Gruß Dieter

----------

Private Sub cmb_Name_Change()
  Dim fund
  If cmb_Name.ListIndex = -1 Then Exit Sub
  TextBox_Beruf = Range("tblAzubis[Ausbildungsberuf]").Cells(cmb_Name.ListIndex + 1).Value
  TextBox_Klasse = Range("tblAzubis[Klasse]").Cells(cmb_Name.ListIndex + 1).Value
  
  If TextBox_Beruf > "" Then
    With Worksheets("Fächer")
     fund = Application.Match(TextBox_Beruf, .Range("A1:C1"), 0)
     If Not IsError(fund) Then
        cmb_Fach.List = .Range(.Cells(2, fund), .Cells(2, fund).End(xlDown)).Value
     End If
   End With
  End If
End Sub

Beliebteste Forumthreads (12 Monate)

VBA - Wert von Combobox in Textfeld

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA - Wert von Combobox in Textfeld

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread