Office: Zeilen löschen aufgrund markierter Zellen

Hallo zusammen

Mein Ziel ist es, ein paar Zelle zu markieren und auf einen Button zu klicken. Daraufhin markiert Excel die ganzen Zeilen der markierten Zellen und löscht diese. Dasselbe möcht ich mit Einfügen machen.

Leider habe ich mit VBA in Excel so meine Probleme. Im Forum habe ich zwar einiges zum Thema gefunden, jedoch hat mich nichts wirklich weitergebracht.

Ach ja, es betrifft Excel 2002.

Gruss

caro

:)

 

Hi Caro,

also das löschen ist schonmal ganz einfach und funktioniert mit folgendem Code

Code:

Beim Einfügen weiß ich nicht so ganz was Du willst: Sollen genausoviele Zeilen eingefügt werden wie Du markiert hast oder soll nur eine ober- oder unterhalb Deiner Markierung eingefügt werden?

Gruß

Petra

 

Hallo Petra

Vielen Dank für Deine schnelle Antwort.
Es sollen genausoviele Zeilen eingefügt werden wie ich markiert habe.

Gruss

caro

 

Hallo Petra

Habs getestet. Es kommt folgende Fehlermeldung:

Laufzeitfehler '1004':
Die Delete-Methode des Range-Objektes konnte nicht ausgeführt werden.

Was nun?

Gruss

caro

 

Hallo caro,

wenn die Zellen schon selektiert sind dann:

Code:

Hoffe es hilft dir weiter.

 

HI Caro,

ist die Tabelle vielleicht geschützt? Dann kann man nämlich nicht löschen.
Oder versuchst Du vielleicht in einem Blatt zu löschen das im Moment nicht aktiv (nicht zu sehen) ist?
Oder sind keine Zellen markiert?

Bei mir funktioniert das prima.
Sonst ersetz doch "ActiveWindow" durch Worksheets("Name deiner Tabelle").

Das Einfügen dürfte eigentlich noch einfacher sein, dazu reicht schon folgender Befehl (auch nur in einer ungeschützten Tabelke!):

Code:

Probiers mal und wenns noch Probleme gibt, kannst Du ja vielleicht deine Datei mal hochladen.

Gruß

Petra

 

Hallo Petra

Ja, ja die Tabelle war gesperrt. Das mit dem

Selection.EntireRow.Delete

hat prima funktioniert. Das mit dem Insert habe ich ganz alleine rausgefunden (stolz!!!).

Nochmals vielen Dank.

Grüsse aus der Schweiz

caro