leere Spalte immer rechts einfügen

Hallo zusammen,
mein Anliegen hört sich einfach an, jedoch komme ich nicht auf die endgültige Lösung.
Ich möchte gerne in dem angehängten Beispiel per VBA Makro (Button "neues Teil einfügen") eine neue Spalte rechts von einer (links) bestehenden Spalte einfügen, wobei alle Formatierungen hier mit kopiert werden sollen. Die eingefügte Spalte soll aber dann einen leeren Inhalt haben - Sheet-1 zu Sheet-2 mit eingefügter Spalte I als Kopie von Spalte H. Bei erneutem Druck soll dann die ausgefüllte Spalte I in Spalte K kopiert werden und auch wieder leer sein usw. - siehe Sheet-3.
Die Makros die ich aufzeichnen bzw. im Forum finde, beziehen sich immer auf eine feste Spalte die kopiert/eingefügt werden soll. Bei mir verschiebt sich ja immer der Bereich, der kopiert wird nach rechts weiter.
Genau das gleiche Problem würde ich dann gerne mit Zeilen (Button "neue Zeile einfügen") machen. Es sollte immer per Button die vorherige Zeile kopiert und unten drunter eine Zeile eingefügt werden - siehe Sheet-2 zu Sheet 3 mit eingefügter leerer Zeile 43.
Somit verschiebt sich dann auch immer der Einfügebereich, was mein eigentliches Problem ist :-(
https://www.herber.de/bbs/user/149049.xlsx
Es wäre Klasse, wenn mir hier jemand helfen könnte :-)
Viele Grüße
Christian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
hier mal meine Version.


Private Sub CommandButton1_Click()
'Neue Zeile
Dim loLetzte As Long
Application.ScreenUpdating = False
With Worksheets("Sheet-1")
loLetzte = .Cells(.Rows.Count, "B").End(xlUp).Row
.Rows(loLetzte).Copy .Rows(loLetzte).Offset(1)
.Rows(loLetzte).Offset(1).ClearContents
End With
End Sub
Private Sub CommandButton2_Click()
'Neue Spalte
Dim loSpalte As Long
Application.ScreenUpdating = False
With Worksheets("Sheet-1")
loSpalte = .Cells(9, .Columns.Count).End(xlToLeft).Column
.Columns(loSpalte).Offset(, -2).Copy
.Columns(loSpalte).Offset(, -1).Insert
.Columns(loSpalte).Offset(, -1).ClearContents
If IsNumeric(Right(.Cells(9, loSpalte).Offset(, -2), 1)) Then
.Cells(9, loSpalte).Offset(, -1) = "Teil " _
& Format(Right(.Cells(9, loSpalte).Offset(, -2), 2) + 1, "00")
Else
.Cells(9, loSpalte).Offset(, -1) = "Teil"
End If
End With
Application.CutCopyMode = False
End Sub

Für das Einfügen von Zeilen:
die letzte belegte Zelle wird in Spalte B von unten nach oben ermittelt.
Für das Einfügen von Spalten:
die letzte belegte Zelle wird in Zeile 9 (Überschriften) von links nach rechts ermittelt.
Keine Ahnung weshalb hier immer wieder Beispielmappen hochgeladen werden, die dann in ihrem Aufbau wohl nicht wirklich viel mit der Originalmappe zu tun haben.
Und dann wundert man sich, dass das Makro nicht läuft.
Gruß Werner

Beliebteste Forumthreads (12 Monate)

leere Spalte immer rechts einfügen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

leere Spalte immer rechts einfügen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread