Code ergänzen
11.02.2004 17:53:54
Helga
Habe in einer bestehenden Exceldatei unten stehen Code , aus rein optischen
Gründen,habe ich mir eine UserForm2 mit einem TextBox1 gebastelt.
Wie kann ich nun den bestehenden Code umbauen damit die Sache nicht über eine
InputBox, sondern über die genannte UF abläuft.
Sub SuchenundFinden()
Dim Found As Range
Dim sSearch As String
sSearch = InputBox("Auftragsnummer suchen:", , "Auftragsnummer")
If sSearch = "" Then Exit Sub
Set Found = Range("A35:A150").Find(sSearch, Range("A150"), , xlPart, , xlNext)
If Found Is Nothing Then Exit Sub
Range(Cells(Found.Row, 1), Cells(Found.Row, 11)).Copy Destination:=Range("A20")
UserForm1.Show
Range("A20:I20").Select
Range("I20").Activate
Selection.ClearContents
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
Range("B4").Select
End Sub
Gruss Helga