Userform
02.04.2013 00:07:07
Sascha
ich übertrage mit dem CommandButton die Daten meines Userform in die erste Zeile
der Tabelle1. Das funktioniert auch wunderbar, allerdings schließt sich das Userform nach der Übertragung immer wieder. Wie bekomme ich es hin, dass danach das Userform geöffnet bleibt?
Vorab vielen Dank für eure Mühen.
Der Code:
Option Explicit
Private Sub CommandButton1_Click()
Dim i As Byte
For i = 1 To 10
Sheets("Tabelle1").Cells(1, i).Value = Me.Controls("Textbox" & i)
Next
Unload Me
End Sub
Private Sub Buchen_Click()
End Sub
LG
Sascha
Anzeige