Hallo zusammen,
ich brauche dringende Hilfe. Ich verstehe die Welt nicht mehr. Ich hab dieses Code hier aus dem Forum von einem netten Forenmitglied bekommen und verwende diesen auch in meiner Excel- Datei.
Sub test()
Dim c As Range
Dim firstAddress As String
Dim dblErgebnis As Double
With Worksheets("andere Tabelle")
Set c = .Columns(1).Find(Range("U2").Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Do
If IsNumeric(.Cells(c.Row, "N")) Then
dblErgebnis = dblErgebnis + .Cells(c.Row, "N").Value
End If
Set c = .Columns(1).FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Range("A4").Value = dblErgebnis
End Sub
Möchte ich genau diesen Code 1:1 auf einem anderen Arbeitsblatt ausfüllen funktioniert der Code nicht. Nach Durchgehen des Compilers wird mir immer angezeigt dass der Wert C = Nothing beträgt obwohl in der Zelle U2 ein Wert steht, nämlich die Zahl 2 ....
Ich kann das Problem überhaupt nicht nachvollziehen... Hat jemand dafür eine Erklärung? Unveränderter Code 1:1 so wie er hier steht, bin total am Verzweifeln.
Dadurch dass "c" den Wert "Nothing" erhält wird die IF-Abfrage in der Do-While Schleife auch nciht ausgeführt, allerdings benötige ich zwingend diese IF-Abfrage.
Gibt es irgendeinen Experten ?
Ich wäre sehr sehr sehr dankbar, wenn mir jemand helfen könnte.
|