vba spalte einfügen bedinung
08.06.2016 14:27:46
Patricia
ich möchte eine neue spalte einfügen wenn eine bestimmte zelle in der zeile erreicht ist. diese zelle nennt sich "MS1". wichtig ist, dass die neue spalte LINKS neben der erreichten zelle eingefügt werden soll.
dasselbe möchte ich für die zellen machen, dort sieht der code wie folgt aus:
Private Sub cmdP_Click()
Call Zeile_einfügen_P
End Sub
Sub Zeile_einfügen_P()
Dim i As Long
i = Cells(Rows.Count, 1).End(xlUp).Row
Do Until Cells(i, 1) = "Prozess"
i = i - 1
Loop
Rows(i - 1).Insert (xlShiftDown)
End Sub
leider kann ich diesen code nicht auf die spalten anwenden.
ich wäre dankbar für jede hilfe!
viele grüße