Supportnet / Forum / Tabellenkalkulation
Nummern vergleichen
Frage
Hi Leute!
Ich habe in der Tabelle B, Spalte AM10:AM200 Nummern stehen und daneben AN10:AN200 die passende Werte. Ich möchte die Nummern mit den Nummern die in Tabelle C Spalte A10:A200 stehen vergleichen und wen eine Übereinstimmung ist oder die Nummer neu ist soll er die Nummer in A10:A200 schreiben und die Werte daneben in die Spalte B10:B200. Gleichzeitig sollen die Werte die vorher in Spalte B standen nach C verschoben werden.
Danke im Voraus
Gruß AF
Antwort 1 von Saarbauer
Hallo,
versuch es mal hiermit
Sub Vergleichen()
letzteZeile_B = Range("TabelleB!AM65536").End(xlUp).Row
letzteZeile_C = Range("TabelleC!A65536").End(xlUp).Row
For i = 1 To letzteZeile_B
For j = 1 To letzteZeile_C
If Range("TabelleB!AM" & i).Value = Range("TabelleC!A" & j).Value Then
Range("TabelleC!C" & j).Value = Range("TabelleC!B" & j).Value
Range("TabelleC!B" & j).Value = Range("TabelleB!AN" & i).Value
Exit For
Else
If Range("TabelleB!AM" & j).Value <> Range("TabelleC!A" & i).Value And j >= letzteZeile_C Then
Range("TabelleC!A" & j + 1).Value = Range("TabelleB!AM" & i).Value
Range("TabelleC!B" & j + 1).Value = Range("TabelleB!AN" & i).Value
letzteZeile_C = Range("TabelleC!A65536").End(xlUp).Row
End If
End If
Next j
Next i
End Sub
Es sind vielleicht Anpassungen an deine Tabelle notwendig
Gruß
Helmut
versuch es mal hiermit
Sub Vergleichen()
letzteZeile_B = Range("TabelleB!AM65536").End(xlUp).Row
letzteZeile_C = Range("TabelleC!A65536").End(xlUp).Row
For i = 1 To letzteZeile_B
For j = 1 To letzteZeile_C
If Range("TabelleB!AM" & i).Value = Range("TabelleC!A" & j).Value Then
Range("TabelleC!C" & j).Value = Range("TabelleC!B" & j).Value
Range("TabelleC!B" & j).Value = Range("TabelleB!AN" & i).Value
Exit For
Else
If Range("TabelleB!AM" & j).Value <> Range("TabelleC!A" & i).Value And j >= letzteZeile_C Then
Range("TabelleC!A" & j + 1).Value = Range("TabelleB!AM" & i).Value
Range("TabelleC!B" & j + 1).Value = Range("TabelleB!AN" & i).Value
letzteZeile_C = Range("TabelleC!A65536").End(xlUp).Row
End If
End If
Next j
Next i
End Sub
Es sind vielleicht Anpassungen an deine Tabelle notwendig
Gruß
Helmut
Antwort 2 von VBA_Anfänger
Hi!
Danke für die Hilfe, aber es funktioniert leider nicht. Wen ich mit dem Debuger durchgehe schreibt er mir bei dem Schritt letzteZeile_TabelleC =... und For i = 1 To .... Application or object definded error. Kannst du mir hier vielleicht weiterhelfen?
Danke im Voraus
AF
Danke für die Hilfe, aber es funktioniert leider nicht. Wen ich mit dem Debuger durchgehe schreibt er mir bei dem Schritt letzteZeile_TabelleC =... und For i = 1 To .... Application or object definded error. Kannst du mir hier vielleicht weiterhelfen?
Danke im Voraus
AF
Antwort 3 von Saarbauer
Hallo,
Kommt in meinem Makro nicht vor
Notfalls mal Datei hier
http://www.netupload.de/
abspeichern mit Makro und Link hier hinterlegen
Gruß
Helmut
Zitat:
letzteZeile_TabelleC =...
letzteZeile_TabelleC =...
Kommt in meinem Makro nicht vor
Notfalls mal Datei hier
http://www.netupload.de/
abspeichern mit Makro und Link hier hinterlegen
Gruß
Helmut
Antwort 4 von Saarbauer
Hallo,
kopier mal das Makro hier raus in deine EXceltabelle, hast du ja anscheinend nicht gemacht, sonst wäre der Fehler nicht drin.
Gruß
Helmut
kopier mal das Makro hier raus in deine EXceltabelle, hast du ja anscheinend nicht gemacht, sonst wäre der Fehler nicht drin.
Gruß
Helmut
Antwort 5 von VBA_Anfänger
Hi!
sorry funktioniert. Hätte nur noch ein Frage. Wie kann ich den ganzen Vorgang in Tabelle C über Spalte C bis Spalte ZZ ausdehnen?
Danke im Voraus
Gruß AF
sorry funktioniert. Hätte nur noch ein Frage. Wie kann ich den ganzen Vorgang in Tabelle C über Spalte C bis Spalte ZZ ausdehnen?
Danke im Voraus
Gruß AF
Antwort 6 von Saarbauer
Hallo,
bis ZZ auf keinen Fall max. bis IV
und was willst du ad genau machen ab Spalte B um 1 verschieben oder?
Gruß
Helmut
bis ZZ auf keinen Fall max. bis IV
und was willst du ad genau machen ab Spalte B um 1 verschieben oder?
Gruß
Helmut
Antwort 7 von VBA_Anfänger
Hi!
Ja genau wen neue Daten in der Tabelle A Spalte AN, stehen und ich die nach Tabelle C Spalte B kopiere sich die alten daten nach C verschieben und dann immer weiter verscheiben bei jedem kopieren wie ein Archiv.
Danke im Voraus
Gruß AF
Ja genau wen neue Daten in der Tabelle A Spalte AN, stehen und ich die nach Tabelle C Spalte B kopiere sich die alten daten nach C verschieben und dann immer weiter verscheiben bei jedem kopieren wie ein Archiv.
Danke im Voraus
Gruß AF