Thema Datum  Von Nutzer Rating
Antwort
Rot Variable nimmt Wert nicht an
13.01.2023 01:42:32 Bernd
Solved
13.01.2023 02:58:43 Gast01287
Solved
13.01.2023 09:34:55 Bernd
Solved
13.01.2023 10:09:49 Bernd
Solved
13.01.2023 12:01:48 Gast01287
Solved
13.01.2023 15:40:58 Bernd
Solved
13.01.2023 11:25:58 Gast01287
Solved
13.01.2023 15:37:57 Bernd
Solved
13.01.2023 15:42:51 Gast01287
Solved
13.01.2023 12:11:00 Gast01287
Solved
13.01.2023 15:44:08 Bernd
Solved
13.01.2023 15:59:14 Gast01287
Solved
17.01.2023 11:51:42 Bernd
Solved
17.01.2023 12:39:59 Gast01287
Solved
17.01.2023 13:13:07 Bernd
Solved

Ansicht des Beitrags:
Von:
Bernd
Datum:
13.01.2023 01:42:32
Views:
114
Rating: Antwort:
 Nein
Thema:
Variable nimmt Wert nicht an

Hi Leute, 
ich suche jetzt schon seit Stunden den Fehler und finde ihn nicht.

Im Prinzip habe ich 2 Tabellen (Quelle und Ziel).

Dort vergleiche ich nach einer Suche die Zellen der Quelldatei mit den Gefundenen Zellen der Zieldatei.

Nach der Suche erhalte ich also eine QZeile aus der Quelldatei und eine ZZeile aus der Zieldatei.

Das Funktioniert.

Nun möchte ich die einzelnen Zellen aus beiden Zeilen vergleichen.

Dazu mache ich eine Schleife in der ich die Spalten ("A", "B" usw durch Cells mit 1,2,3..) durchsuche.

Mein Problem dabei ist, das die Variablen QZelle und ZZelle immer leer sind, obwohl der Werte der einzelnen Variablen in der Zeile stimmen, wenn ich sie mit dem Curser überfahre.

Spalte =4 ; QZeile =3 ; ZZeile =60 und Cells zeigt mir den entsprechenden Wert (z.B.: M-12345678)

QZelle = Workbooks(QName.Name).Worksheets(QSheet.Name).Range(Cells(QZeile, Spalte)).Value

ZZelle = Workbooks(ZName).Worksheets(ZSheet).Range(Cells(ZZeile, Spalte)).Value

Also sollte mir doch die Variable QZelle auch M-12345678 Anzeigen oder?
Wo mache ich den Fehler?

Als ich noch die Zellen mit: 

QZelle = Workbooks(QName.Name).Worksheets(QSheet.Name).Range("A" & QZeile).Value

ZZelle = Workbooks(ZName).Worksheets(ZSheet).Range("A", ZZeile).Value

angesprochen hatte, wurden mir die Werte angezeigt.
Dann müsste ich aber 30x die selbe Befehlsfolge mit ABCD.. machen. Um das zu vermeiden ist doch Cells da.

 

Was ich auch nicht verstehe ist das wenn ich das erste End if drinnen lasse, zeigt er mit den Fehler "End if ohne If" an obwohl das If direkt darüber steht?

Ich möchte aber das wenn die beiden Zellen leer sind das Goto ausgeführt wird, sollten aber nicht beide Leer sin, soll es die Beiden Vergleichen 

Ich hhoffe ihr könnt mir Helfen. Ich weiß nicht weiter.

Danke

 

 Dim QZelle As String  'Zelle in der Quelldatei
  Dim ZZelle As String  'Zelle in der Zieldatei
  Dim WahlTxt As String ' Text in der Auswahlbox (MsgBox)
  Dim Spalte As Byte   'Die Variable legt die Spalten (ABCDE...)fest (Byte= max 255)
  
  For Spalte = 1 To 28
                 
                    QZelle = Workbooks(QName.Name).Worksheets(QSheet.Name).Range(Cells(QZeile, Spalte)).Value
                    ZZelle = Workbooks(ZName).Worksheets(ZSheet).Range(Cells(ZZeile, Spalte)).Value
                    If (QZelle = "") And (ZZelle = "") Then GoTo WahlNein

                    ' End If
                    
                    If (Workbooks(QName.Name).Worksheets(QSheet.Name).Range(Cells(QZeile, Spalte)).Value = Workbooks(ZName).Worksheets(ZSheet).Range(Cells(ZZeile, Spalte)).Value) = False Then
                  GoTo Auswahl
                    
                    Else: GoTo WahlNein
                    End If

Auswahl:                    ' Auswahl Quell Ziel Zelle
                    WahlTxt = "Quelle: " & vbCr & QZelle & vbCr & "Ziel: " & vbCr & ZZelle
                If MsgBox(WahlTxt, vbYesNo Or vbQuestion, "Auswahl") = vbYes Then 'Ja = Übernahme der Quellwerte
                    Workbooks(ZName).Worksheets(ZSheet).Range(Cells(ZZeile, Spalte)) = Workbooks(QName.Name).Worksheets(QSheet.Name).Range(Cells(QZeile, Spalte)).Value
WahlNein:                End If ' Wenn Nein, bleib der Zielwert erhalten
                Next


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 Variable nimmt Wert nicht an
13.01.2023 01:42:32 Bernd
Solved
13.01.2023 02:58:43 Gast01287
Solved
13.01.2023 09:34:55 Bernd
Solved
13.01.2023 10:09:49 Bernd
Solved
13.01.2023 12:01:48 Gast01287
Solved
13.01.2023 15:40:58 Bernd
Solved
13.01.2023 11:25:58 Gast01287
Solved
13.01.2023 15:37:57 Bernd
Solved
13.01.2023 15:42:51 Gast01287
Solved
13.01.2023 12:11:00 Gast01287
Solved
13.01.2023 15:44:08 Bernd
Solved
13.01.2023 15:59:14 Gast01287
Solved
17.01.2023 11:51:42 Bernd
Solved
17.01.2023 12:39:59 Gast01287
Solved
17.01.2023 13:13:07 Bernd
Solved