Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2024 20:05:21
CreateObject auf MacOS
28.04.2024 18:33:31
Excel Fenster fixieren
28.04.2024 18:25:12
Excel Aufbauende Summe
28.04.2024 14:18:05
Einfügen ohne Select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1932to1936
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1932to1936
1932to1936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellbereich dfinieren

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
Anzeige
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


Anzeige
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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige