Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2024 09:02:18
Dateiordner auslesen
28.04.2024 01:34:12
Userform aus ListBox Zeile in Tabelle farbig markieren
27.04.2024 20:04:34
Excel in Formen z.b Rechteck, eine Tabelle einfügen?
27.04.2024 19:23:05
Passwortabfrage für verschiedene tabellenblätter
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1748to1752
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
1748to1752
1748to1752
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfen ob in 2 Dateien Max Doppelt ist

Prüfen ob in 2 Dateien Max Doppelt ist
07.04.2020 20:43:32
Sabrina
Hallo.
Onur hat mir vor einem Jahr bei meiner Fragestellung geholfen .. bzw. er hat mir den Code dazu geschrieben.
Danke nochmal.
Hier der Link zum alten Thred: https://www.herber.de/forum/cgi-bin/callthread.pl?index=1695422#1695422
Nun muss ich das erweitern.
Es wird in der Datei Daten.xlsm in der zweiten Spalte geschaut ob die letzten 20 Zahlen (von der höchsten Zahl max rückwirkend) fortlaufend sind, eine fehlt oder doppelt ist.
Ich habe eine Beispieldatei hochgeladen.
https://www.herber.de/bbs/user/136508.xlsm
Es soll nun so sein dass die aus der Datei Daten.xlsm und Archiv.xlsm ( auch 2. Spalte ) die Zahlen geprüft werden
Also es kann sein dass eine fehlende Zahl in der Datei Archive.xlsm steht.
Liebe Grüße
Sabbel

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfen ob in 2 Dateien Max Doppelt ist
07.04.2020 22:15:23
Barbara
Nette Geschichte, Sabbel. Hast Du viel zu tun? Was treibst du so? Hast Du Quarantäne?
Du weißt ja: Hier wird Dir fast jede Frage beantwortet.
Übrigens, wenn Du was wissen willst: Frag nur.
AW: Prüfen ob in 2 Dateien Max Doppelt ist
08.04.2020 22:35:01
Sabrina
Kann mir jemand weiterhelfen?
LG
Sabbel
Habe es hinbekommen ... geht es auch einfacher?
08.04.2020 23:14:48
Sabrina
Huhu ... ich habe es selbst hinbekommen.
Hat jemand eine Idee ob und wie es einfacher (schnellerer Ablauf) geht?
Public Sub Rechnungsnummer_prüfen()
Dim wksDaten As Worksheet, wksArchiv As Worksheet
Set wksDaten = Workbooks("Daten.xlsm").Worksheets("Daten")
Set wksArchiv = Workbooks("Archiv.xlsm").Worksheets("Daten")
Dim z, min, max, w, found, zeilen, AnzahlZeilen, AnzahlZeilenArchiv
min = 999999: max = 1
AnzahlZeilen = wksDaten.Range("A65536").End(xlUp).Row
AnzahlZeilenArchiv = wksArchiv.Range("A65536").End(xlUp).Row
zeilen = Application.WorksheetFunction.CountA(Range("A:A"))
With wksDaten
zeilen = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For z = 2 To 5000
w = .Cells(z, 2)
If w > 410000 And w  max Then max = w
End If
Next z
For w = max - 20 To max
found = 0
For z = 2 To AnzahlZeilen
If wksDaten.Cells(z, 2) = w Then found = found + 1
Next z
For z = 2 To AnzahlZeilenArchiv
If wksArchiv.Cells(z, 2) = w Then found = found + 1
Next z
If found = 0 Then MsgBox w & " kommt nicht vor!"
If found > 1 Then MsgBox w & " kommt " & found & " mal vor!"
Next w
End With
End Sub
Liebe Grüße
Sabbel
Anzeige
AW: Habe es hinbekommen ... geht es auch einfacher?
08.04.2020 23:38:39
Barbara
Schwer zu sagen, da kein Archiv existiert.
Vorsicht: 444127 fehlt (falls das noch wichtig ist.
Vielleicht kannst Du die Funktion KGRÖSSTE brauchen?
Wieso schellerer Ablauf? Ist doch bei 50 Zellen kein Thema, oder?
LGB
AW: Habe es hinbekommen ... geht es auch einfacher?
08.04.2020 23:58:29
Sabrina
In der Testversion ja .. in den Real Dateien sind es über 50000 Zeilen.
Gruß
Sabbel

302 Forumthreads zu ähnlichen Themen

Makro prüft ob Datei vorhanden ist.
Peter

Hallo!
Ich bin wirklich ratlos: in meinem Sheet wird eine spezielle Schriftart verwendet. Das Sheet wird leider nur dann leserlich angezeigt, wenn die Schriftart installiert ist. Deshalb soll ein Makro prüfen, ob die Datei "Grafikfonds.TTF im folgenden Ordner vorhanden ist C:\WINDOWS\Fonts\...
28.12.2008 01:46:00
Thread-ID: 1035513
3 Beiträge
Anzeige
Prüfen ob Zelle vorhanden...
pervenches

Guten Tag
Diese Formel sollte überprüfen, ob die Zelle "Erfolg" mit Inhalt "2" vorhanden ist und falls ja den entsprechenden Wert ausgeben. Falls diese Zelle nicht vorhanden ist sollte Sie den Wert von "G1" ausgeben. Die Zelle ist nicht immer vorhanden, da es sich um eine Pivot-Tabelle han...
09.09.2009 09:02:19
Thread-ID: 1101377
5 Beiträge
Prüfen ob Datei vorhanden
Marcus

Hallo,
kann mir jemand sagen, wie folgender Code aussehen muss:
Prüfen ob eine Datei, die ich als Bild in Excel mit VBA einfügen möchte, vorhanden ist.
If Dir(K:\Modelle Zeichnungen\Sal\Bilder TIF\...001.TIF) "" Then
Allerdings steht die Pfadangabe in der Zelle H2, da es verschi...
15.10.2009 07:05:26
Thread-ID: 1109751
2 Beiträge
Anzeige
Prüfen ob Schaltfläche vorhanden
walli

Guten Tag,
ALLEN ein frohes Weihnachtsfest !
Ich habe mal gestöbert und dies gefunden.
Ich möchte nur prüfen ob ein Schaltfläche mit der Nummer 10 vorhanden ist, das klappt so nicht.
Dim shShape As Shape
For Each shShape In Worksheets("Test").Shapes
If shShape.Name = "Sc...
25.12.2009 15:52:15
Thread-ID: 1125912
7 Beiträge
Prüfen ob Tabellen vorhanden
Kurt

Guten Morgen,
wünsche allen ein gesundes neues Jahr !
Danke für die bisherige Unterstützung !
Frage:
Ich habe eine Datei mit Tabellen die mit Monatsnamen hinterlegt
sind. (MMM)
Ich möchte prüfen ob ein Monat fehlt.
mfg Kurt P
05.01.2010 09:31:14
Thread-ID: 1127179
7 Beiträge
ControlPopup prüfen ob 2 mal vorhanden
marco

Hallo Kollegen,
Habe momentan ein problem mit der abfrage ob das popup vorhanden ist. Obwohl in der Menueleiste das Popup mit dem Namen "PT-Tool" vorhanden ist.
Popup wird ertellt.
Public Sub prcCreateButton() Dim myCommandBar As CommandBar Dim myCommandBarPopup As CommandBarContro...
28.01.2010 17:44:30
Thread-ID: 1133863
3 Beiträge
prüfen ob versch. Ziffern in Zellen vorhanden sind
Heinz

Hallo Excellenten,
viele Grüße an Alle an an diesem (im Süden) sonnigen Tag.
Mein Problem: Ich habe eine Spalte mit folgenden Zellen:
A1: 1;0000000 9; 10;000 14;00000000 23;0 25;0 27; 28; 29;0
A2: 00000000 9;00000000000000 24; 25;00000
A3: 00 3;0000000000000000 27;000
A...
08.04.2010 21:26:15
Thread-ID: 1150683
4 Beiträge
Überprüfen ob Tabellenblatt vorhanden ist
Ingo

Hallo zusammen,
hab folgendes Problem. Ich öffne nacheinander verschiedene Dateien um bestimmte Zellen auszulesen.
Wenn in der geöffneten Datei das Tabellenblatt mit dem Namen "Motor" nicht vorhanden ist sollen die nachfolgenden Schritte nicht bearbeitet werden. Irgendwie klappt das bei...
20.04.2010 11:44:29
Thread-ID: 1152802
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
2
1
4
1
5
6
6
2
3
2
3
3
2
4
6
6
3
3
2
3
3
3
7
4
4