Fehler: ungültiger Eigenschaftswert

[fullevent]

Ich bin neu hier und hoffe gerade nichts falsch zu machen.. Falls doch, dann bitte ich um konstruktive Kritik ;)

Die Datei mit Code usw. hänge ich mal mit an.. Sonst wird mir wahrscheinlich keiner helfen können ^^

Ich möchte eine Tabelle haben in der jeden Tag neue Zeilen hinzu kommen sollen. Dies geschieht mit Hilfe einer Eingabemaske die (momentan) über den Button "Test 4" ausgerufen werden soll..
Via Klick auf "OK" sollen dann die eingegebenen Werte, Formeln usw. in der Tabelle in die nächste freie Zeile eingetragen werden.
Nur leider bekomme ich immer wieder die gleiche Fehlermeldung und ich habe absolut keine Ahnung wo ich einen Fehler habe..

Kann da vllt jemand drüber schauen und mir Tipps geben oder gar einen Lösungsvorschlag?

[Steffl]

Hallo,

versuch es mal anstatt mit

Code:

dropdown.Text = "1"

mit

Code:

dropdown.Value = "1"

Auszug aus der OH zur Text-Eigenschaft

Bei einem Listenfeld-Steuerelement muss der Wert der Text-Eigenschaft mit einem vorhandenen Listeneintrag übereinstimmen. Die Angabe eines Wertes, der mit keinem Listeneintrag übereinstimmt, verursacht einen Fehler.

da deine Listbox zu dem Zeitpunkt noch keine Werte enthält, kommt es zu diesem Fehler.

[pefeu]

Hallo fullevent,

versuche es so:

Hallo,

versuch es mal anstatt mit

Code:

dropdown.Text = "1"

mit

Code:

dropdown.Value = "1"

Auszug aus der OH zur Text-Eigenschaft

Bei einem Listenfeld-Steuerelement muss der Wert der Text-Eigenschaft mit einem vorhandenen Listeneintrag übereinstimmen. Die Angabe eines Wertes, der mit keinem Listeneintrag übereinstimmt, verursacht einen Fehler.

da deine Listbox zu dem Zeitpunkt noch keine Werte enthält, kommt es zu diesem Fehler.
Hallo,

so, sollte es funktionieren ansrewlle von Text - Value und anstelle von x1Up xlup (nicht 1 sondern l) verwenden.

Gruß Peter

Sub Clear()
    Dim obj As Object

    For Each obj In Me.Controls
         If Left(obj.Name, 4) = "txt_" Then
            obj.Value = ""
        End If
    Next obj
    messreiheanlegen.dropdown.Value = "1"
    With Me
        With dropdown
            .AddItem ("0")
            .AddItem ("1")
            .AddItem ("2")
            .AddItem ("3")
            .AddItem ("4")
            .AddItem ("5")
        End With
        .btn_round = True
        .btn_square = False
        .ssic = True
        .alo = False
    End With
End Sub

Private Sub cmd_abbrechen_Click()
messreiheanlegen.Hide
End Sub

Private Sub UserForm_Initialize()
Call Clear
End Sub

Sub NewRow()
    nRow = Sheets("Messreihen").Cells(Rows.Count, 1).End(xlUp).Row + 1
End Sub

[fullevent]

Danke Stefan und danke Peter! 

Ich hatte dann noch etliche Leichtsinnsfehler, aber jetzt funktioniert es wie gewollt bis auf eine Sache.. Vielleicht könnt ihr mir hier auch weiterhelfen ^^
..und zwar funktionieren zwar sonst alle Felder, aber die Dropdownliste nicht. Also wenn ich eine "Neue Messung" anlegen möchte, bleibt das Dropdown-Feld leer. Ich kann auch weder etwas eingeben noch einen der vordefinierten Werte auswählen (wie gewünscht)..
Es wird zwar die Zahl 1 in die Zelle geschrieben, aber das ist ja nicht ganz der Sinn gewesen 



PS: Ich war die letzte Woche viel unterwegs und bin heute erst wieder zu der Thematik zurückgekehrt

[snb]

Viel zu kompliziert.