Profil von SIndianer

Frage

06.08.2014, 13:44

Combobox mit Daten einer Spalte(B) füllen aber nur,wo in der gleichen Zeile in Spalte(G) nein steht

        Private Sub UserForm_Initialize()
With Me.txtDatum.Value = Date


   Dim r As Range
With Worksheets("Daten")
        Set r = .Range("B1", .Range("B65536").End(xlUp))
ComboBox1.RowSource = "Daten!" & r.Address
End With
End With




End Sub

Ist es möglich, dass die combobox all jene Daten herausfiltert wo, in Spalte G nein steht? Also praktisch dass es mir nurmehr jene Daten aus Spalte B in der Combobox anzeigt wo in der gleichen Zeile in Spalte G ein nein steht ? Danke im Voraus

...zur Frage

Antwort

von SIndianer

07.08.2014, 05:51

Wer hat Dir den den Schwachsinn mit dem ewigen With.....End With beigebracht?

Viele Zuordnungen gehen ohne diese Konstruktion. Zum Beispiel die Zuordnung des Datums zum Textfeld.

Ich gebe zu, manchmal (bei Objekten?) verlangt es VBA so oder es ist nicht hin zu bekommen. Aber versuch es immer erst Mal ohne With.

Und Dim-Anweisungen gehören vor alle anderen Anweisungen, gleich nach dem Sub. Mit Dim-Anweisunge mitten im Code kann man schöne Verwirrung schaffen. Leider ist VBA keine "Hochsprach", da wärest Du gezwungen alle Variablen sofort zu deklarieren.

...zur Antwort