wer kann mal schauen ?
begriffe sind in der tabelle1 "A" und daneben in "B" vergebene schlüsselzahl.
z.B. in "A2" test in "B2" 5
"A3" tester in "B3" 1
"A4" norm in "B4" 4
neue "A5" neu in "B5" ?
nun.....wenn ein neuer begriff in "A" soll, mache ich das mit meiner userform
Private Sub CommandButton2_Click()
Sheets("Tabelle1").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveCell = TextBox1.Value
Range("B65536").End(xlUp).Offset(1, 0).Select
End Sub
nun soll aber neben dem begriff auch die nächst höhere zahl in "B" automatisch vergeben werden.
danke
achim h.