Thema Datum  Von Nutzer Rating
Antwort
Rot BITTE UM HILFE - Laufzeitfehler 91 Objektvariable oder With-Blockvariable nicht festgelegt
01.07.2016 18:35:07 David
NotSolved
01.07.2016 18:54:01 David
NotSolved
01.07.2016 19:00:52 David
NotSolved
01.07.2016 19:02:13 David
NotSolved
01.07.2016 20:06:28 Gast35136
NotSolved
01.07.2016 20:37:48 David
NotSolved
01.07.2016 20:56:31 David
NotSolved
01.07.2016 21:31:19 Gast44489
NotSolved
01.07.2016 21:55:09 David
NotSolved
01.07.2016 21:58:04 David
NotSolved
01.07.2016 22:02:56 David
NotSolved
01.07.2016 22:19:56 Gast67523
Solved
01.07.2016 22:37:01 Gast81746
NotSolved
01.07.2016 22:37:44 David
NotSolved
01.07.2016 23:24:45 Gast780
NotSolved
02.07.2016 09:33:26 David
NotSolved
02.07.2016 11:22:17 Gast28207
NotSolved
02.07.2016 12:11:31 Gast19340
NotSolved
03.07.2016 16:21:02 David
NotSolved
03.07.2016 20:42:49 Gast12039
NotSolved
03.07.2016 21:10:01 David
NotSolved
03.07.2016 21:48:39 Gast2093
NotSolved
04.07.2016 05:49:19 David
NotSolved
04.07.2016 14:55:00 David
NotSolved
04.07.2016 15:12:42 David
NotSolved
04.07.2016 15:24:49 David
NotSolved
04.07.2016 16:35:40 Gast39343
NotSolved
04.07.2016 17:06:13 David
NotSolved
04.07.2016 17:19:11 David
NotSolved
04.07.2016 17:28:16 David
NotSolved
04.07.2016 17:58:03 Gast41500
NotSolved
04.07.2016 18:15:16 David
NotSolved
24.07.2016 14:07:20 David
NotSolved
24.07.2016 16:05:35 David
NotSolved

Ansicht des Beitrags:
Von:
David
Datum:
01.07.2016 18:35:07
Views:
1383
Rating: Antwort:
  Ja
Thema:
BITTE UM HILFE - Laufzeitfehler 91 Objektvariable oder With-Blockvariable nicht festgelegt

Guten Tag zusammen,

mal wieder ich, mal wieder am verzweifeln. Mein Code, mein Problem ist unterm Quelltext. 
 

 Set Gruppennummer = .Columns(5).Find(Range("B2").Value, LookIn:=xlValues, LookAt:=xlWhole)
        
        If Not Gruppennummer Is Nothing Then
            firstAddress = Gruppennummer.Address
            Do
            
                If IsNumeric(.Cells(Gruppennummer.Row, "A")) Then
                    kontostand = .Cells(Gruppennummer.Row, "N").Value
                    finanzpartnername = .Cells(Gruppennummer.Row, "J").Value
                    betriebsnummer = .Cells(Gruppennummer.Row, "A").Value
                    Betriebsname = .Cells(Gruppennummer.Row, "B").Value
                                                         
                 'Suchkriterium innerhalb des Auswertungsblatts festlegen
                                                         
                  ' Zeile = Range("E3:EE3").Find(What:=finanzpartnername, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
                
                  Set Rng = ActiveSheet.Range("E3:EEE3").Find(finanzpartnername)
                  If Rng Is Nothing Then
                  MsgBox "Wert nicht gefunden!"
                  Else
                  finanzpartnerinauswertungsblatt = finanzpartnername
                   End If

                
                 'Wenn der gefundene finanzpartnername gleich dem Finanzpartnernamen des Auswertungsblatts ist
                    If Cells(3, finanzpartnerspalte).Value = finanzpartnername Then
                    'zwischenspeicherfinanzpartnername = Cells(3, finanzpartnerspalte).Value
                                        
                    'Soll in die Spalte des Finanzpartners eingetragen werden
                     Cells(5, kontostanddesfinanzpartners).Value = kontostand
                                    
                        Else
                        
                     
                     End If
                     
                End If
                 
                 Set Gruppennummer = .Columns(5).FindNext(Gruppennummer)
                nächstfreieZelle = nächstfreieZelle + 1
                
            Loop While Not Gruppennummer Is Nothing And Gruppennummer.Address <> firstAddress

 

Explizit geht es darum dass ich aus einer anderen Tabelle den Namen eines Finanzpartners suche. Dann soll geschaut werden, ob der Name dieses Finanzpartners in meiner aktuell aktiven Tabelle vorhanden ist.  Wenn ja soll der Wert in eine bestimmte Zelle geschrieben werden. 

Das Problem: Ganz unten wird die Gruppennummer dann nicht mehr gesetzt.....aufgrund dessen erhalte ich die im Betreff genannte Fehlermeldung....  
Die letzte SET-Anweisung wird zwar ausgeführt aber die Gruppennummer ist dann nothing wie kann das sein? Es muss in einem Zusammenhang mit der ersten Set Rng Anweisung stehen, ich kann mir aber überhaupt nicht erklären wieso das so ist... weiß zufällig jemand Rat oder hatte bereits in der Vergangenheit ähnliche Probleme? Wäre dankbar für jede Hilfestellung


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 - Laufzeitfehler 91 Objektvariable oder With-Blockvariable nicht festgelegt
01.07.2016 18:35:07 David
NotSolved
01.07.2016 18:54:01 David
NotSolved
01.07.2016 19:00:52 David
NotSolved
01.07.2016 19:02:13 David
NotSolved
01.07.2016 20:06:28 Gast35136
NotSolved
01.07.2016 20:37:48 David
NotSolved
01.07.2016 20:56:31 David
NotSolved
01.07.2016 21:31:19 Gast44489
NotSolved
01.07.2016 21:55:09 David
NotSolved
01.07.2016 21:58:04 David
NotSolved
01.07.2016 22:02:56 David
NotSolved
01.07.2016 22:19:56 Gast67523
Solved
01.07.2016 22:37:01 Gast81746
NotSolved
01.07.2016 22:37:44 David
NotSolved
01.07.2016 23:24:45 Gast780
NotSolved
02.07.2016 09:33:26 David
NotSolved
02.07.2016 11:22:17 Gast28207
NotSolved
02.07.2016 12:11:31 Gast19340
NotSolved
03.07.2016 16:21:02 David
NotSolved
03.07.2016 20:42:49 Gast12039
NotSolved
03.07.2016 21:10:01 David
NotSolved
03.07.2016 21:48:39 Gast2093
NotSolved
04.07.2016 05:49:19 David
NotSolved
04.07.2016 14:55:00 David
NotSolved
04.07.2016 15:12:42 David
NotSolved
04.07.2016 15:24:49 David
NotSolved
04.07.2016 16:35:40 Gast39343
NotSolved
04.07.2016 17:06:13 David
NotSolved
04.07.2016 17:19:11 David
NotSolved
04.07.2016 17:28:16 David
NotSolved
04.07.2016 17:58:03 Gast41500
NotSolved
04.07.2016 18:15:16 David
NotSolved
24.07.2016 14:07:20 David
NotSolved
24.07.2016 16:05:35 David
NotSolved