Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
724to728
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kopieren aus Bereich

Kopieren aus Bereich
03.02.2006 08:45:20
GeorgK
Hallo,
kann mir bitte jemand sagen, wie der Makro lauten muß, damit nicht die gesamten Spalten A in beiden TB, sondern in beiden TB jeweils der Bereich A1:A3000 verglichen und kopiert wird.

Sub Übertragen()
Dim i As Long
Dim j As Long
For j = 1 To Worksheets("Kunden").UsedRange.Rows.Count
For i = 1 To Worksheets("Liste").UsedRange.Rows.Count
If Worksheets("Liste").Cells(i, 1) = Worksheets("Kunden").Cells(j, 1) Then
If IsEmpty(Worksheets("Liste").Cells(i, 4)) Then
Worksheets("Liste").Cells(i, 4) = Worksheets("Kunden").Cells(j, 25)
End If
End If
Next
Next
End Sub

Vielen Dank für die Hilfe
Grüße
Georg

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

Betreff
Datum
Anwender
Anzeige
AW: Kopieren aus Bereich
03.02.2006 09:17:06
u_
Hallo,

Sub Übertragen()
Dim i As Long
Dim j As Long
Application.ScreenUpdating = False
For j = 1 To Worksheets("Kunden").Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To Worksheets("Liste").Cells(Rows.Count, 1).End(xlUp).Row
If Worksheets("Liste").Cells(i, 1) = Worksheets("Kunden").Cells(j, 1) Then
If IsEmpty(Worksheets("Liste").Cells(i, 4)) Then
Worksheets("Liste").Cells(i, 4) = Worksheets("Kunden").Cells(j, 25)
End If
End If
Next
Next
Application.ScreenUpdating = True
End Sub

Gruß
Geist ist geil!
Vielen Dank u. schönes Wochenende, o.T.
03.02.2006 09:55:08
GeorgK
o
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige