tutorials.de Buch-Aktion 05/2012
Seite 3 von 3 ErsteErste 123
ERLEDIGT
JA
ANTWORTEN
36
ZUGRIFFE
4646
EMPFEHLEN
  • An Twitter übertragen
  • An Facebook übertragen
AUF DIESES THEMA
ANTWORTEN
  1. #31
    Timotheus1992 Timotheus1992 ist offline Mitglied Bronze
    Registriert seit
    Mar 2011
    Beiträge
    34
    Man könnte die Funktionen aber auch für die nachträgliche Prüfung nehmen. Müsste dann halt angepasst werden.
    das wollte ich wissen das würde ja meinen anforderungen entsprechen.

    zu der if-abfrage: naja, ich will halt übreprüfen, ob der inhalt der spalte gleich irgendeinem sortiment ist. es gibt insgesamt 26 sortimente, daher 26 verschachtelungen.
    das ist aber ja nicht besonders elegant :/ aber wie gesagt, hab bissl rumprobiert das zu optimieren, kam aber nix bei raus

    prinzip ist das gleiche wie bei artikelnr und es funktioniert ja auch, allerdings muss ich später die spalte der verwendeten marken überprüfen. da es über 300 marken gibt, könnte das mit einer verschachtelten if schleife meiner art schwer werden xD

    daher meine frage ob du da eine optimierungsmöglichkeit siehst bspw mit while? oder mit if --> or?
     

  2. #32
    Avatar von tombe
    tombe tombe ist offline Mitglied Diamant
    tutorials.de Premium-User
    Registriert seit
    Sep 2004
    Ort
    Möglingen (BaWü)
    Beiträge
    3.109
    Na wenn du püfen willst ob das was eingegeben wurde in der "vergleichs" Tabelle vorhanden ist, dann brauchst du nur eine FOR/Next-Schleife und eine IF-Anweisung

    Code vb:
    1
    2
    3
    4
    5
    6
    7
    8
    9
    
    For a = 1 To x
        If eingabe = Vergleich.Cells(a, spalte) Then
            'wenn ein entsprechender Eintrag gefunden wurde Prüfung verlassen
            Exit Sub
        End If
    Next a
     
    'hier kommt man nur hin wenn keine Übereinstimmung gefunden wurde
    MsgBox "Fehler!"
     
    Sollte ein Tipp von mir geholfen haben, habe ich nichts gegen eine entsprechende Bewertung oder ein Danke und wenn ein Problem gelöst ist, dann den Beitrag bitte auch als erledigt markieren.

    Was ich gar nicht leiden kann sind User die es nicht für nötig halten auf Antworten zu reagieren, die Themen nicht als erledigt markieren und/oder die sich nicht für Hilfe bedanken.

  3. #33
    Timotheus1992 Timotheus1992 ist offline Mitglied Bronze
    Registriert seit
    Mar 2011
    Beiträge
    34
    naja so hab ich das ja auch, aber es soll ja bei 26 werten nach übereinstimmung gesucht werden; daher habe ich halt innerhalb der for schleife 26 if abfragen :/

    was ist denn deine variable eingabe? ist das ein string mit allen werten, die abgefragt werden sollen?

    kann man das nicht iwie so machen? also ich hab das schon so probiert aber es will nicht

    For a = 1 To x
    If Tabelle1.Cells(a, spalte) = "DOB" Or Tabelle1.Cells(a, spalte) = "Sporttextilien" usw Then(an dieser stelle würden dann halt 24 weitere werte stehn)

    Else

    MsgBox "fehler"

    End if
    Next a
     

  4. #34
    Avatar von tombe
    tombe tombe ist offline Mitglied Diamant
    tutorials.de Premium-User
    Registriert seit
    Sep 2004
    Ort
    Möglingen (BaWü)
    Beiträge
    3.109
    Sorry, ich hatte da wohl einen Denkfehler drin.

    Angenommen du willst ja nachträglich die in der Tabelle1 vorhandenen Werte mit den Werten in Tabelle2 vergleichen.

    Dann gibt es zuerst eine FOR/NEXT-Anweisung für die Tabelle1 und darin eine FOR/NEXT-Anweisung für die Werte in Tabelle2

    Code vb:
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    
    For tab_1 = 1 To X
     
        For tab_2 = 1 To Y
     
    'hier wird immer ein Wert aus Tabelle1 mit allen Werten aus Tabelle2 verglichen
            If Tabelle1.Cells(tab_1, spalte_1) = Tabelle2.Cells(tab_2, spalte_2) Then Exit sub
     
        Next tab_2
     
    Next tab_1
    'hier wieder die Meldung wenn nichts gefunden wurde
    Timotheus1992 bedankt sich. 
    Sollte ein Tipp von mir geholfen haben, habe ich nichts gegen eine entsprechende Bewertung oder ein Danke und wenn ein Problem gelöst ist, dann den Beitrag bitte auch als erledigt markieren.

    Was ich gar nicht leiden kann sind User die es nicht für nötig halten auf Antworten zu reagieren, die Themen nicht als erledigt markieren und/oder die sich nicht für Hilfe bedanken.

  5. #35
    Timotheus1992 Timotheus1992 ist offline Mitglied Bronze
    Registriert seit
    Mar 2011
    Beiträge
    34
    das sieht gut aus / hört sich gut an

    dann müsste ich quasi:

    - per pfad die jeweiligen tabellen in einer datei zusammenfügen
    --> dann habe ich tabelle 1 bis 3

    - dann vergleiche anstellen

    eine frage habe ich noch: da ja bestimmte spalten zusammenhängen (zB aus tabelle1 das sortiment und die mkz, da die ja in abhängigkeit voneinander überprüft werden müssen), kann man eine überprüfung exemplarisch wiefolgt aussehen lassen?

    For tab_1 = 1 to X

    For tab_2 = 1 to Y

    'jetzt der vergleich zweier werte die zusammenhängen aus t1 mit zwei werten die zusammenhängen aus t2, also ungefähr so:

    If "Wert1 aus Tabelle1" (an exakt bestimmter zelle x) = "Wert 1 aus Tabelle2 (exakt bestimmte zelle y)" Then
    'zweite if schleife für zweiten wert
    If "Wert2 aus Tabelle1" = "Wert2 aus Tabelle2" Then

    Else
    MsgBox "Fehler"

    End if

    Else
    MsgBox "Fehler"

    End if

    Next tab_2

    Next tab_1


    ich hoffe du verstehst was ich damit versuche zu erzeugen ansosnten frag einfach, ich versuchs dann nochmal zu erklären xD
     

  6. #36
    Avatar von tombe
    tombe tombe ist offline Mitglied Diamant
    tutorials.de Premium-User
    Registriert seit
    Sep 2004
    Ort
    Möglingen (BaWü)
    Beiträge
    3.109
    Ich habe da so eine Idee was du meinen könntest.

    Code vb:
    1
    2
    3
    
    If wert1_tab1 = wert1_tab2 And wert2_tab1 = wert2_tab2 Then
        'was auch immer
    End If

    Damit würdest du 2 verschiedene Werte aus Tabelle1 mit den entsprechenden zwei Werten aus Tabelle2 vergleichen und bei Übereinstimmung beider (!!) Werte eine bestimmte Anweisung ausführen.
    Timotheus1992 bedankt sich. 
    Sollte ein Tipp von mir geholfen haben, habe ich nichts gegen eine entsprechende Bewertung oder ein Danke und wenn ein Problem gelöst ist, dann den Beitrag bitte auch als erledigt markieren.

    Was ich gar nicht leiden kann sind User die es nicht für nötig halten auf Antworten zu reagieren, die Themen nicht als erledigt markieren und/oder die sich nicht für Hilfe bedanken.

  7. #37
    Timotheus1992 Timotheus1992 ist offline Mitglied Bronze
    Registriert seit
    Mar 2011
    Beiträge
    34
    jap, genau das brauche ich vielen dank ich werde mal versuchen, da so etwas in der art auf die beine zu stellen.

    da sicherlich noch weitere fragen auftreten lasse ich diesen thread mal offen, dann sind wir gleich im kontext drin

    und vielen dank nochmal! hat sich jetzt schon gelohnt hier im forum dabeizusein
     

Ähnliche Themen

  1. Antworten: 0
    Letzter Beitrag: 10.06.09, 18:58
  2. Antworten: 3
    Letzter Beitrag: 10.12.05, 21:19
  3. Datensatz mit werten aus unterschiedlichen Tabellen verknüpfen
    Von Grossmeister D im Forum Relationale Datenbanksysteme
    Antworten: 2
    Letzter Beitrag: 26.08.05, 09:14
  4. Auslesen von MySQL-Tabellen-Werten
    Von Chili-Joe im Forum PHP
    Antworten: 14
    Letzter Beitrag: 24.05.05, 17:39
  5. Excel Diagramm mit VB-Variablen Werten
    Von snowcoder im Forum Visual Basic 6.0
    Antworten: 4
    Letzter Beitrag: 23.09.03, 08:47

Stichworte