Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Wert in Tabellenblatt suchen und alle Fundwerte in zweite Tabelle

Gruppe

Suchen

Problem

Wie kann ich ein Tabellenblatt nach einem bestimmten Begriff durchsuchen und die gefundenen Werte in eine zweite Tabelle eintragen lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub FindenUndKopieren()
   Dim iRowS As Integer, iRowT As Integer
   Dim sWord As String
   sWord = InputBox( _
      prompt:="Suchbegriff:", _
      Default:="Zeile 3 - Spalte 1")
   If sWord = "" Then Exit Sub
   iRowS = 1
   iRowT = 1
   With Worksheets("Tabelle2")
      Do Until IsEmpty(Cells(iRowS, 1))
         If Cells(iRowS, 1) = sWord Then
            Rows(iRowS).Copy .Rows(iRowT)
            iRowT = iRowT + 1
         End If
         iRowS = iRowS + 1
      Loop
      .Columns.AutoFit
      .Select
   End With
End Sub