Spalten in der Mitte hinzufügen
30.08.2016 12:21:14
Friedrich
Ich möchte gern in meinem Tabellenblatt auf Knopfdruck mehrere Spalten hinzufügen.
Es gibt die Spalten Feld 01, Feld 02, Feld 03, Nullschiene. Man soll nun eine Zahl eingeben können um mehr Felder zu erzeugen. Diese Felder sollen am Ende vom letzten Feld angefügt werden, jedoch noch vor der Spalte Nullschiene.
Ich hatte es nicht die Nullschiene drin, da habe ich dann das gemacht:
Sub duplizieren()
' duplizieren der letzten Spalte
Application.ScreenUpdating = False 'Deaktiviert Bildschirm
Dim Feldhinzu, lngSpa As Integer
Feldhinzu = MsgBox("Neue Felder hinzufügen?", vbOKCancel, "Felder hinzufügen") 'Textfeld
If Feldhinzu = 1 Then 'Wenn ja ausgewäht wurde
Dim Anzahl, i As Integer
Anzahl = Worksheets("Übersicht").Range("A2") 'Auslesen Wert aus dem Feld A2 Text: _
Feld hinzufügen
lngSpa = Cells(3, Columns.Count).End(xlToLeft).Column 'Letzte beschriebene Spalte in Zeile 3 _
_
bestimmen
For i = 1 To Anzahl 'Beginn Schleife
Columns(lngSpa).Select 'letzte Spalte auswählen
Selection.Copy 'letzte Spalte kopieren
Columns(lngSpa + i).Select 'eine Spalte weiter springen
ActiveSheet.Paste 'einfügen
Next i 'Wiederholen
End If
Range("A2").Select 'Feld B2 makieren
Application.ScreenUpdating = True 'Aktiviert Bildschirm
End Sub
Kann mir da bitte jemand weiter helfen?
Schöne Grüße
Friedrich