UserForm öffnen
11.02.2009 20:22:00
rolf
ich habe hier ein makro mit dem ich in einer listbox nach namen suche,dabei wird automatisch eine userform geöffnet.(in der bildschirmmitte)
frage?
wie bekomme ich es hin das sich die userform oben rechts im fenster öffnet.
Private Sub TextBox50_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Dim liSuche As Integer, liMsg As Integer, liSuche1 As Integer
For liSuche = 0 To ListBox1.ListCount - 1
For liSuche1 = 0 To ListBox1.ColumnCount - 1
If InStr(1, ListBox1.Column(liSuche1, liSuche), TextBox50.Text) > 0 Then
ListBox1.ListIndex = liSuche
liMsg = MsgBox("Weitersuchen?", vbQuestion + vbYesNo)
If liMsg = vbNo Then Exit Sub
End If
Next
Next
End If
End Sub
mfg rolf
