Anzeige
Archiv - Navigation
612to616
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
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro ergänzen

Makro ergänzen
20.05.2005 11:40:43
Silvi
Hallo zusammen!
Folgendes Makro soll Spalten durchsuchen und vergleichen, tut es auch aber immer nur in der Spalte B bzw. 2. Spate der Tabelle2, es soll aber noch bis Spalte 11 laufen... krieg ich nicht alleine hin! Bitte, kann mir jemand helfen?
#

Sub vergleichen3()
Dim i, lz As Integer
Dim c, Wert As Variant
Worksheets("Tabelle2").Activate
With Sheets("Tabelle3")
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Wert = Cells(i, 2)
lz = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Set c = Sheets("Start").Columns(1).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then .Cells(lz, 1) = Cells(i, 1): .Cells(lz, 2) = Cells(i, 2)
Next i
End With
End Sub
#

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro ergänzen
20.05.2005 14:41:15
Marc
Wert = Cells(i, 2) die zwei steht für die Spalte B
Du müsstest also noch ein 2 To 11 einbauen...
Gruß

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige