variablen druch schleife anlegen

Hallo zusammen,
ich habe folgendes Problem:
ich möchte aus zwei sheets die Werte miteinander vergleichen, wobei eines davon als Stand heute und das andere als neu dienen soll. Dh. die werte die im heutigen stand noch nicht drin sind, sollen irgendwo gesondert aufgelistet werden, damit man halt einen überblick hat was noch fehlt.
Ich habe mir überlegt, dass ich in der Stand heute mappe mit dem befehl:
quanto = Range("A1").End(xlDown).Row
erstmal auszulese, wieviele daten im stand heute zu vergleichen sind und dann irgendwie mit do until/loop genauso viele variablen wie es werte gibt anzulegen und dann jeweils eine variable mit einem wert aus dem stand heute zu füllen.
(genau hier komm ich nicht weiter...:-(((((
dann einfach in das zweite sheet umschalten(select("..)und dann mit einer schleife zu schauen ob der aktuelle wert mit einer der variablen übereinstimmt
das dürfte ich dann selbst hinkriegen.....
Kann mir jemand helfen, dass ich es irgendwie schaffe automatisch genausoviele variablen zu deklarieren und zu füllen wie ein bestimmter wert vorgibt?????
Vielen Dank und Grüße
Thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub VergleichenUndKopieren() Dim i As Integer, j As Integer, booCheck As Boolean Sheets("Projekte").Activate For i = 1 To Range("A65536").End(xlUp).Row For j = 1 To Sheets("Vergleichsdaten").Range("A65536").End(xlUp).Row booCheck = False If Sheets("Projekte").Range("A" & i).Value = Sheets("Vergleichsdaten").Range("A" & j).Value Then booCheck = True Exit For End If Next If Not booCheck Then Sheets("Vergleichsdaten").Range("B65536").End(xlUp) = Sheets("Projekte").Range("A" & i).Value Next End Sub

Hallo Thomas,
für Deine Anforderung könntest Du am ehesten ein Feld deklarieren und dann nacheinander die werte einlesen.
Wenn Du aber nur wissen willst, welche Daten in Tabelle2 vorkommen die in Tabelle1 nicht vorhanden sind, könntest Du auch einfach alle Treffer direkt in ein Tabellenblatt (zB Tabelle3) schreiben...
Die unten beschriebene Lösung schreibt alle werte in das Feld Var_neue und gibt anschließend das feld nacheinander in Tabelle 3 aus.


Sub neue_ausgeben()
Dim VAR_Neue() As String
Dim ii%, jj%
jj = 0
For ii = 1 To Worksheets("Tabelle2").Range("A65536").End(xlUp).Row
If Worksheets("Tabelle1").Range("a:a").Find(Worksheets("Tabelle2").Range("A" & ii).Value) Is Nothing Then
jj = jj + 1
ReDim Preserve VAR_Neue(jj)
VAR_Neue(jj) = Worksheets("Tabelle2").Range("A" & ii)
End If
Next ii
'Ausgabe in tabelle 3
For ii = 1 To jj
Worksheets("Tabelle3").Range("A" & ii) = VAR_Neue(ii)
Next ii
End Sub

wenn Du nicht die Zwischenlösung mit variablen benötigst kannst Du auch direkt in tabelle3 schreiben:


Sub neue_ausgeben()
Dim ii%, jj%
jj = 0
For ii = 1 To Worksheets("Tabelle2").Range("A65536").End(xlUp).Row
If Worksheets("Tabelle1").Range("a:a").Find(Worksheets("Tabelle2").Range("A" & ii).Value) Is Nothing Then
jj = jj + 1
Worksheets("Tabelle3").Range("A" & jj) = Worksheets("Tabelle2").Range("A" & ii)
End If
Next ii
End Sub

Ich hoffe, das hilf Dir weiter
Gruß ingo
PS eine Rückmeldung wäre nett...

Sub vglsheets1() Sheets("projekte").Select Columns("B:B").Select Selection.Insert Shift:=xlToRight Range("b1").Select ActiveCell.Value = "neu!" Range("A2").Select vgl = ActiveCell.Value weiter: Do Until vgl = "" Sheets("vergleichsdaten").Select Set findCell = ActiveSheet.Range("A1:A2000").Find(vgl, LookIn:=xlValues, lookat:=xlWhole) If findCell Is Nothing Then GoTo Merken Sheets("projekte").Select ActiveCell.Cells(2, 1).Select vgl = ActiveCell.Value Loop GoTo Ende Merken: 'listet neuen wert auf Sheets("projekte").Select ActiveCell.Cells(1, 2).Select ActiveCell.Value = vgl ActiveCell.Cells(2, 0).Select vgl = ActiveCell.Value GoTo weiter Ende: MsgBox "Fertig" End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread