Bereich löschen password

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Joachim,
meinst du das so?

Option Explicit
Sub Uebertragen()
Dim wsTag As Worksheet, wsGesamt As Worksheet, lngAnz As Long
Set wsTag = ActiveSheet
'   Set wsGesamt = Sheets("Gesamtliste")
Set wsGesamt = Workbooks("Gesamtmappe.xls").Sheets("Gesamtliste")
lngAnz = wsTag.Cells(Rows.Count, 1).End(xlUp).Row
If lngAnz < 2 Then
MsgBox "Die Tagesliste enthält keine Daten - Ende", vbInformation
Exit Sub
ElseIf wsGesamt.Cells(Rows.Count, 1).End(xlUp).Row + lngAnz - 1 > Rows.Count Then
MsgBox "Gesamtliste bekäme mehr als " & Rows.Count & " Zeilen! - Abbruch", vbCritical
Exit Sub
End If
Range(wsGesamt.Rows(2), wsGesamt.Rows(lngAnz)).Insert
Range(wsTag.Rows(2), wsTag.Rows(lngAnz)).Copy wsGesamt.Cells(2, 1)
With Range(wsGesamt.Rows(2), wsGesamt.Rows(lngAnz)).Interior
.ColorIndex = 34
.Pattern = xlSolid
End With
'  --------------------------------------------- Leeren der Tagesliste ab Zeile 2
Application.EnableEvents = False
wsTag.Unprotect Password:="123"
Range(Rows(2), Rows(lngAnz)).ClearContents         ' sollte reichen
'   Range(Rows(2), Rows(Rows.Count)).ClearContents     ' wenns doch nicht reicht ...
wsTag.Protect Password:="123"
Application.EnableEvents = True
Set wsTag = Nothing
Set wsGesamt = Nothing
End Sub

Welche Daten in den Zeilen stehen, ist hier gleichgültig.
Dein Hinweis auf User und Zeitpunkt in der Tagesliste und das Passwort hat mich aber dazu gebracht,
den entsprechenden Thread hier mal nachzusehen. Daher auch das Passwort 123.
(Praktisch wäre es gewesen, wenn du hier die beiden vorangegangenen Threads
https://www.herber.de/forum/archiv/780to784/t783187.htm
und
https://www.herber.de/forum/archiv/780to784/t782928.htm
genannt hättest.)
Rückmeldung wäre nett!
Grüße von Erich aus Kamp-Lintfort und: einen schönen heißen Sonntag!

Option Explicit Sub Uebertragen() Dim wsTag As Worksheet, wsGesamt As Worksheet, lngAnz As Long Set wsTag = ActiveSheet Set wsGesamt = Workbooks("Gesamtmappe.xls").Sheets("Gesamtliste") lngAnz = wsTag.Cells(Rows.Count, 1).End(xlUp).Row If lngAnz < 2 Then MsgBox "Die Tagesliste enthält keine Daten - Ende", vbInformation Exit Sub ElseIf wsGesamt.Cells(Rows.Count, 1).End(xlUp).Row + lngAnz - 1 > Rows.Count Then MsgBox "Gesamtliste bekäme mehr als " & Rows.Count & " Zeilen! - Abbruch", vbCritical Exit Sub End If wsGesamt.Unprotect Password:="123" Range(wsGesamt.Rows(2), wsGesamt.Rows(lngAnz)).Insert Range(wsTag.Rows(2), wsTag.Rows(lngAnz)).Copy wsGesamt.Cells(2, 1) With Range(wsGesamt.Rows(2), wsGesamt.Rows(lngAnz)).Interior .ColorIndex = 34 .Pattern = xlSolid End With wsGesamt.Protect Password:="123" ' --------------------------------------------- Leeren der Tagesliste ab Zeile 2 Application.EnableEvents = False wsTag.Unprotect Password:="123" Range(Rows(2), Rows(lngAnz)).ClearContents ' sollte reichen ' Range(Rows(2), Rows(Rows.Count)).ClearContents ' wenns doch nicht reicht ... wsTag.Protect Password:="123" Application.EnableEvents = True Set wsTag = Nothing Set wsGesamt = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread