Thema Datum  Von Nutzer Rating
Antwort
Rot Mit TextBox suchen und andere Textboxen ausfüllen
 03.08.2015 14:52:42 Gast47411
NotSolved
03.08.2015 14:54:34 Gast81700
NotSolved

Ansicht des Beitrags:
Von:
Gast47411		 Datum:
03.08.2015 14:52:42		 Views:
2464		 Rating:
     
Antwort:
  Ja
Thema:
Mit TextBox suchen und andere Textboxen ausfüllen
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 !!!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Mit TextBox suchen und andere Textboxen ausfüllen
 03.08.2015 14:52:42 Gast47411
NotSolved
03.08.2015 14:54:34 Gast81700
NotSolved