Thema Datum  Von Nutzer Rating
Antwort
22.12.2024 10:18:01 Sonja
NotSolved
Blau Einfügen von Zeilen sperren
 23.12.2024 17:34:15 AlterDresdner
NotSolved
01.01.2025 21:57:57 Gast7777
NotSolved

Ansicht des Beitrags:
Von:
AlterDresdner		 Datum:
23.12.2024 17:34:15		 Views:
30		 Rating:
     
Antwort:
  Ja
Thema:
Einfügen von Zeilen sperren

Hallo Sonja,

eine recht brutale Möglichkeit wäre der folgende Code. Er verhindert das EInfügen von Zeilen oberhalb des letzten EIntrags der überwachten Spalte.
Er verhindert aber auch Einträge in der überwachten Spalte unterhalb des letzten Eintrags.

Option Explicit
Const MySpalte = 1 'überwachte Spalte

Private Sub Worksheet_Activate()
    SetName
  End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  If Val(Mid(ActiveWorkbook.Names("Letzte").RefersTo, 2)) <> Cells(Rows.Count, MySpalte).End(xlUp).Row Then
    With Application
      .EnableEvents = False
      .Undo
      .EnableEvents = True
    End With
  End If
  SetName
End Sub

Function SetName()
    ActiveWorkbook.Names.Add Name:="Letzte", RefersToR1C1:="=" & Cells(Rows.Count, MySpalte).End(xlUp).Row
End Function

Gruß der ALteDresdner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.12.2024 10:18:01 Sonja
NotSolved
Blau Einfügen von Zeilen sperren
 23.12.2024 17:34:15 AlterDresdner
NotSolved
01.01.2025 21:57:57 Gast7777
NotSolved