home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1
- Caption = "PC-WELT-Tool"
- ClientHeight = 3720
- ClientLeft = 45
- ClientTop = 435
- ClientWidth = 4920
- OleObjectBlob = "PRWFilter.frx":0000
- StartUpPosition = 1 'Fenstermitte
- Attribute VB_Name = "UserForm1"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Private Sub CommandButton1_Click()
- Unload Me
- End Sub
- Private Sub TextBox1_Change()
- Suchstring = TextBox1.Text
- End Sub
- Private Sub TextBox2_Change()
- spalte1 = TextBox2.Text
- End Sub
- Private Sub TextBox3_Change()
- spalte2 = TextBox3.Text
- End Sub
- Private Sub TextBox4_Change()
- spalte3 = TextBox4.Text
- End Sub
- Private Sub UserForm_Initialize()
- ' Hier k
- nnen Sie Werte eintragen, die Excel beim Makreoaufruf
- ' im Startdialog fest vorgeben soll.
- 'Suchstring = "Wasnicht"
- 'spalte1 = "A"
- 'spalte2 = "B"
- 'spalte3 = "N"
- 'TextBox1.Text = Suchstring
- 'TextBox2.Text = spalte1
- 'TextBox3.Text = spalte2
- 'TextBox4.Text = spalte3
- End Sub
-