VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Suchbegriff abfragen und Fundzeile in UserForm-TextBoxes

Gruppe

Dialog

Bereich

TextBox

Thema

Suchbegriff abfragen und Fundzeile in UserForm-TextBoxes

Problem

Ein Suchbegriff soll abgefragt und in der Tabelle gesucht werden. Die Daten der Fundzeile sind in UserForm-TextBoxes einzlesen und anzuzeigen.

Lösung

Den nachfolgenden Code in die benannten Module einfügen.




ClassModule: frmTexte

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

StandardModule: basMain

Sub CallForm()
   Dim rng As Range
   Dim iCounter As Integer
   Dim sSearch As String
   sSearch = InputBox("Suchbegriff:", , "Zeile 5 - Spalte 3")
   If sSearch = "" Then Exit Sub
   Set rng = Cells.Find( _
      what:=sSearch, lookat:=xlWhole, LookIn:=xlValues)
   If rng Is Nothing Then
      Beep
      MsgBox "Suchbegriff wurde nicht gefunden!"
      Exit Sub
   End If
   For iCounter = 1 To 6
      frmTexte.Controls("TextBox" & iCounter).Text = _
         Cells(rng.Row, iCounter)
   Next iCounter
   frmTexte.Show
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und TextBox