Button "neue Spalte hinzufügen"

[9alex0]

Hallo Zusammen,

ich möchte in meiner Mappe "Product", welches mit einem Blattschutz versehen ist, einen Button erstellen, welcher durch Betätigung mir eine neue Spalte, direkt daneben, mit den selben Format und Formeln, hinzufügt.

Am besten, immer wieder eine neue Spalte, nachdem ich diesen Button betätige.
Die anschließenden Werte, sollen dann für das Diagramm in der Mappe "Einzelprozess-Kosten" verwendet werden.


Über eure Hilfe bin ich überaus dankbar und freue mich sehr über Lösungsvorschläge.


Beste Grüße

Alex

[9alex0]

Also am Besten wäre ein Code für den Command Button :)

LG Alex

[Elex]

Hallo.

Warum eine neue Spalte einfügen? Anzahl der benutzbaren Spalten bleibt gleich.
Einfügen von Spalten kann Bezüge in Formeln unbrauchbar machen. (Indirekte)

Warum können die Werte nicht in eine der vorhanden Spalten kopiert werden.

Mfg

[9alex0]

Hallo.

Warum eine neue Spalte einfügen? Anzahl der benutzbaren Spalten bleibt gleich.
Einfügen von Spalten kann Bezüge in Formeln unbrauchbar machen. (Indirekte)

Warum können die Werte nicht in eine der vorhanden Spalten kopiert werden.

Mfg

Hallo Elex, sorry für die späte Rückmeldung. Weil ich dem Benutzer dieser Mappe die Möglichkeit geben will, weitere Prozesse mit neuen Werten, einzutragen.
Es sollte am einfachsten und übersichtlich wie möglich gehalten werden, bin für weitere Vorschläge sehr dankbar :)

LG ALex

[Elex]

Der Code erzeugt Dir eine 1 zu 1 Kopie einer Spalte.
Wenn du Spalte E kopieren möchtest, dann klicke auf irgendeine Zelle in Spalte F und dann auf deinen Butten.

Code:

Private Sub CommandButton1_Click()
Dim i As Variant

    Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    i = ActiveCell.Column

    Columns(i - 1).Select
    Selection.Replace What:="=", Replacement:="#", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Copy
    Columns(i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.Replace What:="#", Replacement:="=", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Columns(i - 1).Select
    Selection.Replace What:="#", Replacement:="=", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
     Application.CutCopyMode = False

End Sub

Teste es aus, wie gesagt evtl. entstehen im Blatt Bezugsfehler und wenn in der Spalte Bedingte Formate sind ist das Ergebnis abhängig von der Bezugsdefinition ($).