Code reagiert nicht

  • Excel

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Nicoleka95.

    Code reagiert nicht

    hallo,
    ich habe folgendes Problem.
    ich möchte in meine Haupttabelle (Haupt) in die spalte 21 ja/nein/nichtVorhanden eintragen, wenn ich einem anderem dokument die angebotsnummer vorhandenen ist. (Zeile 30)
    jetzt tut der Code bei Ausführung nichts.
    NUR wenn ich in der spalte, wo die Angebotsnummer steht, die Nummer nochmal händich nachtrage und sie nicht von einem anderen Code einfügen lasse.
    Weiß jemand warum das so ist und was ich ändern muss.

    Würde mich über eine Antwort sehr freuen ^^

    Visual Basic-Quellcode

    1. Public Sub Cks()
    2. Dim haupt As Worksheet
    3. Dim wksDaten As Worksheet
    4. Dim wkbDaten As Workbook
    6. 'aktuelles Dokument
    7. Set haupt = Worksheets("Haupttabelle")
    9. 'öffnen Andere Dokument/keine Verzögerung(Screen...)
    10. Application.ScreenUpdating = False
    11. Workbooks.Open ("\\Krones-Intl.Krones-Group.com\DFS\AVT\AFT\FT\Angebot\Aseptik\Angebote\003_CKS_Betrachtung\k150710_Festlegung_AL_Runde_Aseptik.xlsx")
    13. 'Dokument und Tabellenblatt zuordnen
    14. Set wkbDaten = Workbooks("k150710_Festlegung_AL_Runde_Aseptik.xlsx")
    15. Set wksDaten = wkbDaten.Sheets("2017")
    17. Dim zeileQuelle As Integer
    18. Dim spalteQuelle As Integer
    19. Dim zeileZiel As Integer
    20. Dim spalteZiel As Integer
    22. zeileQuelle = 10
    23. zeileZiel = 3
    24. spalteQuelle = 3
    25. spalteZiel = 1
    27. While Not IsEmpty(haupt.Cells(zeileZiel, spalteZiel))
    28. For zeileQuelle = 10 To wksDaten.Cells(Rows.Count, 1).End(xlUp).Row
    29. 'Wenn Belegnummer in cks vorhanden
    30. If haupt.Cells(zeileZiel, 2).Value = wksDaten.Cells(zeileQuelle, spalteQuelle).Value Then
    31. 'wenn in Festlegung Ja
    32. If wksDaten.Cells(zeileQuelle, 10).Value = "ja" Then
    33. 'Ja
    34. haupt.Cells(zeileZiel, 21).Value = "Ja"
    35. Exit For
    36. ElseIf wksDaten.Cells(zeileQuelle, 10).Value = "nein" Then
    37. 'sonst nein
    38. haupt.Cells(zeileZiel, 21).Value = "Nein"
    39. Exit For
    40. Else
    41. 'sonst nichtVorhanden
    42. haupt.Cells(zeileZiel, 21).Value = "NichtVorhanden"
    43. Exit For
    44. End If
    45. End If
    46. Next zeileQuelle
    48. zeileQuelle = 10
    49. zeileZiel = zeileZiel + 1
    50. Wend
    52. 'Dokument Andere schließen
    53. Workbooks("k150710_Festlegung_AL_Runde_Aseptik.xlsx").Close SaveChanges:=False
    54. End Sub


    Code-Tags eingefügt. Farbe "Rot" entfernt. ~Thunderbolt

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Thunderbolt“ ()

    1. Die Farbe Rot ist den Moderatoren vorbehalten.
    2. BitteBitteBitte verwende die CodeTags. Code eingeben, markieren, folgenden Button anklicken

    Dann wird aus

    Dim x as Integer
    x = 1

    in diesem Fall ein

    Visual Basic-Quellcode

    1. Dim x as Integer
    2. x = 1

    => automatische Zeilennummern, Syntax-Highlighting und alle sind zufrieden.

    3. Was bedeutet das [*] hinter dem Smiley?

    Nicoleka95 schrieb:

    NUR wenn ich in der spalte, wo die Angebotsnummer steht, die Nummer nochmal händich nachtrage und sie nicht von einem anderen Code einfügen lasse.
    Dann wird wohl die Angebotsnummer in der Quelltabelle insofern falsch eingetragen, dass der Vergleich fehlschlägt. Lerne zu debuggen. Trag einfach mal vor die problematische Zeile ein:

    Visual Basic-Quellcode

    1. Dim TargetCellValue = haupt.Cells(zeileZiel, 2).Value
    2. Dim SourceCellValue = wksDaten.Cells(zeileQuelle, spalteQuelle).Value
    3. Stop

    Und wenn dann bei Ausführung das Programm bei Stop anhält, fahr mit dem Mauszeiger über TargetCellValue und SourceCellValue und schau, welche Werte die beiden haben. Dann sollte klar werden, wo der Unterschied liegt und der Code nicht macht, was Du im Sinn hast.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Erwischt. Das eine ist eine Zahl, das andere (in Anführungszeichen) ist ein Text. Eine Zahl ist kein Text. Punkt. Eine Möglichkeit wäre, den Code so zu ändern, dass TargetCellValue eben kein Text ist. Oder Du lässt die Zahl als Text interpretieren. So wird mit

    Visual Basic-Quellcode

    1. CStr(SourceCellValue)

    aus 258369 ein "258369".
    Achtung! Nicht falsch verstehen! Damit steht nicht automatisch in SourceCellValue ein Text. Der Zellinhalt (SourceCellValue) bleibt dadurch unangetastet. Mit der Zeile wird nur gesagt, dass man jetzt grad hier in dem Moment eine Textinterpretation von SourceCellValue braucht.

    Visual Basic-Quellcode

    1. If haupt.Cells(zeileZiel, 2).Value = CStr(wksDaten.Cells(zeileQuelle, spalteQuelle).Value) Then

    bedeutet "Wenn der Ausdruck in der Zielzelle gleich der Textinterpretation des Wertes in der Quellzelle ist, dann"
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende