Zellbereich dfinieren

Forumthread: Zellbereich dfinieren

18.06.2023 16:17:49

Jürgen

Hallo,

Mein Problem, der Wert der aus S14 kopiert wird, soll nur im diesem Bereich BC13:BC15 geschrieben werden

der Bereich wird dann immer wieder bereinigt, ist nur eine Info

ich hab folgend Code:

ActiveSheet.Unprotect
Dim LastRow As Long, Aktrow As Long
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Calculation = xlManual
LastRow = Sheets("14-1-Endlos").Cells(Rows.Count, 55).End(xlUp).Row + 1
Range("S14").Copy
Sheets("14-1-Endlos").Cells(LastRow, 55).PasteSpecial Paste:=xlPasteValues
LastRow = LastRow + 1
Aktrow = Aktrow + 1

für eine Lösung wäre ich Dankbar.

gruß

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zellbereich dfinieren

18.06.2023 16:46:23

Eifeljoi5
AW: Zellbereich dfinieren

18.06.2023 17:42:01

GerdL
AW: Zellbereich dfinieren

18.06.2023 18:05:38

Pappawinni
AW: Zellbereich definieren

18.06.2023 22:54:02

Rudi Maintaire

AW: Zellbereich dfinieren

18.06.2023 16:46:23

Eifeljoi5

Hallo
Als Info auch dort.
http://office-fragen.de/thread-28826.html

AW: Zellbereich dfinieren

18.06.2023 17:42:01

GerdL

Hallo Jürgen!

Sub Unit()
   
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
    ActiveSheet.Unprotect
      
    
    
    With Sheets("14-1-Endlos")
        'BC13:BC15
        If Not IsEmpty(.Cells(15, 55)) Then _
            .Cells(13, 55).Resize(3, 1).ClearContents
        
        If IsEmpty(.Cells(13, 55)) Then
            .Cells(13, 55) = Range("S14").Value
        ElseIf IsEmpty(.Cells(14, 55)) Then
            .Cells(14, 55) = Range("S14").Value
        Else
            .Cells(15, 55) = Range("S14").Value
        End If
    
    End With
    
    ActiveSheet.Protect
    Application.DisplayAlerts = True
    Application.Calculation = xlCalculationAutomatic
    
End Sub

Gruß Gerd

AW: Zellbereich dfinieren

18.06.2023 18:05:38

Pappawinni

Also so richtig versteh ich nicht, warum da ActiveSheet.Unprotect, wenn es dann um Sheets("14-1-Endlos") geht.
Ich muss aber auch nicht alles verstehen.
Ich hätte nach der Beschreibung schlicht geschrieben:


Sub Unit()

Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("14-1-Endlos")

ws.Unprotect
ws.Range("BC13:BC15") = ws.Range("S14").Value
ws.Protect
    
End Sub

AW: Zellbereich definieren

18.06.2023 22:54:02

Rudi Maintaire

Hallo,

Sub aaa()
  Dim ws As Worksheet, r As Range
  Set ws = Sheets("14-1-endlos")
  Set r = ws.Range("bc13:bc15")
  If Application.CountA(r) = 3 Then r.Clear
  Range("c14").Copy r(Application.CountA(r) + 1)
End Sub

Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

Forumthread: Zellbereich dfinieren

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread