Makro zum kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sepp,
nachdem ich das Marko zu meinen anderen Codes hinzugefügt habe, funktioniert er nicht mehr.
Diese Zeile wird markiert: lngEnd = Cells(Rows.Count, intColumn).End(xlUp).Row
Der gesamte Code in diesem Tabellenblatt lautet:
Sub Schaltfläche1_BeiKlick()
With ActiveSheet
.Protect UserInterFaceOnly:=True
.Columns("AR:AS").Hidden = Not .Columns("AR:AS").Hidden
End With
End Sub

Sub Schaltfläche266_BeiKlick()
With ActiveSheet
.Protect UserInterFaceOnly:=True
.Columns("AO:AP").Hidden = Not .Columns("AO:AP").Hidden
End With
End Sub

Sub Schaltfläche267_BeiKlick()
With ActiveSheet
.Protect UserInterFaceOnly:=True
.Columns("AT:BK").Hidden = Not .Columns("AT:BK").Hidden
End With
End Sub

Sub Copy20()
Dim rng As Range
With ActiveSheet
.Protect UserInterFaceOnly:=True
Set rng = .Cells(Rows.Count, 22).End(xlUp).EntireRow
rng.Copy
.Rows(rng.Row + 1 & ":" & rng.Row + 20).Insert
Application.CutCopyMode = False
Set rng = Nothing
End With
End Sub

Option Explicit
Private Const intColumn As Integer = 66 'Eine Spalte die Formeln enthält. Hier als Beispiel Spalte "E" - Anpassen
Private Const intNewRows As Integer = 10 'Anzahl der neuen Zeilen - Anpassen


Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngEnd As Long
lngEnd = Cells(Rows.Count, intColumn).End(xlUp).Row
If Target.Row > lngEnd - 10 Then
Application.EnableEvents = False
Rows(lngEnd).Copy Rows(lngEnd + 1 & ":" & lngEnd + intNewRows)
Application.EnableEvents = True
End If
End Sub

Ich habe keine Idee, an was das liegen kann.
PS: Ich weiß auch nicht, warum im Forum der Gesamtcode in sich so unterschiedlich formatiert bzw. dargestellt wird.
Servus, Walter

Hallo Walter,
ausser das der Code in dieser Reihenfolge im Tabellenmodul stehen soll, kann ich keinen Fehler erkennen.
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit
Private Const intColumn As Integer = 66 'Eine Spalte die Formeln enthält. Hier als Beispiel Spalte "BN" - Anpassen
Private Const intNewRows As Integer = 10 'Anzahl der neuen Zeilen - Anpassen

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngEnd As Long

lngEnd = Cells(Rows.Count, intColumn).End(xlUp).Row

If Target.Row > lngEnd - 10 Then
    Application.EnableEvents = False
    Rows(lngEnd).Copy Rows(lngEnd + 1 & ":" & lngEnd + intNewRows)
    Application.EnableEvents = True
End If

End Sub

Sub Schaltfläche1_BeiKlick()
With ActiveSheet
    .Protect UserInterFaceOnly:=True
    .Columns("AR:AS").Hidden = Not .Columns("AR:AS").Hidden
End With
End Sub

Sub Schaltfläche266_BeiKlick()
With ActiveSheet
    .Protect UserInterFaceOnly:=True
    .Columns("AO:AP").Hidden = Not .Columns("AO:AP").Hidden
End With
End Sub

Sub Schaltfläche267_BeiKlick()
With ActiveSheet
    .Protect UserInterFaceOnly:=True
    .Columns("AT:BK").Hidden = Not .Columns("AT:BK").Hidden
End With
End Sub

Sub Copy20()
Dim rng As Range

With ActiveSheet

    .Protect UserInterFaceOnly:=True

    Set rng = .Cells(Rows.Count, 22).End(xlUp).EntireRow

    rng.Copy
    .Rows(rng.Row + 1 & ":" & rng.Row + 20).Insert
    Application.CutCopyMode = False

    Set rng = Nothing

End With

End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread