Microsoft Office Tutorials and References
In Depth Information
11.4.7 Unterdialogfeld »Artikel Neu«
Dim ArtikelnameNeu As String
Dim Einzelpreis As Single
' Ablehnen, falls kein Name für Artikel angegeben
If txtArtikelname.Text = "" Then
MsgBox "Bitte einen Namen für den Artikel eintragen"
Exit Sub
End If
' In Großbuchstaben umwandeln
ArtikelnameNeu = StrConv(txtArtikelname.Text, _
vbUpperCase)
' Alle Artikelnamen durchsuchen
Zeile = 2
Do While Cells(Zeile, 2).Value <> ""
' Falls neuer Artikelname bereits vorhanden
If StrConv(Cells(Zeile, 2).Value, vbUpperCase) = _
ArtikelnameNeu Then
MsgBox"Fehler:Esgibtbereitseinen"&_
"Artikel mit diesem Namen", vbCritical
Exit Sub
' Zeile für neuen Artikel ermitteln
ElseIf StrConv(Cells(Zeile, 2).Value, _
vbUpperCase) > ArtikelnameNeu Then
Exit Do
End If
Zeile=Zeile+1
Loop
' Letzte Zeile ermitteln
LetzteZeile = ActiveSheet.UsedRange. _
SpecialCells(xlLastCell).Row
' Bisher größte Artikelnummer ermitteln
MaxArtikelnummer = WorksheetFunction.Max _
(Range(Cells(2, 1), Cells(LetzteZeile, 1)))
' Neue Zeile einfügen, falls notwendig
If Zeile <= LetzteZeile Then
Cells(Zeile, 1).EntireRow.Insert
End If
' Erste Zeile unter Überschrift ohne Fettdruck
If Zeile = 2 Then
Search JabSto ::




Custom Search