AW: userform
19.08.2008 09:57:00
Corinna
Das ist er:
Private Sub BtnKaufen_Click()
Range("B10").Select
ActiveCell.Value = FldDatum.Value
Range("C10").Select
ActiveCell.Value = CbxBezeichnung.Value
Range("D10").Select
ActiveCell.Value = FldWKN.Value
Range("E10").Select
ActiveCell.Value = FldMenge.Value
Range("F10").Select
ActiveCell.Value = FldKurs.Value
Unload Me
End Sub
Private Sub BtnAbbrechen_Click()
Unload Me
End Sub
Private Sub BtnKurs_Click()
Follow_Link 'Homepage ansteuern
End Sub
Public Sub Follow_Link()
Dim objIE As Object
Dim strPage As String
Set objIE = CreateObject("InternetExplorer.Application")
strPage = "www.boerse.de/kurssuche.php"
With objIE
.Navigate strPage
.Visible = True
End With
Set objIE = Nothing
End Sub
Private Sub FldDatum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(FldDatum) Then
FldDatum = ""
Cancel = True
Else
Cells(10, 2) = CDate(FldDatum)
FldDatum = Format(CDate(FldDatum), "DD.MM.YY")
End If
End Sub
Private Sub UserForm_Click()
End Sub