ComboBox Change ereignis
01.08.2005 10:02:40
Werner
Auf einer UserForm lasse ich durch das Change Ereignis der cboFertigmeldung die unteren Boxen füllen. In den Spalten A bis M stehen Daten und es kommen auch laufend welche hinzu.
Meine Frage, wie kann ich erreichen, das nur die Daten eingetragen werden, wenn in der Spalte N keine Daten stehen.
Private Sub cboFertigmeldung_Change()
'Daten aus Tabellenblatt in die Eingabemaske übertragen
Dim SW As Range
Set SW = Sheets("Maschinen_Eingaben").[A2]
Me.txtDatum = SW.Offset(Me.cboFertigmeldung.ListIndex, 0)
Me.cboName = SW.Offset(Me.cboFertigmeldung.ListIndex, 1)
Me.txtUhrzeit = SW.Offset(Me.cboFertigmeldung.ListIndex, 2)
Me.txtSchicht = SW.Offset(Me.cboFertigmeldung.ListIndex, 3)
Me.txtGruppe = SW.Offset(Me.cboFertigmeldung.ListIndex, 4)
Me.cboMaschine = SW.Offset(Me.cboFertigmeldung.ListIndex, 5)
Me.cboAusführungDurch = SW.Offset(Me.cboFertigmeldung.ListIndex, 8)
Me.txtArtDerBeanstandung = SW.Offset(Me.cboFertigmeldung.ListIndex, 9)
Me.txtBenötigteZeit = SW.Offset(Me.cboFertigmeldung.ListIndex, 13)
End Sub
Werner