Löschen von Zeilen nicht möglich

Hallo Oswald,

löschen ist nicht möglich, aber du kannst Zeilen\Spalten ausblenden.

• markiere deine gewünschte Zeile von der aus ausgeblendet werden sollte.(im Zeilenkopf)
• drücke Strg+Umschalt +Cursor down
• rechte Maustaste im Zeilenkopf -> ausblenden.
• selbiges würde auch für die Spalten möglich sein

https://support.office.com/de-at/ar...-Spalten-313e7bcf-b423-4d35-a974-54ddf13064dd

Im Link sind noch ein paar mögliche Tastenkombinationen und Informationen zum Theme EIN/AUS -Blenden enthalten.

lg

Chris

Hallo Claus > fast perfekt

Da nun alle Zellen zusammengeklappt sind und ich dennoch einige Zeilen an manchen Stellen einfügen muss, gibt es mit deiner Funktion ein Problem.

Man kann nun zwar aufklappen, aber um den Bereich auszuwählen, wohin die Zeile eingefügt werden muss z.b. unterhalb (innerhalb einer Gruppierung) dann klappt die Gruppierung einfach zu ohne die Möglichkeit vorher die Zeile einzufügen. Also ein markieren,
auswählen und einfügen ist nun nicht mehr möglich so bald die Funktion aktiv ist.

Bsp. Zeile 322 - beim Versuch die obere Zeile 321 zu kopieren und einfzufügen, klappt diese einfach zu und somit kein Kopieren und einfügen möglich.

Irgendeine Idee, z.b. kurzeitige Deaktivierung der Funktion zum Einfügen oder Löschen von Zeilen?

Alex

Hallo Susanne,

eigentlich ist dein Vorhaben so nicht möglich.

Da immer eine Zelle aus der Zeile über einen aktiven Zellschutz verfügt und somit nicht gelöscht werden kann.

Ich habe für dich jetzt aber ein Makro gebastelt, mit diesem hast du die Möglichkeit die markierte Zeile zu löschen.

Dieses Makro macht nichts anderes als den Blattschutz kurzeitigt zu deaktivieren und die Zeile zu löschen.

Sub Zeile_löschen()

' Zeile unter Blattschutz löschen

ActiveSheet.Unprotect

Rows(ActiveCell.Row).Select

Selection.Delete

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True , AllowInsertingRows:=True, AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True

End Sub

Gruß

Thomas

Hallo Isabel,
<br />nach deinem Screenshot sollte es problemlos möglich sein oberhalb 2 Zeilen zu löschen und die Höhe der anderen zu korrigieren, dass du wieder auf das gleiche Aussehen kommst.
<br />Claus
<br />

Hallo Oswald,

kann ich nur schwer nachvollziehen, da ich so gut wie nie scrolle.

In langen Listen nutze ich immer nur die Tastenkombinationen, da mir scrollen zu umständlich ist.

siehe dazu Abschnitt

Verschieben und Durchführen eines Bildlaufs in einem Arbeitsblatt oder einer Arbeitsmappe

https://support.office.com/de-DE/ar...nationen-EF213435-A57E-4CE1-BAC6-2B39F16CB121

und wie schon in meinem ersten Post erwähnt ist es nicht möglich Zeilen zu löschen.

Edit:

eine Möglichkeit würde mir da noch einfallen...

die Scrollarea über VBA festlegen!

vgl. dazu folgenden Post

http://answers.microsoft.com/de-de/...cel-2013/73909efb-4d4b-4bd4-84e2-501e7f82de49

"600 Zeilen, 30 Spalten"

Option Explicit

'Code in "dieseArbeitsmappe"

 Private Sub Workbook_Open()

 Dim sh As Worksheet

 Set sh = Tabelle1 'anpassen CodeName der Tabelle

 sh.ScrollArea = "A1:AD600" 'oder was auch immer

 End Sub

Speichern ->schließen ->und Datei erneut öffnen, fertig.

lg

Chris