Thema Datum  Von Nutzer Rating
Antwort
Rot Vergleich funktioniert nicht vollständig
 14.12.2016 23:24:28 Gast69602
*****
Solved
15.12.2016 16:09:25 Mackie
NotSolved
16.12.2016 01:35:10 Gast12419
NotSolved
16.12.2016 16:46:20 Mackie
NotSolved
16.12.2016 17:16:32 Gast10303
NotSolved
16.12.2016 17:30:54 Mackie
NotSolved
16.12.2016 17:39:53 Mackie
NotSolved
16.12.2016 18:49:03 Mackie
NotSolved
16.12.2016 20:53:43 Mackie
NotSolved
18.12.2016 05:30:23 Gast48043
NotSolved
18.12.2016 05:33:49 Gast66654
NotSolved
18.12.2016 12:17:02 Mackie
NotSolved
20.12.2016 00:30:44 Gast11060
NotSolved
20.12.2016 05:39:03 Mackie
NotSolved
20.12.2016 20:06:00 Gast21698
NotSolved

Ansicht des Beitrags:
Von:
Gast69602		 Datum:
14.12.2016 23:24:28		 Views:
1711		 Rating:
     
Antwort:
 Nein
Thema:
Vergleich funktioniert nicht vollständig

Hallo allerseits,

ich hoffe ihr könnt mir bei meinem Problem helfen. Ich versuche per Klick eine Eingabe auf Tabelle2 mit einer Tabelle auf Tabelle1 zu vergleichen, dabei sollen bei genauer Übereinstimmung dreier spezifischer Felder, unabhängig in welchem Feld die Daten stehen, die Daten in einen weiteren Zellenbereich geschrieben werden. Also bspw. wenn in zwei Feldern A und B steht, sollen alle Zeilen gefunden werden in denen auch genau nur A und B egal in welcher Reihenfolge steht gefunden werden.

Soweit ich die bisherigen Ausgaben überblicken kann, funktioniert es sobald 2 oder 3 Felder ausgefüllt sind, allerdings nicht, wenn nur ein Feld ausfüllt ist. Dort gibt es teilweise auch Daten aus, bei der es nur eine Übereinstimmung gibt. Hab mittlerweile schon so einiges probiert, komme aber hier nicht mehr weiter. Danke schon einmal für eure Hilfe.

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton1_Click()
Dim i As Integer
i = 2
Dim Wertung As Double
 
Do While IsEmpty(Tabelle1.Cells(i, 1)) = False
 
    If (Tabelle2.Cells(2, 3).Value = Tabelle1.Cells(i, 3).Value Or Tabelle2.Cells(2, 3).Value = Tabelle1.Cells(i, 4).Value Or Tabelle2.Cells(2, 3).Value = Tabelle1.Cells(i, 5).Value) _
    And (Tabelle2.Cells(2, 4).Value = Tabelle1.Cells(i, 3).Value Or Tabelle2.Cells(2, 4).Value = Tabelle1.Cells(i, 4).Value Or Tabelle2.Cells(2, 4).Value = Tabelle1.Cells(i, 5).Value) _
    And (Tabelle2.Cells(2, 5).Value = Tabelle1.Cells(i, 3).Value Or Tabelle2.Cells(2, 5).Value = Tabelle1.Cells(i, 4).Value Or Tabelle2.Cells(2, 5).Value = Tabelle1.Cells(i, 5).Value) Then
         
        Tabelle2.Cells(i + 3, 1).Value = Tabelle1.Cells(i, 1).Value
             
        'Wertung...
         
    Else: Tabelle2.Cells(i + 3, 1).Value = 0
    End If
     
    i = i + 1
 
Loop
End Sub

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Vergleich funktioniert nicht vollständig
 14.12.2016 23:24:28 Gast69602
*****
Solved
15.12.2016 16:09:25 Mackie
NotSolved
16.12.2016 01:35:10 Gast12419
NotSolved
16.12.2016 16:46:20 Mackie
NotSolved
16.12.2016 17:16:32 Gast10303
NotSolved
16.12.2016 17:30:54 Mackie
NotSolved
16.12.2016 17:39:53 Mackie
NotSolved
16.12.2016 18:49:03 Mackie
NotSolved
16.12.2016 20:53:43 Mackie
NotSolved
18.12.2016 05:30:23 Gast48043
NotSolved
18.12.2016 05:33:49 Gast66654
NotSolved
18.12.2016 12:17:02 Mackie
NotSolved
20.12.2016 00:30:44 Gast11060
NotSolved
20.12.2016 05:39:03 Mackie
NotSolved
20.12.2016 20:06:00 Gast21698
NotSolved