Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

SUB ändern

Forumthread: 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

Anzeige

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

Anzeige
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
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige