vbyesno
14.03.2006 09:31:03
F
und noch eine Frage.
Ich habe mir mit meinen wenigen VBA Kenntnissen
diesen Code erstellt.
Er funktioniert aber nur bis:
If meldung = vbNo Then Selection.AutoFilter
Exit Sub
wenn ich auf yes drücke, ist das wie auf no drücken.
Kann mir da jemand helfen?
Mit freundlichen Grüssen Frank
Private Sub neue1_Click()
Selection.AutoFilter
reihe = ActiveCell.Row
spalte = 1
feld1 = Cells(reihe, spalte).Value
feld2 = Cells(reihe, spalte + 1).Value
feld3 = Cells(reihe, spalte + 2).Value
feld4 = Cells(reihe, spalte + 3).Value
ActiveCell.Select
meldung = MsgBox("soll für Patient " & feld1 & ", " & feld2 & ", Geb. Datum " & feld3 & " eine neue Messung angelegt werden?", vbYesNo)
If meldung = vbNo Then Selection.AutoFilter
Exit Sub
If meldung = vbYes Then Rows(reihe + 1).Select
Selection.Insert Shift:=xlDown
Cells(reihe + 1, spalte) = feld1
Cells(reihe + 1, spalte + 1) = feld2
Cells(reihe + 1, spalte + 2) = feld3
messung = Cells(reihe, spalte + 3).Value + 1
Cells(reihe + 1, spalte + 3) = messung
Cells(reihe + 1, spalte).Select
reihe = reihe + 1
feld4 = feld4 + 1
Selection.AutoFilter
Load UserForm2
UserForm2.Show