Habe mein Problem schon mal beschrieben und zwar folgendes:
Habe eine Arbeitsmappe mit mehr als 100 sheets.
Ich möchte nun eine Nummer eingeben nach der im jeden sheet gesucht werden soll, diese Nummer kommt nur einmal je sheet vor.
Sobald die Nummer gefunden wurde soll die Zahl die rechts daneben steht summiert (es kann sein das dort keine Zahl steht!!" )werden und zum Schluß soll mir die Summe angezeigt werden.
Habe folgenden Vorschlag von u_ bekommen:
Sub Summe()
Dim sh As Worksheet, sngSum As Single, rngFind As Range, strSuchen As String
strSuchen = InputBox("Nummer?")
If strSuchen = "" Then Exit Sub
For Each sh In Worksheets
Set rngFind =Nothing
Set rngFind = sh.Cells.Find(strSuchen, Cells(1, 1))
If Not rngFind Is Nothing Then sngSum = sngSum + rngFind.Offset(0, 1)
Next sh
MsgBox sngSum
End Sub
Wenn ich diese Makro ausführe bekomme ich hin und wieder die Fehlermeldung ´13.
und folgende Zeile wird makiert:
If Not rngFind Is Nothing Then sngSum = sngSum + rngFind.Offset(0, 1)
Wo kann der Fehler liegen? Vielleicht, weil manchmal in der Spalte recht neben dem gefundenen Wert nicht steht?
Hoffe Ihr könnt mir helfen!!
Gruß
anna