AW: Daten von UF in Tabelle übernehmen
24.04.2012 07:17:15
UF
Hi Sven,
ergänze an den Stellen, wo sich auf den Inhalt der ComboBoxen bezogen wird, noch .Value:
Private Sub CommandButton1_Click()
Dim ctrComboBox As Control
If ComboBox1 "" Then
For Each ctrComboBox In Me.Controls
If TypeName(ctrComboBox) = "ComboBox" Then
If ctrComboBox.Tag "" Then
Set rngGP = Range("A1:A41").Find(ComboBox1.Value, lookat:=xlWhole, LookIn:= _
xlValues)
Set rngFahrer = Range("C1:Z1").Find(ctrComboBox.Value, lookat:=xlWhole, LookIn:= _
xlValues)
If Not rngFahrer Is Nothing Then
Cells(rngGP.Row, rngFahrer.Column) = ctrComboBox.Tag * 1
End If
Set rngGP = Nothing
Set rngFahrer = Nothing
End If
End If
Next ctrComboBox
End If
End Sub
Private Sub ComboBox1_Change()
Dim ctrComboBox As Control
For Each ctrComboBox In Me.Controls
If TypeName(ctrComboBox) = "ComboBox" Then
If ctrComboBox.Tag "" Then
ctrComboBox = ""
Set rngGP = Range("A1:A41").Find(ComboBox1.Value, lookat:=xlWhole, LookIn:=xlValues) _
Set rngFahrer = Range(Cells(rngGP.Row, 2), Cells(rngGP.Row, 26)).Find(ctrComboBox. _
_
Tag * 1, lookat:=xlWhole, LookIn:=xlValues)
If Not rngFahrer Is Nothing Then
ctrComboBox = Cells(1, rngFahrer.Column)
End If
Set rngGP = Nothing
Set rngFahrer = Nothing
End If
End If
Next ctrComboBox
End Sub
Ich habe außerdem den Code für ComboBox1 noch dahingehend erweitert, dass bei Auswahl eines neuen GP die Inhalte der Fahrer-ComboBoxen gelöscht werden. Falls du das nicht benötigst, dann lösche die Zeile ctrComboBox = ""