Supportnet / Forum / Tabellenkalkulation
Vergleichsfunktion
Frage
Hallo,
ich suche dringend eine Möglichkeit, um den Inhalt verschiedener Zeilen miteinander zu vergleichen.
Ist der Inhalt gleich, so soll eine von beiden Zeilen gelöscht werden.
Ist der Inhalt unterschiedlich, so sollen beide Zeilen stehen bleiben.
Lösungen (auch ansatzweise) nehme ich gerne hier im Forum oder per eMail entgegen.
Gruß, Phil
Antwort 1 von Quailer
Ich hätte da ein Tool (SideBySide), welches Texte zeilenweise vergleicht, jedoch keine weiteren Aktivitäten vornimmt.
Auf Wunsch per Mail.
Auf Wunsch per Mail.
Antwort 2 von metax
In Bezug auf zeilen kann ich keine Lösung anbieten, aber man kann die Zellinhalte vergleichen, und gegebenenfalls Befehle wie "Zeilen löschen" folgen lassen.
Beispiel:
Sub Makro2()
zelle1 = InputBox("geben Sie die Zeilennr. ein")
zelle2 = InputBox("geben Sie die zu vergleichende Zeile ein")
inhalt1 = cell(zelle1, 1).Value
inhalt2 = cell(zelle2, 1).Value
Select Case inhalt1
Case Is = inhalt2
Cells(zelle2, 1).Select
Selection.entire.Rows.Delete
End Sub
Viel Glück
Beispiel:
Sub Makro2()
zelle1 = InputBox("geben Sie die Zeilennr. ein")
zelle2 = InputBox("geben Sie die zu vergleichende Zeile ein")
inhalt1 = cell(zelle1, 1).Value
inhalt2 = cell(zelle2, 1).Value
Select Case inhalt1
Case Is = inhalt2
Cells(zelle2, 1).Select
Selection.entire.Rows.Delete
End Sub
Viel Glück
Antwort 3 von Phil
Das Problem wird komplizierter:
alte Zeile enthält 15 Spalten
neue Zeile enthält 10 Spalten
die neue Zeile soll jetzt komplett in die ersten 10 Spalten der alten Zeile eingefügt werden (der alte Inhalt wird überschrieben), aber die 5 letzten Spalten der alten Zeile sollen nicht durch leere Zellen ersetzt werden.
=> Ich kann also nicht die ganze neue Zeile, sondern nur die ersten 10 Spalten davon in die alte Zeile kopieren.
Weiß jemand, wie so etwas geht???
Vielen Dank für Eure Hilfe.
Gruß, Phil
alte Zeile enthält 15 Spalten
neue Zeile enthält 10 Spalten
die neue Zeile soll jetzt komplett in die ersten 10 Spalten der alten Zeile eingefügt werden (der alte Inhalt wird überschrieben), aber die 5 letzten Spalten der alten Zeile sollen nicht durch leere Zellen ersetzt werden.
=> Ich kann also nicht die ganze neue Zeile, sondern nur die ersten 10 Spalten davon in die alte Zeile kopieren.
Weiß jemand, wie so etwas geht???
Vielen Dank für Eure Hilfe.
Gruß, Phil
Antwort 4 von jetter2001
falls jemand die lösung per mail verschickt, bitte auch an mich. ich bin fan von lösungen kniffliger probleme.
the jetter2001
the jetter2001