Wenn nicht gefunden
19.07.2005 10:47:05
Basti
Habe folgenden Code:
Private Sub CommandButton7_Click()
Dim Fund As Range
Sheets("Tabelle1").Select
Set Fund = Range("b:b").Find("Sich bewegen")
If Find = True Then
ActiveCell = Fund.Offset(1, 2)
UserForm4.Label1.Caption = ActiveCell.Value
UserForm4.Label2.Caption = ActiveCell.Offset(1, 0).Value
UserForm4.Label3.Caption = ActiveCell.Offset(2, 0).Value
UserForm4.Label4.Caption = ActiveCell.Offset(3, 0).Value
UserForm4.Label5.Caption = ActiveCell.Offset(4, 0).Value
Else
UserForm4.Label1.Caption = ""
UserForm4.Label2.Caption = ""
UserForm4.Label3.Caption = ""
UserForm4.Label4.Caption = ""
UserForm4.Label5.Caption = ""
End If
UserForm4.Show
End Sub
Ich möchte halt das wenn er in der Spalte B "sich bewegen" nicht findet das er dann die Label nicht beschreibt, aber mit der Zeile
If Find = True Then
geht das wohl nicht
weiß jemand Rat
Gruß Basti