Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
920to924
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
920to924
920to924
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listen vergleichen-fehlende Werte einfügen

Listen vergleichen-fehlende Werte einfügen
06.11.2007 18:15:01
anja
Hallo Profis,
ich habe eine Frage:
wie kann man zwei Listen per VBA vergleichen und
die Werte die in einer Liste nicht verfügbar sind
in diese Liste einfügen.
Die Erklärung ist in der Datei "Test.xls" deutlicher beschrieben.
https://www.herber.de/bbs/user/47468.xls
Ich freue mich über jeden Tipp.
Danke und viele Grüße
Anja

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

Betreff
Datum
Anwender
Anzeige
AW: Listen vergleichen-fehlende Werte einfügen
07.11.2007 00:27:06
Daniel
Hi
zum Beispiel mit diesem Makro:

Sub Fehlende_Zeilen_ergänzen()
Dim shNew As Worksheet
Dim shData As Worksheet
Dim Anzahl As Integer
Set shNew = Sheets("new")
Set shData = Sheets("data")
'--- Id ergänzen
With Range(shNew.Cells(5, 3), shNew.Cells(4, 2).End(xlDown).Offset(, 1))
.FormulaR1C1 = "=rC[-2]&"" ""&RC[-1]"
End With
'--- Fehlende Werte suchen
With Range(shData.Cells(3, 5), shData.Cells(2, 1).End(xlDown).Offset(, 4))
.FormulaR1C1 = "=COUNTIF(new!C3,RC[-2])"
Anzahl = WorksheetFunction.CountIf(.Cells, 0)
End With
'--- Abfrage
Select Case MsgBox(Anzahl & " logische Systemen wurden in der Liste nicht gefunden!" _
& Chr(10) & "Möchten Sie die Liste mit neuen Daten ergänzen?", vbYesNo)
Case vbYes
'--- fehlende Werte einfügen
With shData.Cells(2, 1)
.AutoFilter field:=5, Criteria1:="=0"
Range(.Offset(1, 0), .End(xlDown)).Resize(, 2).SpecialCells(xlCellTypeVisible) _
.Copy Destination:=shNew.Cells(4, 1).End(xlDown).Offset(1, 0)
.AutoFilter
End With
Case Else
End Select
'--- Spuren löschen
shData.Columns(5).Clear
shNew.Columns(3).Clear
End Sub


Gruß, Daniel

Anzeige
AW: Listen vergleichen-fehlende Werte einfügen
08.11.2007 09:50:52
anja
SUPER!
Danke!
:)

302 Forumthreads zu ähnlichen Themen

Gleiche Zeilen zählen und Werte zusammenzählen
asz

Hallo,
ich habe ein Problem: Ich habe eine Liste wie die folgende:
https://www.herber.de/bbs/user/62689.xls
Es handelt sich jeweils um mehrere Exemplare desselben Buches/Titels. In Spalte I stehen die Ausleihzahlen der einzelnen Exemplare. Ich würde nun gern in einem neuen Blatt au...
23.06.2009 16:26:09
Thread-ID: 1083867
2 Beiträge
Anzeige
gleiche Zahlen zusammenfassen
Karl

Guten Tag!Ich finde aus meinem Problem kein Ausweg. Vielleicht kann mir jemand helfen.Wie fasse ich Zahlen, die mit der gleichen Ziffer beginnen in einer extra Tabelle zusammen.
24.04.2002 16:26:05
Thread-ID: 116008
3 Beiträge
Beschriftung Liniendiagramm gleiche Werte
Suzette

Hallo Ihr Lieben,
vor einiger Zeit hat mir folgender Code super geholfen:
Sub Beschriftung() Dim chrDiagramm As Chart Dim arrWerte1 Dim arrWerte2 Dim intPunkt As Integer Set chrDiagramm = Worksheets("Kosten").ChartObjects(1).Chart With chrDiagramm arrWerte1 = .SeriesCollection("2009").V...
28.08.2010 09:11:00
Thread-ID: 1174557
2 Beiträge
Anzeige
2 Tabellen vergleichen,bei unter. Werte farblich
Sven

Hallo,ich habe ein, für mich, großes Problem.
Ich habe 2 Tabellen auf unterschiedlichen WorkSheets.
Jetzt wird die erste Tabelle nach einem Primärschlüssel
mit der zweiten verglichen und falls der Primärschlüssel identisch ist, wird der ganze Datensatz ersetzt.
Jetzt meine Frage: Is...
24.05.2002 07:59:32
Thread-ID: 123294
4 Beiträge
Doppelte Werte zusammen addieren
Pascal

Hallo liebes Forum,
ich hab mal eine Frage. Ich hab eine Datei. Im ersten Tabellenblatt " Zeitprotokoll" befinden sich in der Spalte E Innenauftragsnummern, diese Innenauftragsnummern können auch mehrfach vorkommen.
In der Spalte K befinden sich die dazu gehörigen Zeiten. Jetzt würde...
08.06.2011 12:50:32
Thread-ID: 1217728
2 Beiträge
Werte vergleichen aus verschiedenen Tabellen
Kai

Hallo zusammen,
in Tabelle 1 habe ich unter Spalte E verschiedene Zahlen stehen. In Tabelle 2 habe ich unter Spalte B auch verschiedenen Zahlen stehen. Jetzt möchte ich wissen, welche Zahlen von Tabelle 2 Spalte B auch in Tabelle 1 Spalte E vorkommen. Am besten wäre es, wenn Excel mir bei d...
24.08.2011 08:29:33
Thread-ID: 1227344
3 Beiträge
Tabelle mit gleichen Werten farblich formatieren!
Bobby

Hallo zusammen,
habe folgendes Problem:
Möchte eine Tabelle mittels einer VBA-Prozedur zweifarbig abgrenzen(Grau/Weiss), sodass gleiche Inhalte in Spalte "A", die immer untereinander stehen über die gesamte Zeile farbig von den nächsten anderen Werten abgegrenzen. Die Anzahl der Spalten i...
05.06.2002 18:36:40
Thread-ID: 126266
4 Beiträge
Rangliste (gleicher Rang für doppelte Werte)
Peter

Guten Morgen
In der Praxis scheitert die Rang-Funktion häufig an der Anforderung, dass doppelte Werte keinen identischen Rang bekommen dürfen. Die Funktion weist gleichen Werten den gleichen Rang zu und überspringt den nächsten Rang (Quelle: Excel Formeln und Funktionen Markt & Technik)...
24.02.2012 08:55:57
Thread-ID: 1252267
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
4
2
1
4
3
1
2
3
10
1
6
2
1
3
2
1
9
8
6
1
2
11
1
9