Hallo,
kopiere das folgende Makro in ein [url=
http://www.excelbeispiele.de/Modul.htm]Standardmodul[/url] deiner Arbeitsmappe:
[code]Sub Summe_suchen()
Dim strEingabe As String
Dim arrEingabe As Variant
Dim lngLSpalte As Long
Dim lngZaehler As Long
Dim i As Long
'Suchzahlen abfragen
strEingabe = InputBox("Bitte geben Sie Zahlen durch Komma getrennt ein!", "Eingabe")
'Falls keine Eingabe erfolgt, Makro beenden
If Len(strEingabe) = 0 Then
MsgBox "Es ist keine Eingabe erfolgt!", 16, "Abbruch"
Exit Sub
End If
'Eingabe aufteilen
arrEingabe = Split(strEingabe, ",")
With ActiveSheet
'letzte Spalte in Zeile 4 ermitteln
lngLSpalte = .Cells(4, Columns.Count).End(xlToLeft).Column
For lngSpalte = 1 To lngLSpalte
For i = LBound(arrEingabe) To UBound(arrEingabe)
If .Cells(4, lngSpalte).Value + .Cells(5, lngSpalte).Value = CLng(arrEingabe(i)) Then
lngZaehler = lngZaehler + 1
.Range(.Cells(4, lngSpalte), .Cells(5, lngSpalte)).Interior.ColorIndex = 33
End If
Next i
Next lngSpalte
End With
If lngZaehler = 0 Then MsgBox "Es wurden keine Übereinstimmungen gefunden!", 48, "Hinweis"
End Sub[/code]
Ich habe nur eine Prüfung eingebaut, ob überhaupt etwas eingegeben wurde. Ob Zahlen eingegeben werden, wird nicht geprüft.
Gruß
M.O.