bin neu hier und benötige eure Hilfe.
Im Forum habe ich bereits gestöbert und einiges gefunden, konnte es aber nicht vollständig auf mein Problem anwenden.
Ich habe eine Tabelle in die ich mittels Button (oder Makro) immer wieder eine neue Zeile einfügen und die Formatierung des Bereichs A2:H2 sowie die Formel der Zelle H2 kopieren möchte.
Folgende Programmierung konnte ich mir bereits erarbeiten:
Private Sub CommandButton1_Click()
Dim rowNum As Integer
On Error Resume Next
rowNum = Application.InputBox(Prompt:="Zeilennummer der neuen Zeile eingeben:", _
Title:="Neue Zeile", Type:=1)
Rows(rowNum & ":" & rowNum).Insert Shift:=xlDown
Range("A2:H2").Select
Selection.Copy
Range("A6:H6").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("G2:H2").Select
Selection.Copy
Range("G6:H6").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A2").Select
End Sub
Aber das klappt nur beim Erstellen der ersten neuen Zeile (in meinem Fall Zeile 6). Was muss ich ändern, damit das auch bei allen weiteren Zeilen funktioniert?
Viele Grüße,
Micha