Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Wert bei Übereinstimmung von 3 Spalten eintragen

Gruppe

Suchen

Problem

Die Werte aus C2:C4 sollen im Datenblatt spaltenweise gesucht und der Wert aus Zelle C5 neben den Fundwerten eingetragen werden.

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

StandardModule: Modul1

Sub Eintragen()
   Dim iRow As Integer
   Dim bln As Boolean
   With Worksheets("Daten")
      iRow = 2
      Do Until IsEmpty(.Cells(iRow, 1))
         If .Cells(iRow, 1).Value = Range("MaterialNummer").Value And _
            .Cells(iRow, 2).Value = Range("NummerDispo").Value And _
            .Cells(iRow, 3).Value = Range("NameDispo").Value Then
            .Cells(iRow, 4).Value = Range("NeuerWert").Value
            bln = True
         End If
         iRow = iRow + 1
      Loop
   End With
   If bln = False Then
      Beep
      MsgBox "Die Eingabezelle wurde nicht gefunden!"
   End If
End Sub