PDA

Vollständige Version anzeigen : Bezug auf Combobox in anderer Userform nehmen


VincentDarklej
10.07.2014, 21:01
Abend zusammen
ich weiß nicht einmal ob sowas möglich ist, aber evtl. gibts da ja eine Lösung.
Ich möchte einen Eintrag in einer Zelle löschen. Den Eintrag suche ich über eine Combobox in Userform1. Nun öffnet sich Userform2 und fragt ob ich wirklich löschen will. Bei "Ja" soll gelöscht werden.
Nun muss beim drücken von Button "Ja" ,der Text aus UserForm1 Combobox1 in Tabelle1 gesucht und wenn gefunden gelöscht werden.
Suchen und löschen ist kein Problem, weiß nur nicht wie ich Bezug auf die Userform1 Combobox1 nehmen kann.

so in der Art
strWert = (Userform1 Combobox1)
Hoffe jemand weiß einen Rat.
Gruß Vincent

pefeu
10.07.2014, 21:13
Hallo Vincent,

warum ein zweites UserForm(ular) und nicht einfach eine MsgBox mit der Löschabfrage?

Wenn das zweite UserForm(ular) aus irgendwelchen Gründen notwendig bleibt, könntest Du die erforderlichen Suchwerte in Public-Variablen speichern, bevor das erste UserFormular nicht mehr verfügbar ist.

in einem allgemeonen Modul ganz oben, gleich hinter Option Explicit
Public Suchbegriff As String
definiern und die Variable befüllen und dann im .Find oder Match verwenden.

Gruß Peter

VincentDarklej
10.07.2014, 21:25
Hallo Peter
Stimmt an die MsgBox habe ich nicht gedacht.
Leider sagt mir der andere Teil nichts, also ich weiß nicht wie die andere Lösung geht, da ich mich noch nicht so gut mit VBA auskenne.
Vielleicht hättest du mal einen solchen Codeaufbau um zu lernen wie man sowas macht.
Falls es nicht allzuviel Mühe macht. Evtl. auch kleinen Hinweis zum Ablauf damit ich den Ablauf nachverfolgen kann.
Jedenfalls hast du mir schon mit dem Hinweis zur MsgBox sehr geholfen
Gruß Vincent

Hajo_Zi
11.07.2014, 05:38
Hallo Vincent,

Option Explicit

Sub Test()
Dim InMsgBox As Integer
InMsgBox = MsgBox("Wollen Sie den Auftrag wirklich löschen.", vbYesNoCancel + _
vbQuestion, "Löschabfrage ?")
Select Case InMsgBox
Case 6
MsgBox "Ja"
Case 7
MsgBox "Nein"
Case 2
MsgBox "Abbrechen"
End Select
End Sub


<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

VincentDarklej
11.07.2014, 08:29
Morgen Hajo
Ist Prima das du mir den Codes für die msgbox eingestellt hast.
Dafür hatte ich schon in den Foren eine Lösung gefunden.
Peter erwähnte nur noch eine andere Möglichkeit die ich ursprünglich gesucht hatte.
Doch mit der anderen Möglichkeit könnte ich nichts anfangen, weshalb ich da nach einem codebeispiel fragte. Einfach nur um zu lernen wie man eine combobox in einer anderen userform anspricht. Wie gesagt, bedanke ich mich trotzdem für deinen Code.
Gruß Vincent