AW: TextBox Eintrag und Wert aus Tabelle ausschneiden
27.05.2008 13:56:35
Franc
sry ... hat wegen Bsprechung länger gedauert.
Ist zwar net so schön geschreiben aber sollte funktionieren.
Bei den Kommentaren mußt entsprechend anpassen.
Private Sub CommandButton1_Click()
Dim Suche As Variant, Quellblatt, Zielblatt, Zeile_Quell, Zeile_Ziel
Quellblatt = "Tabelle1"
Zielblatt = "Tabelle2"
'Name und Spalte von der Nr. in der Listbox anpassen (1. Spalte ist die 0 ;-) )
Suche = ListBox1.List(ListBox1.ListIndex, 0)
'Wenn die Nr. nicht in Spalte A in der Tabelle steht, dann entpsrechend abändern
Zeile_Ziel = Sheets(Zielblatt).Range("A65500").End(xlUp).Row + 1
'Spalte von der Nr. anpassen
With Worksheets(Quellblatt).Range("A:A")
Set c = .Find(Suche, LookIn:=xlValues)
If Not c Is Nothing Then
Zeile_Quell = c.Row
'Zielspalte wo der Textboxeintrag rein soll anpassen
Sheets(Quellblatt).Range("AN" & Zeile_Quell) = TextBox1 'Textboxname anpassen
Sheets(Quellblatt).Rows(Zeile_Quell).Copy
Sheets(Zielblatt).Rows(Zeile_Ziel).PasteSpecial
Sheets(Quellblatt).Rows(Zeile_Quell).Delete
End If
End With
End Sub