Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
876to880
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Komplette Liste generieren

Komplette Liste generieren
19.06.2007 14:44:00
Markus
Hallo,
folgendes Problem:
ich habe 4 Excel-Listen auf denen die Kunden aufgelistet sind zu unterschiedlichen Zeitpunkten ( Also im Jan, Feb, Mär usw.); d. h. es sind oft ein paar neue dazu, gleichzeitig fallen aber auch manche alte raus.
Wie schaffe ich es, dass ich eine komplett Liste generiere, auf der jeder Kunde genau einmal gelistet wird; also keine Kundennummer doppelt dreimal oder viermal, aber auch keine "vergessen" wird.
Viele Dank im voraus.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Komplette Liste generieren
19.06.2007 14:58:00
Rudi
Hallo,
Kunden aus allen Blättern untereinander kopieren, Daten-Spezialfilter, an andere Stelle kopieren, keine Duplikate.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Komplette Liste generieren
19.06.2007 15:18:00
Peter
Hallo Markus,
auch wenn VBA nein, hier ein Makro, das es tun sollte:

Public Sub Zusammenfassen()
Dim iBlatt    As Integer
Dim lZeile_Q  As Long
Dim lZeile_Z  As Long
Dim sName     As String
For iBlatt = 1 To Worksheets.Count
If Worksheets(iBlatt).Name  "Alle" Then
sName = Worksheets(iBlatt).Name
For lZeile_Q = 2 To Worksheets(sName).Range("A65536").End(xlUp).Row
If Application.WorksheetFunction.CountIf _
(Worksheets("Alle").Columns(1), _
Worksheets(sName).Range("A" & lZeile_Q).Value) = 0 Then
lZeile_Z = lZeile_Z + 1
Worksheets(sName).Range("A" & lZeile_Q & ":Z" & lZeile_Q).Copy _
Destination:=Worksheets("Alle").Range("A" & lZeile_Z)
End If
Next lZeile_Q
End If
Next iBlatt
End Sub


Gruß Peter

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige