Problem mit dem Commandbutton
09.12.2005 14:57:23
Matthias
ich möchte via commandbutton einige Sub's starten. Additiv möchte ich eine vorher die Worksheetfuntion CountA verwenden. Leider führt dies stets zu einem Fehler, da offensichtlich die Methode nicht auf die angegeben Range sonder auf den Button angewendet wird. was muss ich machen, daß es richtig geht?
Private Sub CommandButton5_Click()
If WorksheetFunction.CountA(Range(Range("Total_Rank").Offset(1, -1), Range("Total_Rank").Offset(50000, -1))) < 2 Then
MsgBox ("Es wurden weniger als 2 Titel für das Zielportfolio selektiert. Bitte prüfen Sie Ihre Eingaben. Abbruch."), vbOKOnly
Else
frmIndexMembWgt.Show
End If
End Sub
Danke.
Matthias
Anzeige