Brauche Hilfe beim automatischen ausfüllen eines Labels

Question

Hallo ihr Lieben,

ich brauche wieder einmal eure Hilfe. :-)

Das Problem:

Ich habe eine UserForm "ZugängeUsf", wo sich 2 Comboboxen befinden. Wenn ich diese ausgewählt habe, möchte ich über den "ComandButton1" die entsprechenden Werte in die Labels "Bezeichnung2Lbl, Beschreibung2Lbl und EkPreis2Lbl anzeigen lassen.

Ist das überhaupt möglich oder muss ich mir da etwas anderes einfallen lassen?

Die Datei:
www.file-upload.net/download-3701066/Lagerbestand4.xls.html

Gruß
Nick2507

Answer 1

Guten Morgen Karin,

ich das VBA für ein schreibgeschützes Tabellenblatt erstellt. Es funktioniert auch alles außer meine Selektion nach der Produktgruppe von A-Z sortiert. :-(
Kannst du mir den Fehler sagen?

Private Sub CommandButton1_Click()
Worksheets("Artikelliste").Unprotect Password:="test"
'sortiere die Daten aus der Tabelle Artikelliste beginnend ab C4 aufsteigend
=> Selection.Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlGuess, _
=> OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
=> DataOption1:=xlSortNormal
Worksheets("Artikelliste").Protect Password:="test"
End Sub

Danke dir schon mal im Voraus. :-)

Viele liebe Grüße
Nick

Answer 2

Guten Morgen Karin,

ich habe das Problem mit einer Sprungmarke geklärt. :-)

Hoffe, dass die Sprungmarke dieses mal angemessen war.

Private Sub CommandButton1_Click()
Worksheets("Artikelliste").Unprotect Password:="test"
On Error GoTo fehler:
'sortiere die Daten aus der Tabelle Artikelliste beginnend ab C4 aufsteigend
Selection.Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
fehler:
Worksheets("Artikelliste").Protect Password:="test"
End Sub

Viele liebe Grüße
Nick

Answer 3

Hi Nick,

wozu benötigst du eine Sprungmarke und On Error? Wann tritt denn überhaupt ein Fehler auf?

Bis später,
Karin

Answer 4

Guten Morgen Karin,

ich habe eine Frage, die sich heute nicht um das Thema VBA dreht. :-)

Gibt es eigentlich die Möglichkeit, dich persönlich anzuschreiben, ohne jedes Mal hier etwas zu posten? Ich habe gesehen, dass die Möglichkeit besteht, persönliche Nachrichten zu versenden. Jedoch habe ich keine Ahnung, wie ich diese Möglichkeit nutzen kann. :-(

Viele liebe Grüße
Nick