Thema: Wert bei Übereinstimmung von 3 Spalten eintragen

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

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Suchen