Falsche summierung durch VBA! Hilfeee!!!
03.03.2005 12:41:11
ralle
Ich habe folgendes Problem und hoffe ihr könnt mir weiterhelfen.
Habe nachfolgendes Makro:
Sub suchen_und_summieren()
Dim sh As Worksheet
Dim rngFind As Range
Dim strSuchen As String
Dim sngSum As Single
strSuchen = InputBox("Nummer?")
If strSuchen = "" Then Exit Sub
For Each sh In Worksheets
Set rngFind = sh.Cells.Find(strSuchen, Cells(1, 1))
If Not rngFind Is Nothing Then
If IsNumeric(rngFind.Offset(0, 4).Value) Then
sngSum = sngSum + rngFind.Offset(0, 4).Value
End If
Set rngFind = Nothing
End If
Next sh
MsgBox sngSum
End Sub
Bei diesem Makro werde ich aufgefordert eine Zahl einzugeben. Die Zahl wird dann in der Spalte A gesucht. Wenn diese gefunden wird, wird die dazugehörige Zahl aus der Spalte D summiert. Dies läuft über alle vorhandenen Tabellenblätter. Danach wird über eine Messagebox die Summe ausgegeben.
Dies funktioniert auch solange bis ich eine 6stellige Nummer eingebe. Gebe ich jedoch eine 5stellige Nummer ein, gibt er mir eine falsche Summe aus.
Ich muss dazusagen, das die Spalte A sowohl 5stellige als auch 6stellige Nummer enthält.
Wo liegt mein Fehler? Hoffe ihr könnt mir helfen!!!
Gruß
ralle