Zeile bestimmen
22.01.2003 16:15:27
martin
ich habe eine userform mit drei comboboxen und ein textbox.
es funktioniert auch alles prima, aber mein problem ist, dass die userfrom die werte nicht in der ersten freien zeile einfügen soll, sondern erst ab zeile "23". folgende anweisung habe ich geschrieben:
'*** Werte eintragen ***
Private Sub CommandButton1_Click()
'Variablendeklaration
Dim intRow As Integer
'Wenn kein Datensatz ausgewählt wurd, Sub verlassen
If ComboBox2.ListIndex = -1 Then Exit Sub
'Erste freie Zelle bestimmen
intRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
'Artikel eintragen
Cells(intRow, 1) = ComboBox1.Value
'Einzelpreis eintragen
Cells(intRow, 5) = ComboBox2.Value
'Menge eintragen
Cells(intRow, 6) = TextBox1.Value
'Einheit eintragen
Cells(intRow, 4) = ComboBox3.Value
End Sub
kann mir vielleicht einer helfen, dass die werte erst in zeile "23" eingefügt werden?
danke im vorraus!
gruß
martin
Anzeige