neue Zeile einfügen mit Werten aus anderer Zeile
20.01.2006 13:20:46
Markus
ich will in einer Tabelle folgendes mittels Makro umsetzen:
Zum Beispiel
Wenn in Spalte "I" (z.B. in Zelle "I7") ein "x" eingegeben wird, dann soll mittels Makro automatisch darunter eine neue Zeile eingefügt werden, welche Werte bzw. Formeln aus der ersten Zeile enthält (also nach dem Einfügen einer neuen Zeile die erste Zeile kopiert und in die neu eingefügte Zeile einfügt)
Folgenden Baustein habe ich schon:
Sub test()
Dim z As Range
Set z = Range("I6")
Do
If z.Offset(1, 0).Value <> z.Value Then
z.Offset(1, 0).EntireRow.Insert Shift:=xlDown
Set z = z.Offset(1, 0)
End If
Set z = z.Offset(1, 0)
Loop Until (z.Row >= Cells(65536, 2).End(xlUp).Row)
Range("I:I").Find("x").Select
Selection.ClearContents
End Sub
Es geschieht schon viel, doch weiß ich nicht, wie ich zusätzlich an die Werte aus Zeile 1 komme und das Makro automatisch nach der Eingabe von "x" startet.
Kann mir hierbei bitte jemand helfen!!!!!!!!!
Vielen Dank schon mal im voraus
Gruss Markus