Thema Datum  Von Nutzer Rating
Antwort
29.07.2014 10:14:08 Stefan
NotSolved
29.07.2014 16:01:03 Outlooker
NotSolved
Rot Komplizierter Spaltenvergleich
 29.07.2014 16:32:45 Gast67815
Solved
12.08.2014 08:06:43 Gast41917
Solved

Ansicht des Beitrags:
Von:
Gast67815		 Datum:
29.07.2014 16:32:45		 Views:
765		 Rating:
     
Antwort:
 Nein
Thema:
Komplizierter Spaltenvergleich		 
Sub sortieren()

Dim i As Integer
Dim j As Integer
Dim z As Integer
Dim x As String
Dim x2 As String
Dim y As String
Dim y2 As String

i = 1
j = 1
z = 1

x = Sheets("Tabelle1").Cells(i, 1)
x2 = Sheets("Tabelle2").Cells(j, 1)

Do While x <> ""
    x = Sheets("Tabelle1").Cells(i, 1)
    y = Sheets("Tabelle1").Cells(i, 2)
        Do While x2 <> ""
        x2 = Sheets("Tabelle2").Cells(j, 1)
        y2 = Sheets("Tabelle2").Cells(j, 2)
            If x = x2 And y = y2 Then
                Sheets("Tabelle1").Cells(z, 4) = x
                Sheets("Tabelle1").Cells(z, 5) = y
                z = z + 1
                Exit Do
            End If
        j = j + 1
        Loop
    j = 1
    i = i + 1
    x2 = Sheets("Tabelle2").Cells(j, 1)
Loop
End Sub

Habe noch einen kleinen vopa gefunden. x2 läuft, wenn nichts gefunden wurde, ins leere und bricht nach einem erfolglosen treffer ab. So gehts besser.

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
29.07.2014 10:14:08 Stefan
NotSolved
29.07.2014 16:01:03 Outlooker
NotSolved
Rot Komplizierter Spaltenvergleich
 29.07.2014 16:32:45 Gast67815
Solved
12.08.2014 08:06:43 Gast41917
Solved