Datensätze an Excel Tabelle hinzufügen

[TheLamer]

Hallo,

Ich hab ne Tabelle mit ca 120 einträgen und will neue eintäge unten hinzufügen über eine TextBox. Leider kriege ich das nicht hin.
Ich hoffe ihr könnt mir helfen.

Mf´G

 

[dignsag]

Wieviele Spalten werden denn verwendet für deine Datensätze?
Sollen die immer wieder einzeln hinzugefügt werden?
Wie sieht deine Form genau aus?

 

[TheLamer]

also das sind 120 zellen (1 Spalte) und ich will jedesmal einzelnt neue unten einfügen können über eine TextBox. Die Spalte heißt KdNr.

Danke schonmal

 

[dignsag]

Du machst eine Form mit einer Textbox (nennen wir mal txtNeu) und einem Button (den nennen wir cmdHinzu)!

Dann erstellst du ein Click-Event und schreibst da rein:

 Dim i as Integer
 
 Do
 	 i = i + 1
 Loop until Cells(i, 1).Value = ""
 
 Cells(i,1).Value = txtNeu.Value
 txtNeu.Value = ""

 

[TheLamer]

Danke esrt einmal für deine Antwort aber bei mir kommt jetz Unzuläsige Verwendung einer eigenschaft ? was auch immer das soll.

 

[dignsag]

Setz mal über das Cells(i, 1).Value = txtNeu.Value noch diese Zeile:

Cells(i, 1).Select

 

[TheLamer]

Hi,

das leuft leider immer noch nicht so.
Hast du noch ne Idee?
Aber Danke schon mal.