Microsoft Office Tutorials and References
In Depth Information
11.4.8 Unterdialogfeld »Artikel Ändern«
Die Werte für die beiden Felder des Einzelpreises werden berechnet.
Dabei wird die Funktion Int() benutzt, um den Eurobetrag zu ermit-
teln. Die Funktion Int() rundet nicht, wie die Funktion CInt() , son-
dern schneidet die Nachkommastellen ab.
Einzelpreis
zerlegen
Es folgt die Funktion aus dem gemeinsamen Modul:
' Zeilennummer des Artikels liefern,
' der aktuell in der Liste angezeigt wird
Public Function ZeileArtikelSuchen _
(frm As UserForm) As Integer
Dim Zeile As Integer
' Zugehörige Tabelle aktivieren
ThisWorkbook.Worksheets("Artikel").Activate
' Zeile mit ausgewähltem Artikel suchen
Zeile = 2
Do While Cells(Zeile, 2).Value <> ""
If Cells(Zeile, 2).Value = _
frm.cmbArtikelnameSuchen.Text Then
Exit Do
End If
Zeile=Zeile+1
Loop
' Zeile zurückliefern
ZeileArtikelSuchen = Zeile
End Function
Zur Erläuterung:
Die Artikeltabelle wird Zeile für Zeile durchsucht. Falls der Artikel-
name dem ausgewählten Listeneintrag entspricht, wird die Suche
abgebrochen.
Die aktuelle Zeile wird als Wert der Funktion zurückgeliefert.
Zeile zurückliefern
Speichern
Es folgt die Prozedur für den Button Speichern, also das Speichern eines
Artikels, dessen Daten gegebenenfalls geändert wurden:
Button
»Speichern«
Private Sub cmdSpeichern_Click()
Dim Zeile As Integer
Dim Einzelpreis As Single
Dim LetzteZeile As Integer
Search JabSto ::




Custom Search