Combobox Macro Starten

Forumthread: Combobox Macro Starten
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Combobox Macro Starten

12.01.2023 15:52:26

Stefan

Habe schon Wieder ein Problem. Ich habe mir eine Combobox erstellt. diese wird mit Daten Aus dem Tabellenblatt 1 Spalte A gefüllt.
Dann habe Ich mir Macros erstellt . und möchte diese ,wenn ich den Text anklicke Starten. in der Combobox habe ich Waren Ausgang und Wareneingang stehen. die Macros Sind ebenfalls so benannt . Die Combobox ist auch auf Tabelle 1.Ich weis aber nicht wie ich das realisieren kann. Ich wäre für einen Denkanstoß dankbar vieleicht eine Beispielformeln .Denn alle was ich Gefunden hab kam ich nicht klar.

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Combobox Macro Starten

12.01.2023 17:08:11

Rudi
AW: Combobox Macro Starten

12.01.2023 17:18:33

oraculix
was hat das ...

12.01.2023 22:54:08

Rudi

AW: Combobox Macro Starten

12.01.2023 17:08:11

Rudi

Hallo,
z.B.


Private Sub ComboBox1_Click()
Select Case ComboBox1
Case "Warenausgang": Call WarenAusgang
Case "Wareneingang": Call WarenEingang
End Select
End Sub

Gruß
Rudi

AW: Combobox Macro Starten

12.01.2023 17:18:33

oraculix

versuche es mal so.
'##############################
In Tabelle1
Function GetValue(objCell As Range) As String
GetValue = objCell.Value
End Function Erstelle einen Button in der Tabelle1 und kopiere den code in den Button.
'###########################


Private Sub CommandButton1_Click()
Dim objCell As Range
Set objCell = Range("A1:A200").Find(ComboBox1.Text & "*", LookAt:=xlPart) 'Range Anpassen
If Not objCell Is Nothing Then
objCell.Select
Dim value As String
value = GetValue(objCell)
Set objCell = Nothing
Else
MsgBox "Nothing Found", vbExclamation, "Hint"
End If
End Sub

Gruß
Oraculix

was hat das ...

12.01.2023 22:54:08

Rudi

... mit der Frage zu tun?