Zeilen bestimmen die zweite
22.01.2003 19:16:47
martin
ich habe vor ca. 3 stunden die gleiche frage gestellt und auch eine antwort von hajo bekommen. da ich aber eine beschreibung vergessen hatte, was mir auch leid tut, war die antwort nicht schön (siehe zeilen bestimmen). deshalb stelle ich die frage abermals:
ich habe eine userform mit drei comboboxen und eine 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". zur info: in der zeile "41" habe ich eine zweite überschriftszeile. 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
vielleicht kann mir ja ein anderer helfen, es wäre schön?
danke im vorraus!
gruß
martin
Anzeige