Thema Datum  Von Nutzer Rating
Antwort
Rot VBA übernimmt manchmal Wert aus Zelle nicht
07.02.2023 17:45:05 Bernd
NotSolved
07.02.2023 20:39:33 ralf_b
NotSolved
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:
07.02.2023 17:45:05
Views:
1252
Rating: Antwort:
  Ja
Thema:
VBA übernimmt manchmal Wert aus Zelle nicht

Hi,

Jetzt habe ich aber einseltsames Problem.

Ich habe mehrere Tabellen (7) die ich aus einer Tabelle heraus aktualisiere.

Das heist ich habe 7 Bezirke (Nord, Ost, Mitte, Südwest, usw.)
Die Dateien habe ich als .xlsm Dateien gespeichert.
Entsprechend Nord.xlsm, Ost.xlsm.....

Ich habe in der Quelldatei eine Spalte, die ich bei jedem Suchdurchlauf abfrage, in der Nord, Ost...steht.

Manchmal übernimmt die Variable aber nicht den Wert, der in der Zelle steht.

Dann steht in der Variblen ZName (Zielname des Workbooks) nur ".xlsm"

Meistens funktioniert es, aber so alle 10-20 Durchläufe bleibt es hängen. 

Ich habe versucht durch DoEvents und einer Schleife dies abzufangen (Mache es halt nochmal) aber es funktioniert nicht. Es bleibt immer wieder hängen.

Bei über 2.000 Suchzeilen ein NoGo.

Vielleicht hattet ihr ja auch schon mal so ein Problem?

 

Habt ihr einen Tipp?

Hier der Teilcode um den es geht:

Suche:
   'Meldungsnummern im Datenexport
  With Workbooks(QName.Name).Worksheets(QSheet.Name) ' Mit der Quelldatei, Quellsheet
    Set rngDatenexport = .Range("A2", .Cells(.Rows.Count, "A").End(xlUp)) 'Die Range "A2" bis letzte Zeile in Spalte "A"
  End With
  
  Dim rngDatenexportNr As Excel.Range
  Dim rngDokumentationNr As Excel.Range
  Dim Suchwert As Range
  Dim Gefunden As Variant
  Dim ZZeile As Long
  Dim QZeile As Long
  Dim QletzteZeile As Long
  Dim SuchZeile As Long
  
  
   For Each Suchwert In rngDatenexport.Cells ' Da setzt man die Range in einzelne Zellen um
   
Nochmal:
   SuchZeile = Suchwert.Row
 DoEvents
   ZName = Range(QRB & SuchZeile).Value & ".xlsm"
DoEvents
   If ZName = ".xlsm" Then
   GoTo Nochmal
   End If
   
   
  'Meldungsnummern im Zielsheet (Ändert sich bei jedem Durchlauf)
  With Workbooks(ZName).Worksheets(ZSheet) ' mit der Zieldatei, Zielsheet
    Set rngDokumentation = .Range("C3", .Cells(.Rows.Count, "C").End(xlUp)) 'Die Range "C3" bis letzte Zeile in Spalte "C"
  End With
  
   Gefunden = Application.Match(Suchwert, rngDokumentation, 0)

  

  
                  QZeile = Suchwert.Row 'Ermitteln der Quellzeile
                  ZZeile = Gefunden + 2 'Ermitteln der Zielzeile +2 weil Start ab C3
  
 

Ich sage schon einmal Danke.


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 VBA übernimmt manchmal Wert aus Zelle nicht
07.02.2023 17:45:05 Bernd
NotSolved
07.02.2023 20:39:33 ralf_b
NotSolved
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