Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
488to492
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
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Vielen Dank!!!!
Silvio
.
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige