Microsoft Office Tutorials and References
In Depth Information
11.4.8 Unterdialogfeld »Artikel Ändern«
' Falls kein Artikelname eingetragen
If txtArtikelname.Text = "" Then
MsgBox"Fehler:BitteeinenNamen"&_
"für den Artikel eintragen", vbCritical
Exit Sub
End If
' Zeile mit ausgewähltem Artikel suchen
Zeile = 2
Do While Cells(Zeile, 1).Value <> _
CInt(lblArtikelnummer2.Caption)
Zeile=Zeile+1
Loop
' Geänderte Daten in Tabellenblatt übertragen
Cells(Zeile, 2).Value = txtArtikelname.Text
Cells(Zeile, 3).Value = cmbKategorie.Text
Cells(Zeile, 4).Value = txtLiefereinheit.Text
Cells(Zeile, 6).Value = txtAnzahl.Text
' Einzelpreis zusammensetzen
If txtEinzelpreisEuro.Text = "" Then
Einzelpreis = 0
Else
Einzelpreis = Int(txtEinzelpreisEuro.Text)
End If
If txtEinzelpreisCent.Text <> "" Then
Einzelpreis = Einzelpreis + _
Int(txtEinzelpreisCent.Text) / 100
End If
Cells(Zeile, 5).Value = Einzelpreis
' Tabelle neu sortieren
LetzteZeile = ActiveSheet.UsedRange. _
SpecialCells(xlCellTypeLastCell).Row
ActiveSheet.UsedRange.Sort _
Key1:=Range(Cells(1, 2), Cells(LetzteZeile, 2)), _
Header:=xlYes
' Zurück zum Hauptmenü
Unload Me
frmNordwind.Show
End Sub
Search JabSto ::




Custom Search