AW: Wertübernahme erst nach Doppelklick
31.10.2005 16:34:12
Constantin
Hi Matthias,
der Befehl sieht folgendermaßen aus:
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Set frm2 = UserForm3
With frm2
Sheets("Datenbank").Activate
On Error GoTo fehler
Columns("A:A").Find(What:=.TextBox1.Value, _
After:=Range("a1"), _
LookIn:=xlFormulas, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
.TextBox1.Value = ActiveCell.Value
.TextBox2.Value = ActiveCell.Offset(0, 6).Value
ActiveCell.Offset(0, 24).Value = .TextBox3.Value
ActiveCell.Offset(0, 25).Value = .TextBox4.Value
.TextBox5.Value = ActiveCell.Offset(0, 19).Value
fehler:
MsgBox ("Daten übergeben! Bitte Felder zurücksetzen!")
End With
Sheets("Datenbank").Activate
Selection.EntireRow.Copy
Sheets("Archiv").Select
Sheets("Archiv").UsedRange.Rows.Select
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.EntireRow.Insert
Sheets("Dateneingabe").Select
Range("c1").Select
Application.ScreenUpdating = True
End Sub
Gruß Constantin