Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Name und Vorname suchen, Werte und Fundstellen importieren

Gruppe

Vergleich

Problem

Die Werte aus Spalte C der in den Zellen F1 und F2 genannten Person sollen aus den Folgeblättern ausgelesen und mit Fundstellenangabe in A:C gelistet werden.

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

StandardModule: Modul1

Sub GetValues()
   Dim iWks As Integer, iRow As Integer, iRowT As Integer
   Dim sName As String, sSName As String
   sName = Range("F1").Value
   sSName = Range("F2").Value
   For iWks = ActiveSheet.Index + 1 To Worksheets.Count
      iRow = 1
      With Worksheets(iWks)
         Do Until IsEmpty(.Cells(iRow, 1))
            If .Cells(iRow, 1).Value = sName And .Cells(iRow, 2).Value = sSName Then
               iRowT = iRowT + 1
               Cells(iRowT, 1).Value = .Cells(iRow, 3).Value
               Cells(iRowT, 2).Value = .Name
               Cells(iRowT, 3).Value = .Cells(iRow, 1).Address(False, False)
            End If
            iRow = iRow + 1
         Loop
      End With
   Next iWks
End Sub