Office: (Office 2013) UserForm in bestimmte Zeile einfügen

Hallo,

Ich möchte, dass die Werte, die ich in eine UserForm eingebe, in einer bestimmten Zeile ausgegeben werden sollen. In der Tabelle soll quasi oben eine neue Zeile eingefügt werden in die dann die UserForm-Werte übertragen werden. Besser noch, die neue Zeile soll immer zwischen der 5. und 6. Zeile eingefügt werden. Die ersten 5 Zeilen sind nämlich statisch und sollen sich nicht verändern.

Dabei handelt es sich um eine Adress-Datenbank. Mein Plan ist es, wenn eine neue Adresse angelegt wird, soll sie immer in der 6. Zeile eingefügt werden, Und die Zeilen darunter sollen sich nach unten verschieben.

Bislang habe ich folgenden Code verwendet:

Private Sub cmdOK_Click()
Dim intErsteLeereZeile As Long
intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(intErsteLeereZeile, 1).Value = Me.TextBox1.Value
Unload Me
End Sub

Leider wird dabei das Ergebnis immer in die letzte Lehre Zelle eingefügt.

Vielen Dank vorab und sonnige Grüße

:)

 

Hi,

so geht's:

Code:

 

Super. Aber: ersetze ich Deine Zeile durch eine von meinen?
Oder wird der Code zum bereits vorhandenen hinzugefügt? Wenn ja, Wo?

Edit: Das mit der Zeile einfügen hat funktioniert. Leider werden aber die Werte der Textfelder nicht in die einzelnen Zellen übertragen.

Der Code sieht nun wie folgendermaßen aus:

Private Sub cmdOK_Click()
Rows("6:6").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
ActiveSheet.Cells(intErsteLeereZeile, 1).Value = Me.TextBox1.Value
ActiveSheet.Cells(intErsteLeereZeile, 2).Value = Me.TextBox2.Value
ActiveSheet.Cells(intErsteLeereZeile, 3).Value = Me.TextBox3.Value
Unload Me
End Sub

 

Hi

das würde dann so aussehen
Code:

MfG Tom

 

Super. Vielen Dank schon mal! Allerdings habe ich mehrere Textfelder.
Wie werden diese aufgeführt?
(1. Zelle = Name, 2. Zelle = Institution, 3. Zelle = Telefon)

 

Hi

zum Beispiel so
Code:

MfG Tom

 

Yippi *Smilie

Super. Vielen Dank!

Ich bin gestern fast verzweifelt, nachdem ich den ganzen Tag Allerlei Foren durchforstet habe aber eben nicht das gefunden, wonach ich gesucht habe.

Nochmals 1000 Dank! *wink.gif*