Thema Datum  Von Nutzer Rating
Antwort
05.02.2008 11:28:11 180Grad
NotSolved
Blau Aw:zwei Zellen in zwei versch. Tabellen vergleiche
 05.02.2008 13:06:00 Holger
NotSolved
05.02.2008 15:16:15 180Grad
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
05.02.2008 13:06:00		 Views:
987		 Rating:
     
Antwort:
  Ja
Thema:
Aw:zwei Zellen in zwei versch. Tabellen vergleiche
Hallo 180Grad,
ich gehe davon aus, dass sich beide Worksheets in einem Workbook befinden. Dann sollte nachstehendes Makro das Gewünschte leisten. Die Namen der relevanten Tabellen musst du noch einfügen (so, wie sie auf dem Tabellenreiter stehen):

Sub Zeilen_Übertrag()
Dim Tab1 As Range
Dim Tab2 As Range
n1 = "Name der Tabelle 1"
n2 = "Name der Tabelle 2"
lz1 = Range(Worksheets(n1).Cells(65536, 1), Worksheets(n1).Cells(65536, 1)).End(xlUp).Row
lz2 = Range(Worksheets(n2).Cells(65536, 1), Worksheets(n2).Cells(65536, 1)).End(xlUp).Row
Set Tab1 = Range(Worksheets(n1).Cells(13, 1), Worksheets(n1).Cells(lz1, 1))
Set Tab2 = Range(Worksheets(n2).Cells(13, 1), Worksheets(n2).Cells(lz2, 1))
For Each z2 In Tab2
schonda = False
For Each z1 In Tab1
If z1 = z2 Then schonda = True: Exit For
Next
If schonda = False Then
lz1 = lz1 + 1
Worksheets(n1).Cells(lz1, 1) = z2
End If
Next
End Sub

Gruß
Holger




180Grad schrieb am 05.02.2008 11:28:11:

Hallo Zusammen

Ich habe ein Problem und ich weiss und weiss nicht weiter. In meinem Arbeitsbuch befinden sich die Tabellen T1 und T2

T1:
PC1
PC2
WS1
PC3
PC4

T2:
WS1
PC1
WS2
WS3
PC3

Die Tabelle mit den obstehenden Werten beginnt ab A13. Nun will ich Zeile für Zeile miteinander vergleichen. Es wird nur eine Spalte (Spalte A) benötigt oder verglichen.
z.B. Ich vergleiche Tabelle T2 / Zelle A13 mit den Zellen in T1. Befindet sich der Wert von T2 schon in T1 soll nichts geschehen. Befindet sich jedoch der Wert von T2 noch nicht in T1, soll dieser in Tabelle 1 bei der Ersten leeren Zelle eingefügt werden.

Ich hoffe Ihr könnt mir helfen!

Gruss
180Grad

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
05.02.2008 11:28:11 180Grad
NotSolved
Blau Aw:zwei Zellen in zwei versch. Tabellen vergleiche
 05.02.2008 13:06:00 Holger
NotSolved
05.02.2008 15:16:15 180Grad
NotSolved