Spalten per Button erweitern

[lukas-2000]

Hallo,

ich bin neue hier im Forum und bitte um verstädnis, wenn ich dumme Fragen stelle oder bestimmte Dinge nicht verstehe. Ich habe nur wenig Erfahrung mit Excel und erst recht keine mit ,,VBA" und brauche deshalb Eure Hilfe.

Ich möchte gerne über einen Button in meiner Excel Tabelle Spalten erweitern. Anhand des angehängten Bildes kann ich dies genauer erläutern.
Und zwar soll da, wo es geld Makiert ist ein Button hin, mit dem ich, die makierten Spalten nochmal mit dem selben Inhalt daneben Kopieren kann. Damit ich da jedes Jahr, wenn die Spalten nichtmehr ausreichen neue Werte eintragen kann. Dies soll dann natürlich weiter geführt werden können, also das ich immer wieder die 3 Spalten per Button einfügen kann.



Ich hoffe ihr könnt mit folgen, falls nicht bitte ich um rückmeldungen, was ich nochmal anders oder besser Erläutern kann.

Über Antworten würde ich mich sehr freuen.

Mit feundlichen Grüßen
Lukas Möller

[Kuwer]

Hallo Lukas,

Sub Schaltflaeche_Klick()
 ActiveCell.Activate
 With Selection
   .Copy
   .Offset(, .Columns.Count).Insert
 End With
 Application.CutCopyMode = False
End Sub

Gruß Uwe

[lukas-2000]

Hallo Uwe,

vielen Dank für deine schnelle Antwort:)

Super, es funktioniert soweit, jedoch habe ich noch ein paar Fragen:

1. Gibt es die möglichkeit, das sich automatisch alle nebenstehende Spalten nach rechts verschieben, weil Momentan werden die Spalten einfach daneben kopiert, also quasi ersetzt?!

2. Ist es möglich das man noch einen zweiten Button darunter setzt, mit dem ich die Aktion wieder zurücksetzen kann, falls ich mich verklickt habe. Weil über den normalen ,,Rückgänig Button" funktioniert das nicht?!

3. Momentan muss man die gewünschte Fläsche die man Kopieren will ja vorher noch makieren, wäre es auch möglich einen festen Berreich zu Makieren, also den, denn ich rot umrandet habe?

4. Kann man auch einen Button anlegen, mit dem man zusätzliche Nummern, also Geräte mit allen Daten und erweiterungsbutton einfügen lassen. Also einfach die Spalten per Knopfdruck fortführen und das am besten noch mit automatisch weiterführender Nummerierung.

Sind jetzt zwar ziemlich viele und wahrscheinlich auch nicht ganz so einfache Anliegen, jedoch würde ich mich sehr über Antworten freuen, auch wenn nicht alles aufeinmal beantwortet werden kann. :)

[Kuwer]

Hallo Lukas,

zu 1.: Das Makro fügt schon ein und überschreibt nicht

zu 2. und 3.:

Option Explicit

Dim rngBereich As Range 'Variable für Rückgängigmachen des Kopierens

Sub Schaltflaeche_Kopieren_Klick()
 ActiveCell.Activate
 'With Selection     'mit selektiertem Bereich
 With Range("H:J")  'mit festgelegtem Bereich
   .Copy
   .Offset(, .Columns.Count).Insert
   Set rngBereich = .Offset(, .Columns.Count)
 End With
 Application.CutCopyMode = False
End Sub

Sub Rueckgaengig_Kopieren_Klick()
 ActiveCell.Activate
 If Not rngBereich Is Nothing Then
   rngBereich.Delete
   Set rngBereich = Nothing
 End If
End Sub

zu 4.: Das ist mir zu verspielt.

Gruß Uwe

[lukas-2000]

Danke für deine Antwort,

finde es sehr schön das du mir weiter hilfst :) 

Es funktioniert so weit ganz gut, ist es jedoch möglich die Kopierten Spalten im nachhinein wieder zu Löschen. Also ohne es rückgänig zumachen, damit ich das auch später nochmal entfernen kann?!

Ist es in dem Kopiervorgang der Splaten eingetlich auch möglich die Aktive-Steuerelemente mit den selben befehlen mit zu kopieren, damit ich das immer weiter fortführen kann?!

Und noch zu meiner 4.Frage die ich hatte: Vielleicht habe ich es zu kompliziert dargestellt , ist es vielleicht möglich ein Feld zu erstellen, wo man eigeben kann, wie viele Felder man braucht und die dann automatisch eingefügt werden?!

Ich freue mich wie immer sehr über Antworten.

MfG
Lukas Möller