Private
Sub
ok_button_Click()
Dim
SN
Dim
c
As
Range
SN = artnrtextbox.Text
Set
c = Sheets(
"Deutsch"
).Columns(1).Find(SN)
If
Not
c
Is
Nothing
Then
bezeichnungtextbox.Text = c.Offset(0, 3).Text
preistextbox.Text = c.Offset(0, 4).Text
laengetextbox.Text = c.Offset(0, 8).Text
breitetextbox.Text = c.Offset(0, 9).Text
hoehetextbox.Text = c.Offset(0, 10).Text
landtextbox.Text = c.Offset(0, 11).Text
bildpfadtextbox.Text = c.Offset(0, 18).Text
katalogseitetextbox.Text = c.Offset(0, 25).Text
End
If
End
Sub
Private
Sub
abbruch_button_Click()
Unload
Me
End
Sub