Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1260to1264
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
1260to1264
1260to1264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tipp schnell doppelte finden in VBA

Tipp schnell doppelte finden in VBA
Heiti
Moin,
ich brauche einemal eine Beratung bzw. Tipps wie ich meine Funktion verbessere.
Derzeit öffne ich mehrere Dateien und schreibe in eine Excel Liste die Eintragungen. Weil in den Dateien doppelte Einträge stehen können durchlaufe ich für jeden Beitrag die Liste und schreibe diese nur weg, wenn diese nicht schon vorhanden sind. (Die dürfen unter keinen Umständen in dieser Liste doppelt sein)
Dies dauert mein mehreren tausend Eintragungen ewig. Hat jemand eine Idee wie es schneller gehen kann. Wo ich Zeit sparen kann usw.?
Vielen Dank für die Hilfe.
AW: Tipp schnell doppelte finden in VBA
23.04.2012 13:04:13
Rudi
Hallo,
kannst du doch einfach mit Zählenwenn() prüfen.
Gruß
Rudi
AW: Tipp schnell doppelte finden in VBA
23.04.2012 13:05:53
Heiti
Das sollte schon eine rein VBA Funktion sein bitte, da ich versuche das aufzubauen, ohne das mir unsere Benutzer was kaputt machen können. So ein Mix zwischen VBA und Excel-Funktionen finde ich an der Stelle ehh nicht soo passend, da ich die Dateien nicht zwischenpuffern will.
AW: Tipp schnell doppelte finden in VBA
23.04.2012 13:16:39
Rudi
Hallo,
du kannst die Funktion doch auch in VBA benutzen.
Gruß
Rudi
AW: Tipp schnell doppelte finden in VBA
23.04.2012 13:17:21
Heiti
Das kenn ich noch nicht, wie machst du das?
AW: Tipp schnell doppelte finden in VBA
23.04.2012 13:24:20
Rudi
Hallo,
bei dem angegebenen Level hab ich gedacht, dass du klar kommst.
If Application.Countif(Bereich, Suchbegriff)=0 then
'Daten übertragen
End If
Gruß
Rudi
Anzeige
AW: Tipp schnell doppelte finden in VBA
23.04.2012 13:26:27
Heiti
Sry... klassische Fehleinschätzung... aber den Befehl kannte ich noch nicht...
vielen Dank.
CountIf in anderem Dokument...
24.04.2012 14:25:10
Heiti
soo nun hab ich aber noch ne erweiterung dazu.
        Set Excel1 = CreateObject("Excel.Application")
Excel1.EnableEvents = False
Excel1.Workbooks.Open DatenbankPfad
t = 0
strText = Tabelle1.Cells(10, nUeListeSpalteGrundsprache)
If Excel1.CountIf(Excel1.Worksheets(1).Range(Excel1.Worksheets(1).Cells(1, 1),  _
Excel1.Worksheets(1).Cells(1, 5000)), strText) = 0 Then
aArray(t) = Tabelle1.Cells(Z, nUeListeSpalteGrundsprache)
t = t + 1
End If
Excel1.ActiveWorkbook.Close savechanges:=False
Excel1.Quit
Ich bekomme dabei die Fehlermeldung:
Laufzeit '1004'
Anwendungs- oder objektdefinierter Fehler
Hat jemand eine Idee?
Anzeige
CountIf in anderem Dokument...
24.04.2012 14:25:49
Heiti
Sry Frage natürlich noch offen..
warum neue Instanz?
24.04.2012 15:02:15
Rudi
Hallo,
öffne das Workbook in der gleichen Instanz.
Gruß
Rudi
AW: warum neue Instanz?
24.04.2012 15:10:36
Heiti
Danke dann gehts.

305 Forumthreads zu ähnlichen Themen

Benötige VBA, da Array-Formel nicht funktioniert
oblivion

Hallo, im Anhang meine Datei. Dort habe ich Problem auch schon beschrieben.
Versuche es hier noch mal kurz zu beschreiben.
https://www.herber.de/bbs/user/54731.zip
In meiner Datei habe ich mehrere Tabellenblätter. Auf "Gesamt" werden jeden Monat die entsprechenden Daten eingetragen...
19.08.2008 18:14:00
Thread-ID: 1003018
3 Beiträge
Anzeige
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Anzeige
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
Array-Formel in VBA
Peter

Hallöchen liebe Excel Gemeinde,
ich hab da ein kleines Problem, wo ich hoffe, dass mir die VBA Spezialisten unter Euch helfen können.
Und zwar geht es um folgende Formel im VBA Code:
wb1.Worksheets(letztdat3).Cells(4, d).FormulaArray = _ "=SUM(COUNTIF(INDIRECT("""" & TRANSPOSE...
02.02.2009 17:28:00
Thread-ID: 1046339
6 Beiträge
Wert suchen, eintragen, weitersuchen (VBA)
Nico

Moin
Nachdem ich Gestern mein Problem mit einem Sverweis über mehrere Zellen lösen wollte (Danke nochmal an Josef Ehrensberger) habe ich heute feststellen dürfen, dass es zwar funktioniert - aber die Verzögerung auf Grund der Masse an Daten doch zu hoch ist.
Hier also mein Problem zieml...
26.02.2009 09:19:15
Thread-ID: 1054225
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
2
2
12
2
5
1
4
2
5
10
8
2
1
3
8
4
23
4
3
9
4
1
3
3
3