Dim
Suchergebnis
As
Range
Dim
Range
As
Integer
Dim
SuchWert
As
String
Dim
wksRaum
As
Worksheet
Dim
wksRaumbuch
As
Worksheet
Set
wksRaum = ThisWorkbook.Worksheets(
"Raum"
)
Set
wksRaumbuch = ThisWorkbook.Worksheets(
"Raumbuch"
)
SuchWert = ComboBox1
With
Worksheets(
"Raumbuch"
).Range(
"A1:A100"
)
Set
Suchergebnis = .Find(SuchWert)
If
Not
Suchergebnis
Is
Nothing
Then
wksRaumbuch.Cells(Suchergebnis.Row, 1).Copy wksRaum.Cells(4, 3)
wksRaumbuch.Cells(Suchergebnis.Row, 2).Copy wksRaum.Cells(5, 3)
wksRaumbuch.Range(Cells(Suchergebnis.Row, 16), Cells(Suchergebnis.Row, 135)).Copy
wksRaum.Cells(11, 3).PasteSpecial Transpose:=
True
Else
MsgBox
"Die angebene Raumnummer ist in der Datenbank nicht vorhanden."
End
If
Raumnummer.Hide
End
With
End
Sub