Zeile einfügen + Werte in neue Zeile kopieren
20.01.2006 11:08:12
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
Bitte beachtet, daß meine VBA-Kenntnisse minimalst sind. Vielen Dank schon mal im voraus
Gruss Markus
Anzeige