Hallo zusammen,
ich brauche Hilfe. Ich habe ein Excel File mit mehreren Tabellen. Ich habe eine Code, womit ich in eine ausgewählte Zeile (Eine Zelle ist ausgewählt) eine neue Zeile einfüge und ein paar Sachen mitkopiere. Ich habe aber eine ähnliche Tabelle, wo ich die gleichen Zeilen habe aber nicht gleiche Spalten. Es soll zusätzlich in dieser Tabelle genau die Zeile aus der ersten Tabelle ausgewählt werden und hier eine neue Zeile mit diesen Kopieren.
Unten meine Code. Wie kann ich dies realisieren?
Sub InsertRowDetailedEstimate()
Dim Clave As String, rng As Range
Dim lngRow As Long
Clave = "test"
Set rng = Selection.EntireRow
Application.ScreenUpdating = False
ActiveSheet.Unprotect Clave
lngRow = ActiveCell.Row
With rng
.Copy
.Offset(.Rows.Count).Insert
With .Offset(.Rows.Count)
On Error Resume Next
.SpecialCells(xlCellTypeConstants).ClearContents
.Cells(1).Select
Application.CutCopyMode = False
On Error GoTo 0
End With
End With
ActiveSheet.Protect Clave, AllowDeletingRows:=True, AllowFormattingColumns:=True, AllowFormattingCells:=True, AllowFiltering:=True, UserInterfaceOnly:=True
Application.ScreenUpdating = True
End Sub
|