If Bedingung funktioniert nicht
25.11.2015 17:26:21
Robin
Jedoch klappt entweder nur die erste If Bedingungen und beim Versuch es zu ändern habe ich es nur hingekriegt das beides hintereinander ausgeführt wird aber soll immer nur entweder AOK mit hinweis1 oder Barmer mit hinweis2 ausgeführt werden. Was mache ich falsch. Danke im Voraus hier der code:
Private Sub btn_Vertrag_Click()
Dim Hinweis1 As String
Dim Hinweis2 As String
Dim strPrinterName As String
If txt37.Value = "AOK" And txt4.Value = "Fehlt" And txt223.Value = "" Then
Worksheets("Vertrag AOK").Range("H56").Value = txt37.Value
Worksheets("Vertrag AOK").Range("I59").Value = txt38.Value
Worksheets("Vertrag AOK").Range("H62").Value = txt3.Value
Worksheets("Vertrag AOK").Range("B58").Value = txt2.Value
Worksheets("Vertrag AOK").Range("C58").Value = txt1.Value
Worksheets("Vertrag AOK").Range("B60").Value = txt39.Value
Worksheets("Vertrag AOK").Range("B62").Value = txt40.Value
Worksheets("Vertrag AOK").Range("B64").Value = txt41.Value
Worksheets("Vertrag AOK").Range("G30").Value = txt6.Value
Hinweis1 = MsgBox("Alle Daten des Patienten erfolgreich in Vertrag AOK exportiert, möchten _
_
Sie den Vertrag jetzt ausdrucken?", vbYesNo)
If Hinweis1 = vbYes Then
strPrinterName = Application.ActivePrinter
Application.Dialogs(xlDialogPrinterSetup).Show
ThisWorkbook.Sheets("Vertrag AOK").PrintOut
txt223.Value = Date
txt4.Value = "Ja"
Else
If Hinweis1 = vbNo Then
txt223.Value = "Wurde Abgebrochen"
txt4.Value = "Fehlt"
Else
End If
If txt37.Value = "Barmer" And txt4.Value = "Fehlt" And txt223.Value = "" Then
Worksheets("Vertrag Barmer").Range("C5").Value = txt39.Value
Worksheets("Vertrag Barmer").Range("E5").Value = txt41.Value
Worksheets("Vertrag Barmer").Range("G5").Value = txt40.Value
Worksheets("Vertrag Barmer").Range("C11").Value = txt6.Value
Worksheets("Vertrag Barmer").Range("C39").Value = Date
Hinweis2 = MsgBox("Alle Daten des Patienten erfolgreich in Vertrag Barmer exportiert, mö _
chten Sie den Vertrag jetzt ausdrucken?", vbYesNo)
If Hinweis2 = vbYes Then
strPrinterName = Application.ActivePrinter
Application.Dialogs(xlDialogPrinterSetup).Show
ThisWorkbook.Sheets("Vertrag Barmer").PrintOut
txt223.Value = Date
txt4.Value = "Ja"
Else
If Hinweis2 = vbNo Then
txt223.Value = "Wurde Abgebrochen"
txt4.Value = "Fehlt"
Else
End If
If txt37.Value = "" Then
Meldung = MsgBox("Bitte erst eine Krankenkasse angeben!", vbOKOnly, "Hinweis")
End If
End If
End If
End If
End If
End Sub
Anzeige