Hallo liebe Helfer :)
Ich befinde mich zur Zeit an meiner ersten VBA-Angelegenheit und habe nun nach einigen Tagen ein großes Problem (wahrscheinlich nicht für euch). Ich möchte in einer Eingabemaske (bestehend aus 34 TextBoxen), in einer TextBox etwas eingeben und darauf hin sollen über CommandBox die restlichen TextBoxen ausgefüllt werden. Soweit so gut.
Da ich aber nun als 35tes Objekt nun gerne eine Dropdown Funktion nutzen möchte, fehlt mit der Ansatz.
Meine VBA-Programmierung sieht im Moment so aus:
Private Sub CommandButton1_Click()
Dim WkSh As Worksheet
Dim iSpalte As Integer
Dim iIndex As Integer
Dim sSuchbegriff As String
Dim rZelle As Range
Dim sFundst As String
Dim bGefunden As Boolean
For iIndex = 1 To 35
If Controls("TextBox" & iIndex).Value <> "" Then
bGefunden = True
Exit For
End If
Next iIndex
If bGefunden = True Then
iSpalte = iIndex
sSuchbegriff = Controls("TextBox" & iIndex).Value
Else
MsgBox "Es wurde keine Eingabe getätigt.", _
48, " Hinweis für " & Application.UserName
TextBox1.SetFocus
Exit Sub
End If
Set WkSh = Worksheets("Daten")
With WkSh.Columns(iSpalte)
Set rZelle = .Find(sSuchbegriff, lookat:=xlWhole, LookIn:=xlValues)
If Not rZelle Is Nothing Then
sFundst = rZelle.Address
Do
For iIndex = 1 To 35
Controls("TextBox" & iIndex).Value = WkSh.Cells(rZelle.Row, iIndex).Value
Next iIndex
If MsgBox(" Weitersuchen? ", vbYesNo, _
" Frage an " & Application.UserName) = vbNo Then
Exit Sub
Else
Set rZelle = .FindNext(rZelle)
If rZelle.Address = sFundst Then
MsgBox "Es gibt keine weiteren zum Suchbegiff passenden Einträge.", _
48, " Hinweis für " & Application.UserName
End If
End If
Loop While Not rZelle Is Nothing And rZelle.Address <> sFundst
Else
MsgBox "der Suchbegriff """ & sSuchbegriff & """ wurde nicht gefunden.", _
48, " Hinweis für " & Application.UserName
End If
End With
End Sub
Private Sub CommandButton2_Click()
Unload UserForm5
End Sub
Private Sub UserForm5_Initialize()
Dim iIndex As Integer
Dim iTop As Integer
Me.Caption = Space(20) & "Suchen - Weitersuchen"
iTop = 12
For iIndex = 1 To 35
With Controls("TextBox" & iIndex)
.Height = 20
.Left = (UserForm5.Width - 96) / 2
.Top = iTop
.Width = 96
.Font.Size = 12
End With
iTop = iTop + 26
Next iIndex
With CommandButton1
.Height = 24
.Left = 32
.Top = iTop
.Width = 96
.Font.Size = 10
.Caption = "Suchen"
.Accelerator = "S"
End With
With Image1
.Height = 24
.Left = 24 + 96 + 20
.Top = iTop
.Width = 24
End With
End Sub
Option Explicit
Nun kommt die Frage. Wo kann ich hier nun die CommandBox Funktion einfügen?? Diese soll als Auswahlkriterien die Inhalte der Spalten Z bis AI haben.
Könnt ihr mir bitte hierbei helfen? Meine Kentnisse sind mehr als beschränkt. Natürlich habe ich diesen Code auch nicht selbst geschrieben, sondern im Internet gefunden...
Bitte helft mir !!! |