Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
480to484
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
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Leidiges "Spaltenvergleichen"; Makro

Leidiges "Spaltenvergleichen"; Makro
10.09.2004 11:27:42
Doris
Hallo und Grüss Gott !
Wer kann helfen ?
Habe 1 Exceldatei mit 2 Arbeitsblätter.
In Tabelle1 stehen in Spalte G ca. 4000 Strassennamen
(welche zu überpüfen sind). Gleiche Straßennamen können auch
mehrfach vorkommen.
In Tabelle2 stehen in Spalte B stehen Straßennamen,
die Grundlage zum Überprüfen sind.
Nun sollte folgendes passieren:
Wenn der Straßennamen aus Tabelle2 Spalte B mit
Tabelle1 Spalte G nicht übereinstimmen, soll in Tabelle1
der Spalte K stehen: "Straße stimmt nicht überein!".
Help
Doris

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

Betreff
Datum
Anwender
Anzeige
AW: Leidiges "Spaltenvergleichen"; Makro
Marcl
Hallo Doris,
müssen exakt die Zellen beider Spalten identisch sein?
Also =Wenn(Tabelle1!G8 Tabell2!B8 dann Falsch
oder
=Wenn(Tabelle1!G8 Tabelle2!Spalte B dann Falsch
Gruß
Marcl
AW: Leidiges "Spaltenvergleichen"; Makro
10.09.2004 12:00:42
Doris
Hallo Marcl !
Danke erst mal.
Ich glaube folgendes würde zutreffen:
=Wenn(Tabelle1!G8 Tabelle2!Spalte B dann Falsch
Da in Tabelle2 der echte Bestand der zur Verfügungen
stehenden Straßen stehen.
In der Tabelle1 stehen die Straßen, welche zu Überprüfen sind.
Gruss
Doris
AW: Leidiges "Spaltenvergleichen"; Makro
Marcl
Hallo Doris.
hier ist ein Makro:
Drücke Alt und F8, schreibe bei Makronamen einen Buchstaben rein und gehe auf "erstellen".
Lösche hier alles und kopiere das dort rein.
Ich gehe davon aus, dass in Zelle 1 eine Überschrift steht.
Wenn das gemacht ist, kannst Du wieder in die Tabelle1 gehen und Zelle G1 markieren. Dann noch mal Alt und F8 und "Ausführen".
Nun sollte das ganze laufen

Sub such()
On Error GoTo errorhandler
Sheets("Tabelle1").Select
' Loopsuche vorbereiten
Do While ActiveCell <> ""
GoTo weiter
Loop
Exit Sub
errorhandler:
Sheets("Tabelle1").Select
ActiveCell.Offset(0, 4).Select
ActiveCell = "Strasse stimmt nicht überein"
ActiveCell.Offset(0, -4).Select
GoTo weiter
Exit Sub
weiter:
' Suchblatt (Originaltabelle) markieren und eine Zelle runtergehen
ActiveCell.Offset(1, 0).Select
' Suchbegriff merken
zelle = ActiveCell
If ActiveCell = "" Then Exit Sub
' in Kopie der Originaltabelle nach Suchbegriff suchen
Sheets("Tabelle2").Select
Columns("B:B").Select
Selection.Find(What:=zelle, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Call such
End Sub

Gruß
Marcl
Anzeige
AW: Leidiges "Spaltenvergleichen"; Makro
10.09.2004 13:43:33
Doris
Hallo Marcl!
Vielen Dank für Deine Mühe.
Werde am Samstag probieren und Rückmeldung machen.
Dir und allen im Forum ein schönes Wochenende.
Gruss
Doris

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige