Tabellenspalte in Word2000 Makro

[Netzer82]

Hi Leute ich habe ein verdammt großese Problem. Der folgende Code soll eine Tabelle in MSWord um die einzugebenden Daten ergänzen. Jatz sollen neue Tabellenzeilen unter die gerade erstellte Zeile und nicht darüber erstellt werden. Wo muß cih meinen Code ändern ?

Sub rechnungsentwurf()


Dim intPostenzaehler() As Integer

Dim strPostennummer As String

Dim intPosten As Integer

Dim intTicker As Integer

Dim curPostenpreis As Currency





intPosten = 1

intTicker = 0


intPosten = InputBox("Bitte geben sie die Anzahl der zu berechnenden Posten ein !")




ActiveDocument.Bookmarks("Wechsel").Select


    'Selection.InsertRows 1                          'Neue Zeile wird angelegt

    'Selection.Collapse Direction:=wdCollapseStart


Do While (intTicker <> intPosten)


    intTicker = intTicker + 1


strPostenname = InputBox("Bitte geben sie den " & intTicker & "ten Posten ein")

curPostenpreis = InputBox("Bitte geben sie den Preis des Postens ein.")


Selection.Text = intTicker


Selection.MoveRight Unit:=wdCell


Selection.Text = strPostenname


Selection.MoveRight Unit:=wdCell


Selection.Text = curPostenpreis


Selection.MoveLeft Unit:=wdCell, Count:=2


    Selection.InsertRows 1                          'Neue Zeile wird angelegt

    Selection.Collapse Direction:=wdCollapseStart


Loop





    MsgBox ("Auf Wiedersehen :-)")


End Sub