Werte aus Textbox in Tabelle übertragen
20.06.2007 11:16:00
Martl
folgende Situation. Mit folgendem Code durchsuche ich in dem Tabellenblatt1 (Spalte A) nach einer Sachnummer und gebe bei gefundener Nummer die dazugehörigen Werte (Spalte B-F) in Labels aus.
Private Sub cmdSuchen_Click()
Dim rngFind As Range, rngFirst As Range
Dim a As Byte
Set rngFind = ActiveSheet.Range("a2:a25").Find( _
what:=txtsuchen.Text, _
lookat:=xlWhole, _
LookIn:=xlValues)
If rngFind Is Nothing Then
Beep
MsgBox "Kein Suchbegriff gefunden!"
Exit Sub
End If
Set rngFirst = rngFind
Do
For a = 1 To 9
UserForm2("Label" & a).Caption = rngFind.Offset(0, a)
Next a
Set rngFind = ActiveSheet.Range("a1:a10").FindNext(rngFind)
Loop While Not rngFind Is Nothing And _
rngFind.Address rngFirst.Address
End Sub
Diesen Code möchte ich nun erweitern und zwar folgendermaßen: In einer weiteren Userform werden eine neue Sachnummer und die dazugehörigen Werte eingegeben. Diese Werte sollen nun mittels eines Commandbuttons in die nächste freie Zeile desselben Tabellenblattes1 (wie oben) eingetragen werden.
Wäre super wenn mir hierbei jemand helfen könnte.
Die Excel-Bsp-Datei habe ich angehängt. https://www.herber.de/bbs/user/43417.xls