habe folgende Frage an Euch schon mal gestellt:
Habe eine Arbeitsmappe, mit mehreren sheets (varriert).
Es soll nun im jeden sheet nach einer bestimmten Nr. gesucht werden z.B. 123456. Sobald diese Nummer gefunden wurde soll der Wert recht daneben summiert werden. Die Nummer 123456 kann mehrmals in der Arbeitsmappe vorkommen. Schön wäre es wenn ich zu Beginn des Makro irgenwo die zu suchende Nr. eingeben kann.
Ich hoffe Ihr könnt mir weiterhelfen !?
Und folgende Antwort 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
Danach habe ich nachfolgende Frage gestellt:
Hallo u_
hier mal eine Beispieldatei!
https://www.herber.de/bbs/user/13866.xls
Hier funktioniert es komischerweise.
Liegt es vielleicht daran, das meine Arbeitsmappe ca. 100 sheets hat?
Gibt es da vielleicht irgendeine Begrenzung?
Hoffe Ihr seid mir nicht böse, dass ich diese Frage nochmal stelle, aber brauche unbedingt hilfe !!!
Gruß
anna