Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
200to204
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
200to204
200to204
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

SUB ändern

SUB ändern
09.01.2003 21:40:59
Thellmann
Guten Abend, Excel Spezis.
Durch mein kleines Makro kann ich Spalten in Excel vergleichen.

AUS SPALTE A WERDEN ALLE
INHALTE,DIE NICHT IN SPALTE B
SIND, IN SPALTE C KOPIERT

Ich benötige eine Änderung und zwar wie folgt:
AUS SPALTE A WERDEN ALLE
INHALTE,DIE IN SPALTE B
SIND, IN SPALTE C KOPIERT.


Sub VergleichenKopieren()
Dim v As Variant
Dim lRowL As Long, lRow As Long
lRowL = Cells(Rows.Count, 1).End(xlUp).Row
For lRow = 1 To lRowL
v = Application.Match(Cells(lRow, 1).Value, Columns(2), 0)
If IsError(v) Then
Cells(lRow, 3).Value = Cells(lRow, 1).Value
End If
Next lRow
End Sub

Wer kann meinen Wunsch realisieren.
MFG
Gisela Thellmann

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

Betreff
Datum
Anwender
Anzeige
Re: SUB ändern
09.01.2003 22:19:25
L.Vira
Option Explicit
Sub VergleichenKopieren()
Dim v As Variant
Dim lRowL As Long, lRow As Long
lRowL = Cells(Rows.Count, 1).End(xlUp).Row
For lRow = 1 To lRowL
v = Application.Match(Cells(lRow, 1).Value, Columns(2), 0)
If Not IsError(v) Then
Cells(lRow, 3).Value = Cells(lRow, 1).Value
End If
Next lRow
End Sub

Re: SUB ändern
09.01.2003 22:21:27
PeterW
Hallo Gisela,

ändere die Zeile:
If IsError(v) Then
in
If Not IsError(v) Then

Gruß
Peter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige