home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2003 October / PCWELT_10_2003.ISO / pcwsoft / PCWFilter.z.exe / PRWFilter.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2003-08-06  |  1.1 KB  |  43 lines

  1. VERSION 5.00
  2. Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 
  3.    Caption         =   "PC-WELT-Tool"
  4.    ClientHeight    =   3720
  5.    ClientLeft      =   45
  6.    ClientTop       =   435
  7.    ClientWidth     =   4920
  8.    OleObjectBlob   =   "PRWFilter.frx":0000
  9.    StartUpPosition =   1  'Fenstermitte
  10. Attribute VB_Name = "UserForm1"
  11. Attribute VB_GlobalNameSpace = False
  12. Attribute VB_Creatable = False
  13. Attribute VB_PredeclaredId = True
  14. Attribute VB_Exposed = False
  15. Private Sub CommandButton1_Click()
  16. Unload Me
  17. End Sub
  18. Private Sub TextBox1_Change()
  19.   Suchstring = TextBox1.Text
  20. End Sub
  21. Private Sub TextBox2_Change()
  22.    spalte1 = TextBox2.Text
  23. End Sub
  24. Private Sub TextBox3_Change()
  25.    spalte2 = TextBox3.Text
  26. End Sub
  27. Private Sub TextBox4_Change()
  28.     spalte3 = TextBox4.Text
  29. End Sub
  30. Private Sub UserForm_Initialize()
  31. ' Hier k
  32. nnen Sie Werte eintragen, die Excel beim Makreoaufruf
  33. ' im Startdialog fest vorgeben soll.
  34. 'Suchstring = "Wasnicht"
  35. 'spalte1 = "A"
  36. 'spalte2 = "B"
  37. 'spalte3 = "N"
  38. 'TextBox1.Text = Suchstring
  39. 'TextBox2.Text = spalte1
  40. 'TextBox3.Text = spalte2
  41. 'TextBox4.Text = spalte3
  42. End Sub
  43.