Hallo,
ich will ein Formular anzeigen, beim laden die Steuerelemente des Formulares mit werden füllen und danach das Formular anzeigen. Dies geschieht über eine Schaltfläche in einer Symbolleiste.
Der nachfolgende Code steht in einem Modul. Beim Drücken der Schaltfläche passiert nichts!
Warum?
Danke für Hinweise!
Folgender Code kommt zur Anwendung:
On Error Resume Next
Dim aktBlatt As String
Dim z As Long
Load frmDatentransfer
aktBlatt = ActiveSheet.Name
If ActiveSheet.Name = "Bestellungen" Then
frmDatentransfer.Caption = "Datentransfer von " & aktBlatt & "nach Detailauswertung"
frmDatentransfer.tbZielfeld_Text.Text = aktBlatt
frmDatentransfer.tbZielfeld_Text.Enabled = False
frmDatentransfer.lbVerfügbare_Felder.Caption = "Verfügbare Felder in der Tabelle " & aktBlatt
end if
frmDatentransfer.show
End Sub