AW: CommandButton Franz
11.11.2008 10:43:54
Frank
Hallo Nepumuk,
leider bin ich noch recht unerfahren in VBA darum hat mir
netterweise Franz beim unteren Code geholfen
nun weiß ich aber nicht wo ich diesen Code einfügen muss
und da wäre noch etwas wenn ich keine Artikel-Nr. eingebe sondern nur
eine Bezeichnung sollte ich über eine Msgbox hingewiesen werden ob
dieses akzeptieren will oder nicht.
Über weitere Hilfe wäre ich sehr dankbar.
Private Sub CommandButton6_Click()
Dim rng As Range, lngZeileNeu As Long, wks As Worksheet
'Eingaben Prüfen
On Error GoTo Fehler
If Me.cboArtikelNr "" Then 'Artikelnummer ist eingetragen
Set wks = ThisWorkbook.Sheets(wsh_name)
If Not IsNumeric(Me.Preis) Then
MsgBox "Eingabewert für Preis (" & Me.Preis & ") ist keine Zahl!"
Else
If MsgBox(Prompt:="Neuen Artikel anlegen?" & vbLf & vbLf _
& "Artikelnummer: " & Me.cboArtikelNr & vbLf _
& "Artikel-Bemerkung: " & Me.Bemerkung & vbLf _
& "Preis: " & Me.Preis & vbLf _
& "Datum: " & Format(Date, "DD.MM.YYYY"), _
Buttons:=vbQuestion + vbOKCancel, _
Title:="Neuer Artikel") = vbOK Then
With wks
'Prüfen, ob neue Artielnummer bereits vorhanden
Set rng = .Range("A:A").Find(Me.cboArtikelNr, LookIn:=xlValues, lookat:=xlWhole)
If rng Is Nothing Then 'Neue Artikelnummer nicht gefunden
'Nächste leere Zelle in Spalte A (Artikelnummer) ermitteln
lngZeileNeu = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
'Werte eintragen
.Cells(lngZeileNeu, 1).Value = Me.cboArtikelNr 'Artikelnummer
.Cells(lngZeileNeu, 2).Value = Me.cboBezeichnung 'Bemerkung
.Cells(lngZeileNeu, 3).Value = CDbl(Me.Preis) 'Preis
.Cells(lngZeileNeu, 4).Value = Date 'Datum
.Cells(lngZeileNeu, 5).Value = Me.Bemerkung 'Bemerkung
MsgBox "Artikelwurde angelegt"
Else
MsgBox "Die Artikel-Nummer '" & Me.cboArtikelNr & "' existiert bereits!"
End If
End With
End If
End If
Else
MsgBox "Eingabewert für Artikel-Nummer fehlt!"
End If
Fehler:
If Err.Number 0 Then
Select Case Err.Number
Case 9
MsgBox "Es wurde kein Kundenblatt gewählt oder Blatt '" & wsh_name & "' existiert nicht! _
Case Else
MsgBox "Bitte Kunde auswählen"
End Select
End If
End Sub
Gruss
Frank