|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
05.02.2008 11:28:11 |
180Grad |
|
|
|
05.02.2008 13:06:00 |
Holger |
|
|
 Aw:Aw:zwei Zellen in zwei versch. Tabellen verglei |
05.02.2008 15:16:15 |
180Grad |
|
|
Von:
180Grad |
Datum:
05.02.2008 15:16:15 |
Views:
953 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:zwei Zellen in zwei versch. Tabellen verglei |
Hey Holger, SUPER SACHE! Hat einwandfrei funktioniert und ist genau das, was ich gesucht habe.
Nochmals besten Dank!
Mfg 180Grad
Holger schrieb am 05.02.2008 13:06:00:
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 |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
05.02.2008 13:06:00 |
Holger |
|
|
Aw:Aw:zwei Zellen in zwei versch. Tabellen verglei |
05.02.2008 15:16:15 |
180Grad |
|
|