Was ist das?



Excel-Version: Was macht dieser Code und wie?
nach unten

Betrifft: Was ist das?
von: Ron
Geschrieben am: 26.04.2002 - 09:18:13

Hallo Wissende, ich wüsste gerne was dieser Code genau macht und wie man ihn umschreiben kann, so dass er mir aus zwei Worksheets(nämlich einem alten und einem update davon)einen dritten Worksheet erstellt der die Gleichanteile sowie neue Zeilen des zweiten Worksheets enthält. Dank an alle Helfer.

Sub Vergleich2()
Dim i As Integer
Dim J As Integer
For i = 1 To Worksheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row
For J = 1 To Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
If Worksheets("Tabelle1").Cells(J, 1).Cells = Worksheets("Tabelle2").Cells(i, 1) Then
Worksheets("Tabelle1").Rows(J).Copy _
Destination:=Worksheets("Tabelle3").Range("A" & Worksheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Row + 1)
End If
Next J
Next i
End Sub

nach oben   nach unten

Re: Was ist das?
von: Stefan
Geschrieben am: 26.04.2002 - 09:39:32

Hallo, man muss einfach das Master-Worksheet mit dem anderen Workscheet via Schleife vergleichen und in dem 3.ausgeben, ungefähr so: dim SV as string dim SVRef as string workbooks(DATEI).sheets(1).activate Letzte1 = Workbooks(DATEI).Sheets(1).UsedRange.Rows.Count workbooks("Test").sheets(2).activate Letzte2 = Workbooks(DATEI).Sheets(2).UsedRange.Rows.Count for i = 1 to letzte1 SV = workbooks(Datei).sheets(1).cells(x,y).value for j = 1 to letzte2 SVRef = workbooks(Datei).sheets(2).cells(x,y).value if SV = SVRef then workbooks(Datei).sheets(3).cells(x,y).value = SV end if next j next i

nach oben   nach unten

Re: Was ist das?
von: Ron
Geschrieben am: 26.04.2002 - 09:55:50

Vielen Dank Stefan!-aber irgendwie bekomm ich die Meldung "Außerhalb des gültigen Bereichs". Tut mir echt leid aber bin ein absoluter Newbie

nach oben   nach unten

Re: Was ist das?
von: Ron
Geschrieben am: 26.04.2002 - 10:35:44

Index außerhald des gültigen Bereichs-was heisst das??

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Tagesdatum farbig unterlegen"