AW: noch eine Zusatzfrage
01.10.2007 21:45:05
WalterK
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