Hallo liebe User,
ich möchte folgendes lösen.
Mit dem u.a. Code möchte ich Werte aus Comboboxen in eine Tabelle eintragen. Diese Tabelle liegt im Ecxelsheet auf B17:F27. Wie bekomme ich es hin, dass dies funktioniert? Momentan bekomme ich immer die Fehlermeldung: Anwendungs- oder objekdefinierter Fehler.
Vielen Dank für Eure Hilfe!
Dim lngErsteleereZeile As Long
With ActiveSheet
lngErsteleereZeile = .Cells(Rows.Count, 2).End(xlUp).Row + 1
.Cells(inErsteleereZeile, 1).Value = Me.cboMenge.Value
.Cells(inErsteleereZeile, 2).Value = Me.cboBeschreibung.Value
.Cells(inErsteleereZeile, 3).Value = Me.cbovon.Value
.Cells(inErsteleereZeile, 4).Value = Me.cbobis.Value
.Cells(inErsteleereZeile, 5).Value = Me.cboPause.Value
End With
|