Laufzeitfehler 13
27.04.2016 14:07:00
Alex
das Makro soll bei klicken des Buttons die eingetragenen Werte in eine Tabelle übernehmen. Es hat anfangs funktioniert (da waren die ComboBoxen noch ListBoxen).
Jetzt, wenn ich eine Mehrfachauwahl mache, kommt die Meldung "Laufzeitfehler 13" und set Frm = Eingabe wird gelb markiert.
Hat jemand eine helfende Idee, wie ich den Bug wegbekomme?
Private Sub CommandButton1_Click()
Set Frm = Eingabe
Sheets("Übersicht").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
With Frm
ActiveCell.Value = .ComboBox1.Value
ActiveCell.Offset(0, 2).Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = ListBox1.Value
ActiveCell.Offset(0, 3).Value = ComboBox1.Value
ActiveCell.Offset(0, 4).Value = ComboBox2.Value
ActiveCell.Offset(0, 5).Value = ListBox2.Value
ActiveCell.Offset(0, 6).Value = ListBox3.Value
ActiveCell.Offset(0, 7).Value = TextBox2.Value
ActiveCell.Offset(0, 8).Value = ComboBox6.Value
End With
End Sub
Vielen Dank und lg
Ax