If Funktion mit 2 Kriterien und For Block

  • Excel

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Sam85.

    If Funktion mit 2 Kriterien und For Block

    Guten Abend,

    ich habe eine Frage, ich würde gerne in den oberen Code, den unteren mit einbauen und das direkt nach der ersten Abfrage. Nur weiß ich nicht, wie ich das tuen soll? Kann mir jemand Rat erteilen? ^^
    Freue mich über Feedback.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub btn_year_Click()
    3. TB = tb_year.Text & " - " & cb_monat.Text
    5. If cb_monat.Text = "" Then
    6. MsgBox ("Es wurde kein Monat ausgewählt."), vbExclamation
    7. Else
    8. With ThisWorkbook
    9. .Worksheets.Add after:=Worksheets("Menü")
    10. .ActiveSheet.Name = tb_year.Text & " - " & cb_monat.Text
    11. .ActiveSheet.Range("A1") = tb_year.Text
    12. .ActiveSheet.Range("B1") = cb_monat.Text
    13. With Range("A1")
    14. .Font.Bold = True
    15. .HorizontalAlignment = xlCenter
    16. .VerticalAlignment = xlCenter
    17. End With
    19. With Range("B1")
    20. .Font.Bold = True
    21. .HorizontalAlignment = xlCenter
    22. .VerticalAlignment = xlCenter
    23. End With
    24. End With
    26. datazeit = frmZeit.lb_zeit.ListCount - 1
    27. Set datacells = Range("A5", Range("A5").Offset(0, datazeit))
    28. frmZeit.lb_zeit.RowSource = "dt_Zeit[Uhrzeit]"
    29. For i = 0 To frmZeit.lb_zeit.ListCount - 1
    30. datacells(i, 1) = Format(frmZeit.lb_zeit.List(i, 0), "hh:mm")
    31. Next i
    33. datatherapeut = frmTherapeut.lb_therapeut.ListCount - 1
    34. Set datacells = Range("C3", Range("C3").Offset(0, datatherapeut))
    35. frmTherapeut.lb_therapeut.RowSource = "dt_Therapeut[Nachname_Therapeut]"
    36. For i = 0 To frmTherapeut.lb_therapeut.ListCount - 1
    37. datacells(1, i) = frmTherapeut.lb_therapeut.List(i, 0)
    38. Next i
    39. End If
    40. End Sub



    VB.NET-Quellcode

    1. For i = 1 To Worksheets.Count
    2. If Worksheets(i).Name = TB Then
    3. MsgBox ("Der Kalender exestiert bereits."), vbExclamation
    4. End If
    5. Next i

    Sam85 schrieb:

    einbauen und das direkt nach der ersten Abfrage

    In welcher Codezeile ist bei Dir die "erste Abfrage" und was hintert Dich daran, den Code dort einzubauen? Fehlt Dir nach der MsgBox einfach nur das Exit Sub, um bei Auftreten eines Fehlers die ganze Geschichte abzubrechen?
    Genau wie bei der ersten If-Geschichte. Mach einfach

    VB.NET-Quellcode

    1. If cb_monat.Text = "" Then
    2. MsgBox ("Es wurde kein Monat ausgewählt."), vbExclamation[/quote]
    3. Exit Sub
    4. End If

    Dann kannst Du den Rest ohne das Else-End If-Konstrukt machen.
    btw: "Der Kalender existiert bereits." existiert kommt von Existenz.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @VaporiZed
    :) Danke für das Beseitigen des Fehlerteufels. :thumbsup:

    Die erste Abfrage beginnt in Zeile 5. Mich hindert daran, dass ich nicht weiß wie man das FOR / NEXT in die zweite IF Abfrage bekommt. Das mit dem Exit Sub wollte ich einfach durch "nichts" ersetzen bzw. die vbExclamation reicht als Hinweis.

    Ich kann also einfach die erste IF-Klausel abschließen und eine neue beginnen? Dachte es kommt die zweite Abfrage in eine Elseif funktion aber was mach ich dann mit dem FOR / NEXT?

    Sachverhalt:
    Prüfen ob Wert in ComboBox ausgewählt wurde, anschließend ob das Blatt bereits existiert dann Code ausführen oder nicht.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Sam85“ ()

    Probiere es einmal so:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub btn_year_Click()
    3. TB = tb_year.Text & " - " & cb_monat.Text
    5. If cb_monat.Text = "" Then
    6. MsgBox ("Es wurde kein Monat ausgewählt."), vbExclamation
    7. Exit Sub
    8. End If
    9. For i = 1 To Worksheets.Count
    10. If Worksheets(i).Name = TB Then
    11. MsgBox ("Der Kalender exestiert bereits."), vbExclamation
    12. Exit Sub
    13. End If
    14. Next i
    15. '
    16. With ThisWorkbook
    17. .Worksheets.Add after:=Worksheets("Menü")
    18. .ActiveSheet.Name = tb_year.Text & " - " & cb_monat.Text
    19. .ActiveSheet.Range("A1") = tb_year.Text
    20. .ActiveSheet.Range("B1") = cb_monat.Text
    21. With Range("A1")
    22. .Font.Bold = True
    23. .HorizontalAlignment = xlCenter
    24. .VerticalAlignment = xlCenter
    25. End With
    27. With Range("B1")
    28. .Font.Bold = True
    29. .HorizontalAlignment = xlCenter
    30. .VerticalAlignment = xlCenter
    31. End With
    32. End With
    34. datazeit = frmZeit.lb_zeit.ListCount - 1
    35. Set datacells = Range("A5", Range("A5").Offset(0, datazeit))
    36. frmZeit.lb_zeit.RowSource = "dt_Zeit[Uhrzeit]"
    37. For i = 0 To frmZeit.lb_zeit.ListCount - 1
    38. datacells(i, 1) = Format(frmZeit.lb_zeit.List(i, 0), "hh:mm")
    39. Next i
    41. datatherapeut = frmTherapeut.lb_therapeut.ListCount - 1
    42. Set datacells = Range("C3", Range("C3").Offset(0, datatherapeut))
    43. frmTherapeut.lb_therapeut.RowSource = "dt_Therapeut[Nachname_Therapeut]"
    44. For i = 0 To frmTherapeut.lb_therapeut.ListCount - 1
    45. datacells(1, i) = frmTherapeut.lb_therapeut.List(i, 0)
    46. Next i
    47. '
    48. End Sub

Facebook
Telefonspende