Hilfe bei Vba Problem

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von petaod.

    Hilfe bei Vba Problem

    Moin Moin Leute,



    habe eine Frage bzw brauche Hilfe.

    Ich möchte das der Command Button nur die Daten in die Tabelle übernimmt wenn alle Felder angeklickt bzw ausgefüllt sind. Und das eine Fehlermeldung

    kommt welches Feld nicht ausgefüllt wurde.

    Gibt es dafür ein Code? Wie progammiere ich es

    So meine aktuelle Programmierung:


    Private Sub Artikel_Click()

    End Sub

    Private Sub Kunden_Click()

    End Sub

    Private Sub Label3_Click()

    End Sub

    Private Sub Label4_Click()

    End Sub

    Private Sub Label6_Click()

    End Sub

    Private Sub LiefGH_Click()

    End Sub

    Private Sub Orga_Click()

    End Sub

    Private Sub PRO_Click()

    End Sub

    Private Sub vonKW_Click()

    End Sub

    Private Sub bisKW_Click()

    End Sub

    Private Sub Jahr_Click()

    End Sub

    Private Sub Tonnage_Change()

    End Sub

    Private Sub UserForm_Activate()
    Kunden.List = Sheets("Tabelle2").Range("B2:B60").Value
    Orga.List = Sheets("Tabelle2").Range("C2:C10").Value
    LiefGH.List = Sheets("Tabelle2").Range("D2:D30").Value
    PRO.List = Sheets("Tabelle2").Range("E2:E5").Value
    Artikel.List = Sheets("Tabelle2").Range("F2:F35").Value
    Jahr.List = Sheets("Tabelle2").Range("H2:H05").Value
    vonKW.List = Sheets("Tabelle2").Range("J2:J55").Value
    bisKW.List = Sheets("Tabelle2").Range("K2:K55").Value
    End Sub

    Private Sub CommandButton1_Click()
    Dim z As Integer
    z = Range("C65536").End(xlUp).Row + 1
    Cells(z, 3) = Kunden
    Cells(z, 4) = Orga
    Cells(z, 5) = LiefGH
    Cells(z, 6) = PRO
    Cells(z, 7) = Artikel
    Cells(z, 8) = Tonnage
    Cells(z, 9) = Jahr
    Cells(z, 11) = vonKW
    Cells(z, 12) = bisKW

    End Sub







    Vielen Dank Voraus skatesporty
    Bei deiner Fragestellung erwartest du jetzt hoffentlich keinen Komplettcode. :)

    Ich würde einen anderen Ansatz wählen:
    Alle zu füllenden Zellen mit "bedingter Formatierung" gelb unterlegen, wenn sie leer sind.
    So hast du immer die Kontrolle, wo noch was fehlt; nicht erst beim Klick.

    Ansonsten würde ich die fraglichen Zellen in einen Zellverbund zusammenfassen, dem du einen Namen gibst.
    Den kannst du dann durchgehen mit

    Visual Basic-Quellcode

    1. Private Sub CommandButton_Click
    2. For Each c in Range("MeinZellverbund").Cells
    3. If IsEmpty(c) Then
    4. MsgBox "Bitte alle gelben Zellen füllen"
    5. Exit Sub
    6. Endif
    7. Next
    8. End Sub

    Noch ein Tipp: Du kannst die bedingte Formatierung übrigens recht einfach auf den kompletten Zellverbund anwenden.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --