Userform dynamisch ansprechen

Hallo liebes Forum!
Folgendes Problem:
Ich habe eine Funktion, die ich aus einer Userform heraus aufrufe. Dieser Funktion gebe ich informationen mit
eine Kundennummer und den Namen der Userform aus der ich sie aufrufe.
in etwa so


Private Sub tb_Kundennummer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Kundenid = tb_Kundennummer.Value
Formname = Me.Name
Call Kundendetailactualize(Formname, Kundenid)
End Sub

In einem Modul steht folgende Funktion:
Function Kundendetailactualize(Formname, Kundenid)
Dim uf As UserForm.Name
Sheets("Kunden").Select
Range("a1").Select
Do Until ActiveCell.Text = Kundenid Or ActiveCell.Text = ""
ActiveCell.Offset(1, 0).Select
Loop
with control(Formname)
.tb_Kundenbezeichnung.value = activecell.offset(0,1).value
end with
End Function

wie kann ich der Funktion beibringen, dass Formname für die jeweilige Userform steht
also gleicher Funktionsaufruf für Userform1, Userform2 usw.
Ich verzweifle bald

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi
eine Sub ist normalerweise nicht dazu geeignet, eine Wert zurückzugeben
als Funktion würde dein Makro so aussehen:


Private Sub tb_Kundennummer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Kundenid = tb_Kundennummer.Value
Formname = Me.Name
tb_Kundenbezeichnung.value = Kundendetailactualize(Kundenid)
End Sub


Function Kundendetailactualize(Kundenid) as string
Sheets("Kunden").Select
Range("a1").Select
Do Until ActiveCell.Text = Kundenid Or ActiveCell.Text = ""
ActiveCell.Offset(1, 0).Select
Loop
Kundendetailactualize = activecell.offset(0,1).value
End Function

wobei deine Funktion schlecht aufgebaut ist, besser gehts so:


Function Kundendetailactualize(Kundenid) as string
dim Zelle as Range
Set Zelle = Sheets("Kunden").Columns(1).Find(what:=Kundenid)
if Zelle is nothing then
Kundendetailactualize = ""
Else
Kundendetailactualize = Zelle.offset(0,1).vaue
end if
End Function

Gruß, Daniel

Public Sub Kundendetailactualize(objBoxFrom As MSForms.TextBox, objBoxTo As MSForms.TextBox) Dim Zelle As Range Set Zelle = Sheets("Kunden").Columns(1).Find(What:=objBoxFrom.Text, lookat:=xlWhole, LookIn: _ =xlValues) If Zelle Is Nothing Then objBoxFrom.Text = "" Else objBoxTo.Text = Zelle.Offset(, 1).Value End If End Sub

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Userform dynamisch ansprechen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread