ACTIVEX Dropdown

[Kuwer]

Hallo Patrick,

lösche das Change-Makro und schreibe dafür folgenden Code rein:

Private Sub ComboBox1_Change()
  Cells(ComboBox1.ListIndex + 3, 2) = Cells(ComboBox1.ListIndex + 3, 2) - Cells(4, 5) + Cells(4, 6)
  Range("E4:F4") = ""
End Sub

Gruß Uwe

[Patrick1981]

Hallo Patrick,

lösche das Change-Makro und schreibe dafür folgenden Code rein:

Private Sub ComboBox1_Change()
  Cells(ComboBox1.ListIndex + 3, 2) = Cells(ComboBox1.ListIndex + 3, 2) - Cells(4, 5) + Cells(4, 6)
  Range("E4:F4") = ""
End Sub

Gruß Uwe

Danke!
Das funktioniert schon ganz gut.
Kann man es auch so einrichten, das ich erst die Auswahl treffe, dann die Anzahl eingebe und mit Entertaste bestätige?
Es arbeiten viele Leute mit der Liste und die Umstellung sollte so unkompliziert wie möglich gestaltet werden.

Gruß Patrick

[Kuwer]

Hallo Patrick,

Kann man es auch so einrichten das ich erst die Auswahl treffe dann die Anzahl eingebe und mit Entertaste bestätige?
Es arbeiten viele Leute mit der Liste und die Umstellung sollte so unkompliziert wie möglich gestaltet werden.

der ist richtig gut.  :17:

Wenn Du es so unkompliziert wie möglich gestalten willst, dann lass diese Dropdowns weg und die Leute es direkt in die Exceltabelle (die man entsprechend umgestalten könnte) eintragen.

Abschließend kann ja per Klick auf irgendwas die Auswertung/Übernahme gestartet werden.

Gruß Uwe

[Patrick1981]

Das wäre mir persönlich auch am liebsten. Anscheinend möchte mein Boss sich nicht darauf verlassen das die Anwender rechnen können. 

Die Aufgabe war klar und deutlich gestellt und lautet: "tausche das Dropdown durch ein aktivex Steuerelement aus und formatiere die Überschriften im Menü fett".

Mein Hinweis das es einfachere Lösungen gibt hat nicht interessiert. 

Umstellung so unkompliziert wie möglich, soll heißen das die "Bedienung" für die Anwender sich nicht ändern sollte.

[Kuwer]

Die Aufgabe war klar und deutlich gestellt und lautet: "tausche das Dropdown durch ein aktivex Steuerelement aus und formatiere die Überschriften im Menü fett".

Vielleicht in anderen Foren, hier jedenfalls nicht.

Deine erweiterte Aufgabe interessiert mich nicht (mehr). Tschüss

[Patrick1981]

Vielleicht in anderen Foren, hier jedenfalls nicht.

Deine erweiterte Aufgabe interessiert mich nicht (mehr). Tschüss

Trotzdem danke für deine Hilfe.
Dein Lösungsansatz hat mir schon sehr weitergeholfen.

Gruß Patrick

[Patrick1981]

Ich habe es nun doch allein gelöst bekommen.

Vielen Dank an alle die hier geholfen haben vor allem an Kuwer.

Der Lösungsansatz von Kuwer funktionierte super, war leider nicht das was mein Boss von mir verlangte.

Code:

Private Sub ComboBox1_Change()
 Cells(ComboBox1.ListIndex + 3, 2) = Cells(ComboBox1.ListIndex + 3, 2) - Cells(4, 5) + Cells(4, 6)
 Range("E4:F4") = ""
End Sub

Mein Code Funktionierte nicht gab immer eine Fehlermeldung.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E4:F4")) Is Nothing Then
On Error GoTo Fehler
Application.EnableEvents = False
Cells(2 + Cells(4, 4), 2) = Cells(2 + Cells(4, 4), 2) - Cells(4, 5) + Cells(4, 6)
Range("E4:F4").ClearContents
End If

Fehler:
Application.EnableEvents = True
End Sub

Folgender Code brachte das gewünschte Ergebnis.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E4:F4")) Is Nothing Then
 On Error GoTo Fehler
 Application.EnableEvents = False
 Cells(ComboBox1.ListIndex + 3, 2) = Cells(ComboBox1.ListIndex + 3, 2) - Cells(4, 5) + Cells(4, 6)
 Range("E4:F4").ClearContents
End If

Fehler:
Application.EnableEvents = True
End Sub

Cells(2 + Cells(4, 4), 2) = Cells(2 + Cells(4, 4), 2) - Cells(4, 5) + Cells(4, 6)
Range("E4:F4").ClearContents
musste in 
Cells(ComboBox1.ListIndex + 3, 2) = Cells(ComboBox1.ListIndex + 3, 2) - Cells(4, 5) + Cells(4, 6)
Range("E4:F4").ClearContents

geändert werden.

Damit ist das Kapitel abgeschlossen.

Liebe Grüße Patrick.