Clever-Excel-Forum

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

Hallo Lukas,

Sub Schaltflaeche_Klick()

 ActiveCell.Activate

 With Selection

   .Copy

   .Offset(, .Columns.Count).Insert

 End With

 Application.CutCopyMode = False

End Sub

Gruß Uwe

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. :)

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

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