Office: (Office 2016) Werte anzeigen ,ändern und einfügen in einer Userform

Hier nochmal meine Mappe

 

Hi Christian,

Genau das macht der Code doch - siehe Screenshot. Da in deiner Mappe nur im Tabellenblatt KundeA ein "Ja" steht, werden selbstverständlich auch nur die Zeilen aus KundeA aufgelistet - ich habe mal bei KundeB ein "Ja" eingetragen und schon wird auch diese Zeile aufgelistet (siehe Screenshot).

---

 

Du hast recht, hatte eine Andere Mappe auf. Sorry.
Das mit dem Kunde ganz links in der Listbox2 ist ne gute Idee. Kam man daneben noch die Artikel mit einbringen die in Spalte A stehen. Damit man den Kunde und denn dazugehörigen Artikel da stehen hat.

 

Das geht dann mit folgendem Code:

Code:

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim rngJa As Range
    Dim strStart As String
    Dim intSpalte As Integer
    Dim intSpalte2 As Integer
    Dim arrListe()
    Dim lngZaehler As Long
    Me.ComboBox1.Clear
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Userform" And ws.Name <> "Aktuell" Then
            Me.ComboBox1.AddItem ws.Name
            With ws.Columns(6)
                Set rngJa = .Find("Ja", lookat:=xlWhole)
                If Not rngJa Is Nothing Then
                    strStart = rngJa.Address
                    Do
                        intSpalte2 = 0
                        ReDim Preserve arrListe(11, lngZaehler)
                        arrListe(0, lngZaehler) = ws.Name
                        For intSpalte = 1 To 9
                            intSpalte2 = intSpalte2 + 1
                            If intSpalte2 = 6 Then intSpalte2 = intSpalte2 + 1
                            arrListe(intSpalte, lngZaehler) = ws.Cells(rngJa.Row, intSpalte2)
                        Next intSpalte
                        lngZaehler = lngZaehler + 1
                        Set rngJa = .FindNext(rngJa)
                    Loop While rngJa.Address <> strStart
                End If
            End With
        End If
    Next ws
    ListBox2.List = Application.Transpose(arrListe())
End Sub

---

 

Vielen Dank für deine Hilfe.
Hat alles super funktioniert.

 

Hallo Karin,
ich habe in meiner Userform die Textbox durch eine CheckBox getauscht damit nur ein Häckchen machen muss statt die Eingabe in der Textbox.
Wie bekomme ich es jetzt hin das in Spalte F das Ja erscheint, so wie du es mit der Textbox gemacht hast?
Ich habe schon mehere Varianten ausprobiert , klappt aber alles nicht.
Kannst du mir da noch mal helfen ,Danke

 

Lade bitte deine derzeitige Mappe hoch.

---

 

Meine Mappe

 

In den 3 Prozeduren anstelle deiner Zeile mit der Variablen Uebertragen (die übrigens bei dir nicht deklariert ist und deshalb einen Fehler auslöst) folgende Zeilen:

ListBox1_Click:

Code:

    CheckBox1 = finden.Offset(0, 5).Text = "Ja"

cmdNeu_Click:

Code:

            If CheckBox1 Then
                .Cells(letztezeile, 6) = "Ja"
            Else
                .Cells(letztezeile, 6) = ""
            End If

cmdAendern_Click:

Code:

        If CheckBox1 Then
            finden.Offset(0, 5) = "Ja"
        Else
            finden.Offset(0, 5) = ""
        End If

---

 

Hallo,

klappt super.Ich habe noch eine bitte , kann man die Listbox2 nicht aktuallisieren wenn ich in der Checkbox ein Häckchen mache.
Oder durch ein Commandbutton die listbox2 Aktualliseren sodas ich immer das derzeite angezeigt bekomme.

Im moment kann ich ja den Hacken setzten und auf speichern Klicken . Es wird aber nicht in der Listbox2 angezeigt.
Erst wenn ich die Userform erneut aufrufe.
Das selbe ist wenn ich den Haken entferne und Speichern klicke.

In den Tabellenblätter selbst funktioniert es auch .Kann man das gleiche nicht für ListBox2 machen .

So wie es jetzt ist müsste ich jedesmal die Userform schliessen und wieder öffnen.

bis dahin
Christian

 

Hi Christan,

ich habe den Code so erweitert, dass die ListBox2 jeweils beim Speichern der Änderungen und bei Neuerfassung angepasst wird.

Außerdem habe ich noch eine Sicherheit eingebaut, falls eine TextBox für numerische Eingaben keinen numerischen Eintrag enthält (bzw. leer ist) - andernfalls würde das einen Laufzeitfehler geben.

---

 

Hallo Karin,
Habs gerade ausprobiert , läuft super.

Mir sind nur zwei Dinge aufgefallen:

Sobald ich nur ein Ja in irgendeiner Tabelle stehen habe zeigt die Listbox2 das ganze untereinander an.

Habe ich nirgendswo ein Ja in den Tabellen zeigt die Userform beim öffnen den Laufzeitfehler 5 an.

bis dahin
Christian

 

Hi Christian,

das Problem bei nur einmal "Ja" ist das Array, weil es nur 1 Datensatz enthält und sich dann nicht transponieren lässt wie bei mehreren Datensätzen. Ich habe es jetzt mal so gelöst, dass dem Array dann ein leerer Datensatz angehängt wird - dann lässt es sich wie gehabt transponieren und als Liste der ListBox hinzufügen. Anschließend wird der leere Datensatz direkt aus der ListBox gelöscht.

Das Problem bei keinem "Ja" löst ebenfalls das Array aus, da es dann leer ist. Ich habe es durch Verwendung einer Boolschen Variablen gelöst, die auf True gesetzt wird, sobald mindestens einmal "Ja" vorhanden ist und somit Daten im Array sind. Steht sie auf True, dann werden die Daten aus dem Array an die ListBox übergeben und andernfalls wird die ListBox geleert.

---

 

Hallo Karin,

einfach Klasse was Ihr hier im Forum zaubert.
Läuft alles super ich danke dir.

Bis dahin
Christian