Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Verschiedene Werte in Spalte erkennen und kopieren

Verschiedene Werte in Spalte erkennen und kopieren
23.09.2004 17:16:53
Silvio
Hallo alle zusammen,
Habe ein Tabelle mit 7 Spalten. In Spalte 7 stehen z. B. 5x der Wert 10, 3x der Wert 20...Möchte per Makro alle verschiedenen Werte erkennen und diese jeweils 1x in eine andere Spalte kopieren.
Gruß Silvio
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Verschiedene Werte in Spalte erkennen und kopieren
Beni
Hallo Silvio,
dieses Makro kopiert die gleichen Werte einmal in Spalte 8.
Gruss beni

Sub Werte_erkennen_und_kopieren()
For i = 1 To Cells(65536, 7).End(xlUp).Row
Wert = Cells(i, 7)
Set c = Columns(8).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
lz = Cells(65536, 8).End(xlUp).Row + 1
If c Is Nothing Then Cells(lz, 8) = Wert
Next i
End Sub

Anzeige
Vielen Dank!!!!
Silvio
.

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige