Thema Datum  Von Nutzer Rating
Antwort
07.02.2023 17:45:05 Bernd
NotSolved
07.02.2023 20:39:33 ralf_b
NotSolved
Rot VBA übernimmt manchmal Wert aus Zelle nicht
08.02.2023 10:39:39 Bernd
NotSolved
08.02.2023 12:59:22 Gast42447
NotSolved
13.02.2023 13:36:35 Bernd
NotSolved
15.02.2023 23:25:02 Gast50869
NotSolved
16.02.2023 08:16:58 Gast35870
Solved
16.02.2023 13:29:47 Bernd
Solved
16.02.2023 17:37:11 Gast9226
Solved

Ansicht des Beitrags:
Von:
Bernd
Datum:
08.02.2023 10:39:39
Views:
222
Rating: Antwort:
  Ja
Thema:
VBA übernimmt manchmal Wert aus Zelle nicht

Hi, ralf_b
Nun der komplette Code erstreckt sich über 812 Zeilen.
Deshalb habe ich nur den Teil ausgeschnitten, den es betrifft.
Kurz gesagt geht es darum:

Nochmal:
   SuchZeile = Suchwert.Row         'Hier lege ich fest in welcher Zeile gerade der zu suchende Wert in der Quelldatei liegt.
 DoEvents

Hier liegt das Problem:
   ZName = Range(QRB & SuchZeile).Value & ".xlsm"     ' Hier soll die Variable ZName befüllt werden. QRB = "AD" Suchzeile ergiebt sich aus der aktuell zu suchenden Zeile aus der Quelldatei z.B. = 5

        Und zwar soll die Zelle Range(QRB & SuchZeile) (Range("AD5") der Wert (.Value) ausgelesen werden und ein ".xlsm" angehängt werden.
        Einige Durchläufe lang funktioniert es prima. Dann plötzlich liest er die Zelle in der z.B. "Ost" steht nicht aus.
        Es sollte in der Variablen "Ost.xlsm" stehen, aber es steht nur ".xlsm"
        Wenn ich die gleiche Zeile mit F8 (Step by Step) durchgehe funktioniert es.
        Das mit der Dauerschleife ist nur ein Provisorium, mit dem ich den Fehler abfangen wollte und dem Makro die Gelegenheit geben wollte es nochmal zu machen.
        Aber auch das funktioniert leider nicht. Aber mit F8 geht es. Meines Erachtens liegt es also nicht an der Zelle oder deren Inhalt.
        Woran es liegt weiß ich aber auch nicht.
        Die DoEvents sollten eigentlich dem Programm Zeit geben den Code dort auszuführen.
        Funktioniert aber auch nicht.
        DoEvents und die Schleife sind einfach mein Versuch den Fehler abzufangen.
        Ich könnte auch ein If ZName = ".xlsm" Then Stop einfügen, müsste dann aber immer wieder per F8 weitermachen.
        Das liegt aber nicht im Sinne des Erfinders.
        Deshalb meine Frage hier.

DoEvents
   If ZName = ".xlsm" Then
   GoTo Nochmal
   End If


Ich hoffe ich konnte etwas Licht bringen und ihr könnt helfen.


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
07.02.2023 17:45:05 Bernd
NotSolved
07.02.2023 20:39:33 ralf_b
NotSolved
Rot VBA übernimmt manchmal Wert aus Zelle nicht
08.02.2023 10:39:39 Bernd
NotSolved
08.02.2023 12:59:22 Gast42447
NotSolved
13.02.2023 13:36:35 Bernd
NotSolved
15.02.2023 23:25:02 Gast50869
NotSolved
16.02.2023 08:16:58 Gast35870
Solved
16.02.2023 13:29:47 Bernd
Solved
16.02.2023 17:37:11 Gast9226
Solved