Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
476to480
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
476to480
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Abgleich

Abgleich
02.09.2004 07:42:59
franz
Guten Tag !
Altes Problem, neuer Versuch ....
"Ich hätte ein Anliegen, welches ich mit
einer Excel-Beispieldatei darstellen wollte.
Das Problem ist ist dieser Datei erläutert.
Die Datei steht unter:
https://www.herber.de/bbs/user/9196.xls"
Gruss
Franz

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abgleich
02.09.2004 08:58:04
Roland
Hallo Franz,
erst mal ein paar Fragen, vielleicht kannst du ja auch die Vorlage.xls mal in Auszügen hochladen, da deren Struktur im einzelnen bekannt sein muss:
1. stehen die ID´s auch in der Vorlage in Spalte A und die aktuellen Einstellungen in Spalte H
2. was willst du erreichen:
- nur eine Messagebox bei Nichtübereinstimmung
- löschen der "falschen" X´e und Einsetzen der Richtigen
- etwas anderes
Gruß
Roland
AW: Abgleich
02.09.2004 09:13:10
Franz
Hallo Roland !
Zu Punkt 1.)
Ja, die ID's und die aktuellen Einstellungen stehen
in der Vorlage auch an gleicher Stelle.
Zu Punkt 2.)
Es sollte in der zu überprüfenden Datei in Spalte J
z.B. stehen: "Keine Übereinstimmung mit der Vorlage" oder ähnliches.
Zusatz: Vorlage stimmt mit der zu überprüfenden Datei überein, außer
halt eventuell anders gesetzte "X".
Danke
Gruss
Franz
Anzeige
AW: Abgleich
02.09.2004 09:09:59
Torsten 

Sub abgleich()
Dim zeile As Integer
Dim pfad As String
Dim d_name As String
'hier den pfad zur datei eintragen
pfad = "D:\Temp\"
d_name = "vorlage.xls"
datei = pfad & d_name
Workbooks.Open Filename:=datei
'das programm vergleicht in diesem bereich (H1 bis H300) die einträge auf gleichheit,
' findet es keine eintrag schreibt es kein eintrag in spalte 9 gleiche zeile
For zeile = 1 To 300
If ThisWorkbook.Worksheets("Tabelle1").Cells(zeile, 8) <> _
ActiveWorkbook.Worksheets("Tabelle1").Cells(zeile, 8) Then _
ThisWorkbook.Worksheets("Tabelle1").Cells(zeile, 9) = "Kein Eintrag"
Next zeile
End Sub

Anzeige
AW: Abgleich
02.09.2004 09:36:11
franz
Hallo Torsten !
Klappt nicht so gut, da in der Vorlage zu der überprüfenden
Datei Abweichungen bestehen können. Das heißt, in der
zu überprüfenden Datei kann der Zeilenaufbau anders sein, zB
Leerzeile dazwischen.
Ich dachte mir ja, dass das Makro nach der ID-Nummer der Vorlage in
die zu überprüfende Datei geht, dort diese gleiche ID-Nummer sucht
und überprüft, ob die X an der richtigen Stellen stehen.
Gruss
Franz

Links zu Excel-Dialogen

MessageBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige