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
1788to1792
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
1788to1792
1788to1792
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datensätze auf bekannte Werte prüfen

Datensätze auf bekannte Werte prüfen
30.10.2020 12:01:10
Sven
Hallo Leute,
ich habe eine monatliche Liste von 2000-3000 Datensätzen, die ich neu importiere. Ab und zu kann es sein, dass dort ein durch die Artikelnummer identifizierbarer Datensatz enthalten ist, den ich schon in einem Vormonat dabei hatte. Ich würde diesen gerne markieren um ihn von der Bearbeitung ausschließen.
Wenn ich hierfür also eine "Blacklist" pflege, in die ich jeden Monat die Artikelnummern schreibe und die am Jahresende um die 30000 Zeilen groß ist, ist es arg unperformant, wenn ich jeden neuen Import mittels Schleifendurchlauf abprüfe.
Gibt es da eine andere colle Lösung?
Grüße
Sven

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datensätze auf bekannte Werte prüfen
30.10.2020 12:45:17
Sven
Hallo Jochen,
danke. Das hilft aber nicht weiter. Hier wird ja nur innerhalb des jeweiligen Imports auf Duplikate geprüft. Die wird es nicht geben. Der Vergleich müsste ja mit einer anderen Liste erfolgen.
AW: war mit anderem Ansatz gedacht...
30.10.2020 14:00:57
JoWE
stimmt, die Idee war anders::
- alles neue unter den vorhandenen Werten einfügen
- und danach den Abgleich machen.
Geht schnell und ohne Programmierung.
Gruß
Jochen
Anzeige
AW: Datensätze auf bekannte Werte prüfen
30.10.2020 12:48:42
volti
Hallo Sven,
leider weiß ich nicht, wie Du Deine Schleife gestaltest hattest und wo bei Dir unperformant anfängt.
Wenn Dir Jochen's Lösung nicht zusagen sollte, probiere mal folgende Anregung aus. Das ist zwar auch eine Schleife, aber nur über die importierten Daten. 2000 Datensätze sollten nicht so lange dauern.
Code:


[Cc]



Sub MarkiereArtikel()
  Dim iZeile As Long
  
  With ActiveSheet
   For iZeile = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
    If WorksheetFunction.CountIf(Worksheets("Blacklist").Range("A:A"), _
       .Cells(iZeile, "A").Value) > 0 Then
       .Cells(iZeile, "A").Interior.Color = RGB(255, 255, 0)
    End If
   Next iZeile
  End With
 End Sub
_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Anzeige
AW: Datensätze auf bekannte Werte prüfen
30.10.2020 13:24:53
Sven
Hallo Karl-Heinz,
oh, danke für den Code.
Allerdings mache ich offenbar irgendetwas falsch: 
With ThisWorkbook.Worksheets("DWH")
For lonZeilen = 1 To .Cells(Rows.Count, "G").End(xlUp).Row
If WorksheetFunction.CountIf(Worksheets("Blacklist").Range("A:A"), _
.Cells(lonZeilen, "G").Value) > 0 Then
.Cells(lonZeilen, "G").Interior.Color = RGB(255, 255, 0)
End If
Next lonZeilen
End With

DWH ist das neu importierte Tabellenblatt mit besagter Nummer in Spalte G.
Die Schleife wird durchlaufen, markiert wird aber nichts.
AW: Datensätze auf bekannte Werte prüfen
30.10.2020 13:47:59
volti
Hallo Sven,
Dein Code sieht mir eigentlich korrekt aus. Ich habe ihn nachgebaut und es funktioniert
Und die Referenzartikelnummern stehen bei Dir auch in Spalte $A?
Gibt es ggf. Unterschiede bzgl. des Formats?
Ansonsten müsstest Du mal eine abgespeckte Probemappe hochladen
viele Grüße
Karl-Heinz
Anzeige
AW: Datensätze auf bekannte Werte prüfen
30.10.2020 13:53:27
volti
Nachtrag:
Es wird auch nichts markiert, sondern zunächst nur gelb hinterlegt.
VG KH
AW: Datensätze auf bekannte Werte prüfen
30.10.2020 14:16:50
Sven
Schön, beim Anonymisieren der Arbeitsmappe hatte es dann geklappt. Ich hatte wohl wirklich Formatunterschiede. Vielen Dank.
AW: Datensätze auf bekannte Werte prüfen
30.10.2020 14:20:46
Sven
Achso, wie würdest Du die nun geprüften IDs der Blacklist anfügen, damit sie nächsten Monat berücksichtigt werden?
AW: Datensätze auf bekannte Werte prüfen
30.10.2020 15:04:28
volti
Hallo Sven,
hier eine Idee:
Code:


[Cc][+][-]







	
	
	
	




Sub MarkiereArtikel()
 Dim lonZeilen As Long
 Dim sNeueArtikel As String, sArr() As String
 Dim WSh As Worksheet
  
 Set WSh = Worksheets("Blacklist")
 
 With ThisWorkbook.Worksheets("DWH")
      For lonZeilen = 1 To .Cells(Rows.Count, "G").End(xlUp).Row
          If WorksheetFunction.CountIf(WSh.Range("A:A"), _
             .Cells(lonZeilen, "G").Value) > 0 Then
             .Cells(lonZeilen, "G").Interior.Color = RGB(255, 255, 0)
          Else
             sNeueArtikel = sNeueArtikel & .Cells(lonZeilen, "G").Value & ","
          End If
      Next lonZeilen
 End With

'Neue Artikel aufnehmen
 If sNeueArtikel <> "" Then
   sArr = Split(sNeueArtikel, ",")        'Neue Artikelnummern in Array
   lonZeilen = WSh.Cells(Rows.Count, "A").End(xlUp).Row + 1
   WSh.Cells(lonZeilen, "A").Resize(UBound(sArr), 1).Value = Application.Transpose(sArr)
 End If
 
End Sub
_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Anzeige
AW: Datensätze auf bekannte Werte prüfen
02.11.2020 09:52:11
Sven
Klasse, Karl-Heinz! Das klappt.
Selbst wenn 1000 Nummern auf die schwarze Liste gesetzt werden funktioniert es - ich hätte befürchtet, dass der String da irgendwann vollläuft...
Grüße
Sven
AW: Datensätze auf bekannte Werte prüfen
02.11.2020 10:14:47
volti
Hallo Sven,
danke für die positive Rückmeldung.
Der String läuft nicht voll, bzw. das hängt vom verfügbaren Memory ab. 😊
Als ich anfing zu programmieren, durfte ein String max. 255 Zeichen haben, später war's dann ein Segment, also 65.535 Zeichen.....
viele Grüße
Karl-Heinz

131 Forumthreads zu ähnlichen Themen

Nullwerte nur bei Bezug auf leere Zellen unterdrüc
Christian

Hallo,
ich suche nach einem Tipp, wie ich Excel dazu bringen kann, keine Nullwerte anzuzeigen, wenn es sich auf eine leere Zelle bezieht. Es soll jedoch eine Null anzeigen, wenn es sich auf eine Zelle mit dem tatsächlichen Wert 0 bezieht. Daher scheidet die generelle Möglichkeit, die Nullwe...
21.01.2009 13:59:43
Thread-ID: 1042168
5 Beiträge
Anzeige
Eingabe in USERFORM/Prüfen ob Wert vorhand
Peter

Guten Tag,
wir benutzen im Büro eine Tabelle, die von mehreren Mitarbeitern genutzt wird.
Die Eingabe erfolgt über eine USERFORM mit Textbox für Datum (Spalte A),
Textbox für Preis "A" (Spalte B) und Textbox für Preis "B" (Spalte C) etc..
Da sich in letzter Zeit häufig Fehler ei...
21.06.2009 17:38:10
Thread-ID: 1083287
11 Beiträge
Zelle auf mehrere werte aus tabelle überprüfen
Michael

hallo
für einen script müsste eine zelle a1 dahingehend überprüft werden, ob der dort eingegebene wert identisch ist mit werten, die in b1:b200 stehen. sollte der wert in a1 identisch sein mit einem der werte in b1:b200, wird dann eine if-anweisung ausgeführt.
wie lautet der code für di...
07.08.2009 13:18:50
Thread-ID: 1094283
3 Beiträge
Anzeige
Zelle auf bestimmten Inhalt prüfen
Mandy

Hallo,
ich habe in meinem Excel Sheet sowas wie ein Kopf, wo der User Pflichtfelder ausfüllen MUSS.
Leider ist das Format so blöd, dass gleich 5 Abfragen in einer Zelle gemacht werden.
Die 5 Angaben sind also durch einen Zeilenumbruch innerhalb der Zelle dargestellt, sieht ungefähr...
14.09.2009 10:06:22
Thread-ID: 1102539
7 Beiträge
Combobox in Abhängigkeit von Wert in 2. Spalte
Wert

Hallo Forum,
Ich habe in Tabelle1 eine Spalte (A2:A45) mit Mitarbeiternamen.
In der 2. Spalte wird festgehalten, ob diese MA eine bestimmte Qualifikation haben (mittels "x" quasi angekreuzt).
In Tabelle2 gibt es eine Combobox, die ich nun mit den Werten aus der o.g. Spalte befüllen...
11.10.2009 23:11:06
Thread-ID: 1108963
4 Beiträge
Zelle auf Anzahl Zeichen prüfen
Kai

Hi,
ich möchte im Sheet "Daten" die Zelle A1 prüfen, ob der Inhalt mehr als 35 Zeichen ist, wenn ja, soll eine MsgBox ausgegeben werden.
Wie zähle ich denn die Zeichen per Makro ?
Danke schon mal
Kai
03.11.2009 08:56:05
Thread-ID: 1114000
2 Beiträge
Zelle auf verschiedene Inhalte überprüfen
massimo17

Hallo,
ich möchte gerne eine Zelle auf verschiedene Inhalte überprüfen.
Bisher kann ich nur nach einem Suchen mit folgender Formel:
=WENN(ISTZAHL(SUCHEN("E10";W2));"1";"0")
Also Zelle"W2" nach dem Wert E10 durchsuchen; ich möchte aber dass die Zelle nach E10 oder E11 oder E12 od...
03.12.2009 20:55:44
Thread-ID: 1121687
7 Beiträge
Bereich prüfen ob Wert enthalten oder leer
chris

Hallo Excelprofis und guten morgen,
ich hätte eine frage.Vielleicht könnt ihr mir helfen.
ich möchte gerne einen bereich prüfen ob ein wert vorhanden ist.
Also z.b Bereich A1 bis G1
ich möchte jetzt einfach prüfen ob in einer dieser 7 Zellen prüfen ob ein wert vorhanden/eingetra...
04.03.2010 07:47:03
Thread-ID: 1143197
3 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
4
12
10
2
3
6
3
1
6
2
3
3
3
2
9
3
2
3
2
4
5
2
6
2
6