TextBox, von Anfang an
04.03.2003 10:35:53
BernhardStock
habe noch nie mit TextBoxen gearbeitet und probiere seit gestern jeden Tipp aus der Recherche, komme aber nicht klar.
Ich möchte in einer Textbox eine 6-stellige Nummer eingeben, die ggf. in Spalte B bereits vorhanden ist. Ist sie vorhanden soll dorthin gesprungen werden. Ist sie nicht vorhanden soll Excel in die nächste freie zelle in Spalte B.
Mein 1. Problem..... wie erstelle ich eine Textbox?
für das zweite Problem habe ich folgendes Script gefunden, das man mit sicherheit entsprechend modifizieren kann.
Hier das Script:
ClassModule: frmSuchen
Private Sub cmdSuchen_Click()
Dim rng As Range
Set rng = Columns(1).Find( _
what:=txtSuchbegriff.Text, _
lookat:=xlPart, _
LookIn:=xlFormulas)
If rng Is Nothing Then
MsgBox "Suchbegriff wurde nicht gefunden!"
Else
MsgBox "Suchbegriff wurde in Zeile" & rng.Row & " gefunden!"
End If
End Sub
Private Sub cmdWeiter_Click()
Unload Me
End Sub
StandardModule: basMain
Sub CallForm()
frmSuchen.Show
End Sub
dank vorab...
Bernhard
Anzeige