Microsoft Office Tutorials and References
In Depth Information
11.4.9 Unterdialogfeld »Bestellungen Neu«
' Ablehnen, falls keine Firma ausgewählt wurde
If cmbFirmaSuchen.ListCount = 0 Then
MsgBox "Bitte eine Firma auswählen"
Exit Sub
End If
' Ablehnen, falls keine Bestelldetails vorhanden
On Error GoTo Fehler
MaxPNr = UBound(Bestelldetail)
If MaxPNr = 0 Then
MsgBox "Bitte Bestelldetails auswählen"
Exit Sub
End If
' Zeile für Eintrag der neuen Bestellung ermitteln
ThisWorkbook.Worksheets("Bestellungen").Activate
LetzteZeile = ActiveSheet.UsedRange. _
SpecialCells(xlLastCell).Row
Zeile = LetzteZeile + 1
' Neue Bestellnummer ermitteln und eintragen
If LetzteZeile = 1 Then
MaxBestellnummer = 0
Else
MaxBestellnummer = WorksheetFunction.Max _
(Range(Cells(2, 1), Cells(LetzteZeile, 1)))
End If
Cells(Zeile, 1).Value = MaxBestellnummer + 1
' Kundennummer und E-Mail-Adresse aus der Tabelle
' Kunden ermitteln und speichern
ThisWorkbook.Worksheets("Kunden").Activate
KundenZeile = ZeileFirmaSuchen(Me)
KNr = Cells(KundenZeile, 1).Value
EMailAdresse = Cells(KundenZeile, 7).Value
ThisWorkbook.Worksheets("Bestellungen").Activate
Cells(Zeile, 2).Value = KNr
' Bestelldatum eintragen
Cells(Zeile, 3).Value = lblBestelldatum2.Caption
' Bestelldetails eintragen
ThisWorkbook.Worksheets("Bestelldetails").Activate
Zeile = ActiveSheet.UsedRange. _
SpecialCells(xlLastCell).Row + 1
Search JabSto ::




Custom Search