1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

Excel: Zeile löschen und automatisch (an vordefinierter Stelle) neu hinzufügen.

Discussion in 'Office-Programme' started by Lutz-, Sep 25, 2003.

Thread Status:
Not open for further replies.
  1. Lutz-

    Lutz- Byte

    Hallo Leute!

    Ich habe eine geschützte Excel-Tabelle mit 30 Zeilen.

    Ich möchte dem Nutzer ermöglichen eine Zeile seiner Wahl zu löschen.
    Damit die Tabelle auch weiterhin 30 Zeilen hat, soll (sofort nach dem Löschen) an letzter Stelle automatisch eine neue Zeile eingefügt werden.


    Wie kann ich das bewerkstelligen?

    Vielen Dank im Voraus.
     
    Lutz-, Sep 25, 2003
    #1
  2. Lutz-

    Lutz- Byte

    Tausend Dank für die prompte Hilfe.

    Ich habe den Code in meine Tabelle nun eingepaßt.

    Es gibt jedoch ein kleines Problem.

    In einer Spalte wird automatisch ne Summe gezogen.
    Jetzt funzt die Summenbildung jedoch nicht mehr.

    Kannst du dir vielleicht mal die Tabelle anschauen?
    Geht bestimmt schneller, als wenn ich noch lange rumfummel...

    :bet:

    Mailto: excel-problem@radke-radke.de[/email
     
    Lutz-, Sep 26, 2003
    #2
  3. mkl

    mkl Kbyte

    Ach so, entschuldige...

    Also: Du öffnest Deine Excel-Datei und wählst "Extras / Makro / Makros". Dann gibst Du einen Namen für Dein Makro ein, wählst unter Optionen ggf. noch ein Tastaturkürzel und klickst "Erstellen". Dann nimmst Du den Code und fügst ihn zwischen die erste und letzte Zeile ein. Mit ALT-F4 beenden und das war's auch schon.

    Das war der Schnellkurs ;)

    Viel Spaß

    Und tschüx :D
     
    mkl, Sep 26, 2003
    #3
  4. Lutz-

    Lutz- Byte

    Hey, vielen Dank für den Code.

    Wie soll ich ihn aber einfügen?
     
    Lutz-, Sep 26, 2003
    #4
  5. mkl

    mkl Kbyte

    Hallo Lutz,

    soweit ich weiß, kann man in einer geschützten Datei keine Zeilen löschen oder einfügen, d.h. der Schutz müsste temporär aufgehoben werden, dann müsste die Zeile gelöscht und am Ende wieder eingefügt werden und anschließend der Schutz wieder eingschaltet werden. Das macht man am besten mit einem Makro, z.B. so:

    actrow = ActiveCell.Row
    actcol = ActiveCell.Column
    ActiveSheet.Unprotect
    Rows(ActiveCell.Row).Select
    Selection.Delete Shift:=xlUp
    Rows(30).Select
    Selection.Insert Shift:=xlDown
    Rows(29).Select
    Selection.Copy
    Rows(30).Select
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Cells(actrow, actcol).Select

    Hiermit wird der Schutz aufgehoben, die aktuelle Zeile gelöscht, eine Leere Zeile vor Zeile 30 eingefügt, das Format von Zeile 29 auf Zeile 30 übertragen, der Schutz wieder eingeschaltet und der Cursor wieder auf die aktuelle Zelle gestellt.

    Vielleicht hilft Dir das weiter...

    Und tschüx :D
     
    mkl, Sep 25, 2003
    #5
Thread Status:
Not open for further replies.

Share This Page