Thema Datum  Von Nutzer Rating
Antwort
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
Rot BITTE UM HILFE - Laufzeitfehler 91 Objektvariable oder With-Blockvariable nicht festgelegt
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:
Gast81746
Datum:
01.07.2016 22:37:01
Views:
738
Rating: Antwort:
  Ja
Thema:
BITTE UM HILFE - Laufzeitfehler 91 Objektvariable oder With-Blockvariable nicht festgelegt

Danke für das nette Angebot. EIne Frage hätte ich tatsächlich noch offen, wirklich versprochen die letzte.
Wenn ich dein Code nehme und direkt dahinter einen analogen Programmcode reinbaue der wie folgt aussieht: 

 

        zweitesuche = Application.CountIf(ActiveSheet.Range("A3:AG3"), finanzpartnername)
                If zweitesuche > 0 Then
                finanzpartnerinauswertungsblatt = finanzpartnername
                spalte = Application.WorksheetFunction.Match(finanzpartnername, ActiveSheet.Range("A3:AG3"), 0)
                MsgBox spalte
                Else
                MsgBox "Wert nicht gefunden!"
                End If
            
                drittesuche = Application.CountIf(ActiveSheet.Range("A1:A150"), betriebsnummer)
                If drittesuche < 0 Then
                betriebsnummerinauswertungsblatt = betriebsnummer
                spaltebetrieb = Application.WorksheetFunction.Match(finanzpartnername, ActiveSheet.Range("A1:A150"), 0)
                MsgBox spaltebetrieb
                Else
                MsgBox "Wert nicht gefunden!"
                End If
                

Dann lande ich quasi in einer Art "Endlosschleife. Im oberen Teil suche ich mir ja dank deiner erfolgreich die Reihe raus, bspw. erhalte ich bei einem ersten Durchlauf als Ergebnis für den Wert "spalte" den Wert 5. Ist auch alles prima.

Unmittelbar danach zeigt mir die Msg Box den Wert "Wert nicht gefunden" an, obwohl das Programm hätte etwas finden sollen. Ich hab das Zeichen kleiner gleich auch mal testweise wie oben auf größer > gestellt, also genau wie oben, dann erhalte ich wieder einen Laufzeitfehler :S 

Also mein Ziel ist im eigentlichen Sinne nur die exakte Reihennummer für den Wert des Finanzpartners im angebenen Bereich (A3:AG3) <--- das klappt ja einwandfrei und analog dazu den Wert der exakten Reihennummer für die Betriebsnummer in dem angegebenen Bereich (A1:A150) zu ermitteln. ---> genau das klappt nicht. Liegt es evtl. an irgendeiner Reihenfolge? Ich dachte dass dies genau so funktioniert. Leider tut es das so wie ich es hier notiert habe nicht. 

Wenn du dich noch ein letztes mal erbarmen könntest? Ich bin noch lange on, das Ganze lässt mir keine Ruhe. 

 


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
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
Rot BITTE UM HILFE - Laufzeitfehler 91 Objektvariable oder With-Blockvariable nicht festgelegt
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