Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
392to396
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
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

vergleichen und ausgeben von Differenz

vergleichen und ausgeben von Differenz
08.03.2004 13:15:32
Jens
Hallo,
ich habe folgendes Problem bei dem ich für Hilfe sehr dankbar wäre:
Auf dem ersten Blatt meines files stehen mehrere Hundert Sap Codes, jeweils pro Zeile einer mit dem Artikel entsprechenden Daten in den Spalten. Diese Sap Codes sind nach Kunden auf weitere Arbeitsblätter verknüpft. Da es aber fast wöchentlich vorkommt das neue Artikel angelegt werden bin ich jedes Mal gezwungen alle diese Sap Codes mit denen auf den Kundenarbeitsblättern zu vergleichen um den fehlenden (auf einem der Kundenblätter) nachzutragen.
Frage: Gibt es eine Möglichkeit per VBA die Codes auf der ersten Seite mit denen von allen anderen Seiten zu vergleichen und nicht gefundene auf einem Extrablatt (wenn Möglich die ganze Zeile) anzeigen zu lassen?
Für einen Code wäre ich sehr dankbar!
Vielen Dank schon mal vorab!

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

Betreff
Datum
Anwender
Anzeige
AW: vergleichen und ausgeben von Differenz
08.03.2004 14:04:23
Jens
Keiner eine Idee? Wäre wirklich sehr wichtig für mich eine passende Lösung zu finden, kann doch eigentlich nicht so schwer sein für die Cracks hier im Forum?
AW: vergleichen und ausgeben von Differenz
08.03.2004 14:04:36
Jens
Keiner eine Idee? Wäre wirklich sehr wichtig für mich eine passende Lösung zu finden, kann doch eigentlich nicht so schwer sein für die Cracks hier im Forum?
AW: vergleichen und ausgeben von Differenz
08.03.2004 14:14:26
K.Rola
Hallo,
ohne die genaue Struktur zu kennen, kann man nur raten. Am besten,
du lädst mal eine Beispieldatei hoch, können ja Dummydaten sein.
Gruß K.Rola
AW: vergleichen und ausgeben von Differenz
08.03.2004 14:48:47
Jens
Hallo,
ich habe ein Beispielfile der Datei hochgeladen. Der link ist
https://www.herber.de/bbs/user/4138.xls
Die Datei enthält alle für diesen Zweck notwendigen Daten. Ich wäre Ihnen wirklich sehr verbunden wenn Sie mich bei einer Lösung unterstützen könnten!
Vielen Dank im voraus!
Grüße
Anzeige
AW: vergleichen und ausgeben von Differenz
08.03.2004 15:55:10
K.Rola
Hallo,
kannst du die Datei mal zippen, 2,5 MB sind doch etwas heftig.
Gruß K.Rola
AW: vergleichen und ausgeben von Differenz
08.03.2004 16:59:17
Jens
Hallo,

sorry wegen der späten Antwort, war im Meeting bis gerade eben.
Klar, zippen ist kein Problem, hab die neue Datei hochgeladen. Der neue Link ist
https://www.herber.de/bbs/user/4143.zip
Vielen Dank schonmal
AW: vergleichen und ausgeben von Differenz
08.03.2004 22:26:18
K.Rola
Hallo,
Code in ein Standardmodul:
Option Explicit
Const S1$ = "SAP file"
Const S2$ = "Übersicht"
Const S3$ = "Check sheet"
Dim ws As Worksheet, wsCheck As Worksheet
Dim varSB
Dim z As Long, lz As Long, lzCheck As Long, lngFound As Long

Sub finde_SAP_Code()
Application.ScreenUpdating = False
Set wsCheck = Sheets(S3)
For Each ws In Worksheets
If ws.Name <> S1 And ws.Name <> S2 And ws.Name <> S3 Then
lz = ws.[f65536].End(xlUp).Row
For z = 2 To lz
If Not IsEmpty(ws.Cells(z, 6)) Then varSB = ws.Cells(z, 6).Text
On Error Resume Next
lngFound = WorksheetFunction.Match(varSB, Sheets(S1).Columns(2), 0)
If Err Then
lzCheck = wsCheck.[a65536].End(xlUp).Row + 1
ws.Rows(z).Copy wsCheck.Cells(lzCheck, 1)
Err.Clear
End If
Next
End If
Next
Application.ScreenUpdating = True
End Sub

Gruß K.Rola
Anzeige
AW: vergleichen und ausgeben von Differenz
09.03.2004 09:55:44
Jens
Hi!
Vielen Dank erstmal für die Nächtliche Arbeit, wie kann ich das nur wieder gut machen?!
Gibt aber leider ein kleines Problem: Wenn ich den Code in das original File kopiere kommt eine Fehlermeldung: Laufzeitfehler`9` Index außerhalb des gültigen Bereichs, und wenn ich auf testen gehe bleibt er auf der Zeile Set wsCheck = Sheets(S3) stehen.
In dem Testfile das ich für dich gemacht hatte kopiert er nun einfach alle in den Automarken Tabellen enthaltenen Codes in das Check sheet.
Da ich keine Ahnung von VBA habe kann ich das Problem leider nicht lösen?
Ob du nochmal kurz drüberschauen könntest? Wäre Dir sehr verbunden...
Grüße
Jens
Anzeige
AW: vergleichen und ausgeben von Differenz
09.03.2004 12:21:03
K.Rola
Hallo,
ich bin natürlich von der Struktur der Mappe ausgegangen, die du geladen hast.
Der Fehler entsteht dadurch, dass das Blatt entweder nicht existiert
oder der Name anders ist(Schreibweise?).
Gruß K.Rola
AW: vergleichen und ausgeben von Differenz
09.03.2004 14:14:57
Jens
Hi!
Ich habe das Problem mit der fehlenden Mappe hinbekommen, allerdings hat der Code (soweit ich das einschätzen kann, ist quasi mein erster VBA Tag) ein logik Problem. Wenn ich das richtig verstehe nimmt er die Codes der Autohersteller Tabellen und schaut dann ob diese im SAP file vorhanden sind. Es müsste aber umgekehrt sein, er soll die Codes aus der SAP file nehmen und schauen ob diese in den Autohersteller Tabellen stehen...
Ich hab schon ein richtig schlechtes Gewissen weil du sicherlich schon einiges an Zeit in dieses Problem investiert hast, ich hoffe ich nerve dich nicht zuviel!
Gruß
Jens
Anzeige
AW: vergleichen und ausgeben von Differenz
10.03.2004 00:45:47
K.Rola
Hallo,
so einen Code schreibe ich in 10 Minuten, das ist nicht das Problem.
Entweder, ich hab das missverstanden oder du hast das falsch beschrieben.
Aber nun ist es ja klar.
Btw, es wäre vorteilhaft, wenn die Daten konsistent wären, sprich, wenn immer
gleiche Datentypen verwendet werden. Bei deiner Datei sind es manchmal Zahlen
und manchmal Text.
Muss jetzt etwas arbeiten. schau mal morgen gegen Nachmittag rein.
Gruß K.Rola
AW: vergleichen und ausgeben von Differenz
10.03.2004 19:59:22
K.Rola
Hallo,
Option Explicit
Declare 

Function Beep Lib "kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long


Sub finde_SAP_Code()
Const S1$ = "SAP file"
Const S2$ = "Übersicht"
Const S3$ = "Check sheet"
Dim ws As Worksheet, wsCheck As Worksheet, varSB, rngCell As Range
Dim strAddr$, zz&, z&, lz&, lzCheck&, lngFound&
Application.ScreenUpdating = False
lz = 4: zz = 1
Do While Sheets(S1).Cells(lz, 2) <> ""
lz = lz + 1
Loop
Set wsCheck = Sheets(S3)
For Each ws In Worksheets
If ws.Name <> S1 And ws.Name <> S2 And ws.Name <> S3 Then
For z = 4 To lz - 1
varSB = Sheets(S1).Cells(z, 2)
With ws.Columns(6)
Set rngCell = .Find(varSB, LookIn:=xlValues, Lookat:=xlWhole)
If Not rngCell Is Nothing Then
strAddr = rngCell.Address
Do
zz = zz + 1
ws.Rows(rngCell.Row).Copy wsCheck.Rows(zz)
Set rngCell = .FindNext(rngCell)
Loop While Not rngCell Is Nothing And rngCell.Address <> strAddr
End If
End With
Next
End If
Next
Beep 440, 50
Beep 554, 80
Beep 660, 110
Beep 880, 200
Application.ScreenUpdating = True
End Sub



Gruß K.Rola
Anzeige

301 Forumthreads zu ähnlichen Themen

Zwei Werte Vergleichen....
chrissey

Hallo Leut,
hätte ne easy Frage:
Habe in Zelle A1 einen Wert, sagen wir mal "HANS", stehen und möchte nun eine Mtrix nach diesen Wert absuchen
sagen wir mal die Zellen
B10 bis B100 (gefüllt mit Namen: PETER; DIETER; ...... ; HANS; usw.)
wie mach ich des? Vergleich gibt mir...
10.10.2008 15:09:52
Thread-ID: 1015606
3 Beiträge
Anzeige
2 Zellen, gleicher Inhalt, egal welche ausgefüllt
Peter

Hallo zusammen,
folgende Frage: ich habe eine Datei mit mehreren Tabellenblättern. Dabei kommen teilweise die gleichen Daten auf verschiedenen Tabellenblättern vor.
Ich möchte die Daten nur einmal eingeben. Nun habe ich es so gelöst, dass man die Daten in die Zelle eingeben muss, die ma...
20.11.2008 11:19:31
Thread-ID: 1026347
3 Beiträge
Doppelte über zwei Spalten - vergleichen
Wolfgang

Hallo,
in einer Mappe befinden sich zwei Tabellenblätter. Gibt es eine Chance, beide Tabellenblätter abzugleichen, ob Datensätze doppelt vorkommen? - Schwierigkeit dabei mag aber sein, dass für die Suche sowohl die Spalte D, als auch Spalte E zu Grunde zu legen wären. Nur also, wenn die Dat...
09.01.2009 17:26:12
Thread-ID: 1038283
5 Beiträge
Anzeige
zum 2 ten werte vergleichen
juergen

Hallo
Habe immer noch das Problem:
mit https://www.herber.de/forum/messages/1056145.html
konnte Ich das Problem doch nicht lösen.
Also mein Prob. besteht darin das ich in einer Zeile ( Bspl. A1-J7 dürfen nur Unterschiedliche Werte haben damit die Tabelle weiter rechnet sonst...
05.03.2009 11:43:14
Thread-ID: 1056745
9 Beiträge
Spalten vergleichen und Nummern ausgeben ?
Günther

Hallo zusammen,
kann mir bitte jemand hierbei helfen:
in Spalte E geb ich Nummern ein, diese sollen mit denen aus Spalte AA verglichen werden.
Bei Übereinstimmung soll die Nummer aus AB in L ausgegeben werden.
E---- L--- AA-- AB
15-- 2--- 10-- 1
30-- 5--- 15-- 2
1...
12.03.2009 15:49:14
Thread-ID: 1059522
5 Beiträge
Werte aus 2 Spalten vergleichen??
stefan

Hallo,
ich habe in 2 Spalten Werte. Wie kann ich prüfen, ob die werte in der einen spalte enthalten sind. WEnn sie enthalten sind, soll in einer 3.spalte ein text ausgegeben werden.
wie mach ich das am besten?
danke euch?
13.03.2009 16:57:19
Thread-ID: 1059944
4 Beiträge
Daten vergleichen und übernehmen/zusammenführen
pemoe

Hallo,
ich habe folgendes, für Excel-Profis sicher leicht zu lösendes Problem. Es geht um eine Auswertung von Laboruntersuchungen, in Datei 1 steht in Spalte A jeweils die Anzahl und in Spalte B die Bezeichnung für die Untersuchungen. In Datei 2 steht zusätzlich für jede Untersuchungsbezeic...
14.05.2009 14:37:02
Thread-ID: 1075170
5 Beiträge
Zwei Werte vergleichen
Lutz

Grüße Euch,
ich habe eine Liefertabelle mit - gob gesagt - drei interessanten Spalten:
In der ersten Spalte steht eine Materialnummer, in der zweiten das Datum der letzten Lieferung und in der dritten Spalte das Landeskürzel des Bestellers.
Matno LiefDat Kürzel
1234 1...
14.09.2009 12:34:19
Thread-ID: 1102587
6 Beiträge

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
4
2
4
3
8
4
3
4
5
10
4
12
4
11
6
1
3
5
2
3
1
5
3
4