Private Sub Workbook_Open()
Dim rFind As Range, SuTxt As Variant
SuTxt = "----------"
If SuTxt = Empty Then Exit Sub
Set rFind = Columns(9).Find(What:=SuTxt, After:=[i1], LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
If rFind.Offset(0, -1) = "" Then if msgbox rFind.Offset(0, -1), vbInformation, "Information"
End Sub
Kann mir jemand sagen wie dieser vba code richtig lauten...