Automatisch Speichern
01.04.2014 10:26:24
ANNAnas
ich habe wieder ein kleines Problem beim Speichern der Datei...wenn ich in die Textbox gehe, wo eine Suchroutine eingebaut ist, soll die Datei Automatisch gespeichert werden. DIe Textbox mit der Suche ist in der Userform eingebettet.
Der Code für die Textbox der Suche ist wie folgt:
Private Sub TextBox27_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'Hier wird die Suche in der Tabelle für den Schuss erstellt
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), TextBox27.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
Meine Frage:
an welcher Stelle müsste ich "thisWorkbook.Save" einabauen, damit das funktioniert?
LG :)
Anzeige