Thema Datum  Von Nutzer Rating
Antwort
Rot Bitte um Hilfe! VBA Experte oder CrazyTom gesucht!
 30.06.2016 13:14:09 David
NotSolved
30.06.2016 13:36:08 Gast31989
NotSolved
30.06.2016 13:40:09 David
NotSolved
30.06.2016 13:37:35 David
Solved

Ansicht des Beitrags:
Von:
David		 Datum:
30.06.2016 13:14:09		 Views:
1252		 Rating:
     
Antwort:
  Ja
Thema:
Bitte um Hilfe! VBA Experte oder CrazyTom gesucht!

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. 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Bitte um Hilfe! VBA Experte oder CrazyTom gesucht!
 30.06.2016 13:14:09 David
NotSolved
30.06.2016 13:36:08 Gast31989
NotSolved
30.06.2016 13:40:09 David
NotSolved
30.06.2016 13:37:35 David
Solved