Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen vergleichen

Zeilen vergleichen
12.06.2007 12:13:06
MG_learning
Hallo!
Kann mir jemand sagen, was bei dem Code in Userform 1 falsch ist!
Ich möchte alle Zeilen/Zellwerte von der rechten Seite, die nicht in der linken Seite enthalten sind ganz rechts dargestellt haben!
Aber irgendwie stellt er die Werte zu oft dar, sodaß die Tabelle zu Ende ist!
Danke im voraus!
Datei: https://www.herber.de/bbs/user/43167.xls

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen vergleichen
12.06.2007 13:13:51
Rudi
Hallo,

Private Sub UserForm_Activate()
Dim i As Long '(besser als Integer für Zeilenzahl)
Dim t As Long
Dim x As Integer
Dim blnFound As Boolean
x = 2
Application.ScreenUpdating = False
For i = 2 To 540
blnFound = False
For t = 2 To 405
If Cells(i, 9) = Cells(t, 1) And Cells(i, 12) = Cells(t, 4) Then
blnFound = True
Exit For
End If
Next t
If blnFound = False Then
Range(Cells(i, 9), Cells(i, 14)).Copy Range(Cells(x, 16), Cells(x, 21))
x = x + 1
End If
Next i
Application.ScreenUpdating = True
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Zeilen vergleichen
12.06.2007 13:51:00
MG_Learning
Danke Rudi!
Hatte einen Denkfehler drin! Mußte ja tausend mal der gleiche Wert auftauchen, da er ja den ertsen Wert von rechts mit jedem aus der linken Spalte verglichen hat und somit immer wieder den gleichen ganz rechts reingeschrieben hat!
Aber der Schalterhat das Problem gelöst!
Danke vielmals!
Gruß Monty

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige