VBA code gesucht
31.01.2013 07:13:07
Tom
Ich möchte gerne per VBA code folgendes.
Bei klick auf einen Button sollen die Werte von
Worksheets("Eingaben").Range("A15:A163")
jeweils in
Worksheets("Zusammenfassung").Range("A8:A8000")
gefunden werden.
Wird der Wert von Tabelle Eingaben nicht gefunden, so passiert nichts weiter.
Wird ein übereinstimmender Wert gefunden so soll von der entsprechenden Zeile Tabelle Eingaben die nachfolgenden kopiervorgang in die entsprechend gefundene Zeile in der Tabelle Zusammenfassung kopiert werden.
Sheets("Eingaben").Range("C" & objF.Row & ":E" & objF.Row).Copy
Sheets("Zusammenfassung").Range("D" & rng.Row & ":F" & rng.Row).PasteSpecial (xlPasteValues)
Sheets("Eingaben").Range("G" & objF.Row & ":G" & objF.Row).Copy
Sheets("Zusammenfassung").Range("G" & rng.Row & ":G" & rng.Row).PasteSpecial (xlPasteValues)
Sheets("Eingaben").Range("I" & objF.Row & ":I" & objF.Row).Copy
Sheets("Zusammenfassung").Range("H" & rng.Row & ":H" & rng.Row).PasteSpecial (xlPasteValues)
Sheets("Eingaben").Range("K" & objF.Row & ":L" & objF.Row).Copy
Sheets("Zusammenfassung").Range("I" & rng.Row & ":J" & rng.Row).PasteSpecial (xlPasteValues)
Sheets("Eingaben").Range("P" & objF.Row & ":P" & objF.Row).Copy
Sheets("Zusammenfassung").Range("K" & rng.Row & ":K" & rng.Row).PasteSpecial (xlPasteValues)
Sheets("Eingaben").Range("O" & objF.Row & ":O" & objF.Row).Copy
Sheets("Zusammenfassung").Range("X" & rng.Row & ":X" & rng.Row).PasteSpecial (xlPasteValues)
Alle Werte die gesucht bzw. gefunden werden kommen nur einmalig vor, falls dieses von Bedeutung ist.
Gruß Tom