Excel verschiebt die Zeile nach Dateneingabe nach unten. Wie verhindern?

Sub Test()

Dim i As Integer

Dim R As Range

'Ersten Bereich festlegen

Set R = Range("D51:E51")

For i = 1 To 500

'Zeile einfügen

'Anmerkung: Dies verschiebt R auch eine Zeile nach unten...

R.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

'...daher hier nur noch eine Zeile weiter

Set R = R.Offset(1)

Next

End Sub

Hallo,

zu 1: Du könntest dynamische Bereichsnamen für deinen Bereich verwenden und auf diesen Namen zugreifen. Damit würden immer die aktuell vorhandenen Datensätze in die Berechnung eingehen.

Claus

Hallo,

danke, werde mich mal mit der Umsetzung vertraut machen!

Faktisch beginnen die Werte in er 5 Zeile C5 und nach unten gibt es keine Begrenzung, kommen immer und immer wieder neue werte hinzu. die neusten stehen oben, also verschiebt sich alles nach unten!

Hallo Klaus,

erst mal vielen Dank für die schnelle Antwort.

Das Sortieren klappt soweit prima. Nur mit der Ermittlung der letzten Zeile funktioniert nicht.

Da habe ich mich wohl missverständlich ausgedrückt.

Ermittelt werden muss die letzte Zeile in der "DATENEINGABE", die ich dann für die Sortiertung der Tabelle"SORTIERUNG" benötige.

Stelle ich aber die Befehlzeile mit LRow an den Anfang, siehe bitte unten,bekomme ich eine Debuggermeldung für diese Zeile.

Private Sub Worksheet_Deactivate()

Dim LRow As Long

Dim myRng As Range, myKey As Range

LRow = .Cells(.Rows.Count, 3).End(xlUp).Row

With Sheets("SORTIERUNG")

Set myKey = .Range("C5")

.Range("C5:O" & LRow).Sort Key1:=myKey, order1:=xlAscending, Header:=xlGuess

End With

End Sub

Gruß Michael

Dann hat die Datei "administrative Rechte / Sicherheitseinstellungen des OS" mit sich gezogen die bei dem einen User das ausführen von Makros verhindern.... sowas in der Art.
Ich kenne ein ähnliches Problem wenn User verschiedene Rechte auf einem Netzlaufwerk haben:
Verschiebt man Dateien, dann können diese von manchen Usern nicht mal "gesehen" werden. Kopiert man die Datei dagegen ist alles gut.
Andreas.

Hallo NicoBss,

Vielen Dank, dass Sie sich mit uns in Verbindung gesetzt haben. Mein Name ist Segunfunmi und ich bin Microsoft-Botschafter.

Ja, es gibt eine einfachere Funktion zum Einfügen von Zeilen in einen vorhandenen Text in OneNote. Sie können den Cursor einfach an der Stelle platzieren, an der Sie die Zeile einfügen möchten, und mit der Eingabe beginnen. OneNote verschiebt den vorhandenen Text automatisch nach unten, um Platz für die neue Zeile zu schaffen. Alternativ können Sie die Registerkarte "Einfügen" im OneNote-Menüband verwenden und "Leerzeichen unten einfügen" oder "Leerzeichen oben einfügen" auswählen, um Platz für neuen Text zu schaffen. Diese Funktionen verschieben den vorhandenen Text automatisch nach unten oder oben, je nachdem, was Sie wählen.

Sie können den untenstehenden Link verwenden, um mehr zu erfahren...

https://support.microsoft.com/article/0ec88c54-05f3-4cac-b452-9ee62cebbd4c

Ich hoffe das hilft!

Alles Gute
Segunfunmi

Diese Antwort ist automatisch übersetzt worden. Daher kann sie grammatikalische Fehler oder fremde Ausdrücke enthalten.