PDA

Vollständige Version anzeigen : Zeile finden, nach rechts verschieben und neue Inhalte einfügen


Mexli
30.06.2015, 23:11
Hallo zusammen,

ich habe schon lange nicht mehr mit Makros gearbeitet und habe nun eine Idee, weiß nur leider nicht, wie ich sie umsetzen kann.
Es geht um folgendes:

Eine Beispieldatei habe ich hochgeladen.
Ich habe eine Liste mit mehreren Zeilen und in Spalte C stehen Teilenummern. Nun ändern sich die Teilenummer immer wieder, was ich nun verfolgen möchte. ich würde oben eine Vorlagezeile einfügen, in die ich alte Teilenummer und die neue Teilenummern mit alter und neuer Stückzahl eintrage. Ziel soll sein, dass Excel die alte Teilenummer (die jeweils eingetragen wird) nimmt und in der spalte C nach dieser Nummer sucht. Diese Zeile soll dann ab Spalte C markiert und einen Abschnitt nach hinten verschoben werden. Dann ist schließlich vorne in den ersten 3 Spalten freier Platz. Hier soll nun die oben eingefügten Daten übernommen werden und oben wieder bereinigt werden.

Ich würde mich sehr über nützliche Ansätze freuen!! :)

Beverly
01.07.2015, 08:50
Hi,

eine Möglichkeit:

Sub SuchenVerschieben()
Dim rngZelle As Range
Set rngZelle = Columns(3).Find(Range("A4"), lookat:=xlWhole)
If Not rngZelle Is Nothing Then
Range(Cells(rngZelle.Row, 3), Cells(rngZelle.Row, 5)).Insert Shift:=xlToRight
Cells(rngZelle.Row, 3) = Range("B4")
Cells(rngZelle.Row, 4) = Range("C4")
Cells(rngZelle.Row, 5) = Range("D4")
Range("A4:D4").ClearContents
End If
Set rngZelle = Nothing
End Sub


<hr width="20%" align="left"><img src="http://excel-inn.de/images/grusz.gif" height=35" align="left" alt="Grußformel"><a href="http://excel-inn.de/"><img border="0" src="http://excel-inn.de/images/logo1.gif" height=35" align="middle" alt="Beverly's Excel - Inn"></a>