Visual Basic 6.0

Hi,
also wie Du den Skonto berechnest, weißt Du sicherlich. Das Ergebnis steht dann in der Variablen "erg", und den Betrag gibst Du in ein Textfeld Namens "Text1" ein. Command1 ist ein Button.

Private Sub Command1_Click()
Dim erg as double

erg = (3 * Cdbl(Text1.Text))/100 'Formel zur Berechnung

MsgBox "Der Skonto (3%) vom Gesamtbetrag " & Text1.Text & " beträgt insgesamt " & Round(erg,2) & " EUR",  vbInformation + vbOkOnly, "Skonto"
Text1.Text=""

End Sub


Das sollte es schon gewesen sein.

Mario

Hi

Den Programmteil würd ich auch so machen. Recht einfach und recht gut. Hab früher schon mehrere solche Programme (Skonto, Rabatt, MWSt,... -Berechnungen) geschrieben.

Also wennst noch weitere Fragen hast, kann dir auch gern helfen.

mfg
Benka

 ???
Hy leute
kann mir einer mal helfen bei Visual Basic
Ich will ein suchmaschine bauen für ein excel Archiv
bin schon so weit:

Private Sub CommandButton1_Click()

    Range("A5:M10000").Select
    Selection.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
End Sub

Brauche nur noch die weitersuchen funktion
Danke im vorraus

Hi,

hab zwar damit noch nie was zu tun gehabt, aber so vom überlegen her... der Code da selektiert Dir sicherlich die Zelle, wo das erste auftreten des Suchtextes vorkommt oder!? Und mit dem Range() gibt Du an, welchen Bereich er durchsuchen soll, also brauchste theoretisch jetzt doch nur die aktuelle Zelle auslesen, wo er nach dem ersten Vorkommen steht, und dann setzt Du das Range halt auf die aktuelle Zelle und das M10000 kann ja fest drin bleiben.

Mario