Office: Zeile einfügen (VBA)

Hi!

Wie füge ich per VBA-Code eine Zeile in Excel ein???

"range("a1").insert" funzt ned
"rows(2).insert" funzt ned
"cells(2,2).insert" funzt ned

Immer wieder: "Laufzeitfehler 1004: Die Insert-Methode des Range-Objektes ist fehlerhaft"

Nur der Umweg über "...select" und "selection..." funzt. Will aber nicht die Zeilen erst markieren.

:)

 

Hallo Hans Bärbel,

Rows(8).Insert Shift:=xlDown

 

Hi Hajo,

danke für deine Antwort! Nur leider bringt sie nicht das gewünschte Ergebnis. Wieder die selbe Fehlermeldung... An den "Shift"-Zusätzen liegt es nicht - habe ich schon ausprobiert...

Woran liegt es dann???

PS. Auch wenn "Hans Bärbel" verlockend klingt, darfst mich auch "Ice" nennen - ist schließlich wirklich ein Teil meines Vornamens... *wink.gif*

Sörs'n, Ice alias Hans Bärbel

 

Hallo HANs Bärbel,

in meinem Namen ist ein a Du kannst mich trotzdem mit Hajo anreden.
Veralbern kann ich mich alleine.

 

Hi Hajo,

habe nicht vor dich zu veralbern.

Und jetzt zurück zum eigentlichen Thema:

"rows(8).insert shift:=xldown"
funktioniert nicht.

"rows(8).select"
"selection.insert shift:=xldown"
funktioniert.

Wie kann ich eine (mehrere) Zeile(n) einfügen, ohne zuvor die Zeile zuvor selektieren zu müssen???

Schon mal vielen Dank für eure Lösungsansätze im Voraus!

 

Hi Ice,

ActiveSheet.Rows(8).Insert Shift:=xlDown

Sollte eigentlich problemlos funktionieren. Da du ActiveSheet. weglassen kannst, müsste der von dir angegebene Befehl eigentlich funktionieren. Du hast nicht zufällig einen Schreibfehler drin? (No offense, ist mir schon paar mal passiert, dass ich das offensichtliche nciht gesehen hatte *Smilie
Ansonsten ist das Problem in deiner Sub vielleicht woanders? Probier mal eine eigene Sub nur mit dem Befehl. Muss eigenltich funktionieren.

 

Hi sonba,

danke, aber daran liegts auch nicht. Weder ein Schreibfehler, noch die Sheet-Angabe. Die Sub hab ich schon auf dieses Einfügen minimiert.

Welche Möglichkeiten gibts noch?

 

Hallo ice,

also hiermit

Code:

erledigen.[/Edit]


cu
myfake

 

Hi zusammen!

Vielen Dank für eure Hilfe!!!

Habe das Problem jetzt gefunden:
Die Sub wurde per CommandBox gestartet. Dadurch ist die CommandBox markiert. Solange dies der Fall ist; funktionen alle möglichen cells.insert, range.insert, rows.insert, ...entirerow.insert, ... nicht...

Konntet ihr nicht ahnen... Sorry!

 

Hallo Ice,

aber auch das (Start per Befehlsbutton) ließe sich machen. Nimm einfach die Formular-Schaltfläche und weise der den Code zu. Schon klappt es. *Smilie

cu
myfake

 

Hallo myfake,

warum soll es nicht mit CommnadButton aus der Steuerelemente Toolbox gehen?

 

Hallo Hajo,

das hatte ich nicht getestet (ich teste aber selten alle Möglichkeiten, da ich denke, dass eine funktionierende reicht *wink.gif* ). Ich habe die Aussage von Ice genommen, dass er Schwierigkeiten mit der CommandBox (was immer das ist) hat und es dann einfach mit der Formular-Schaltfläche getestet. Das hat geklappt und das wollte ich Ice lediglich mitteilen.

cu
myfake

 

Hi!

Zur Info: Bei der "Schaltfläche"/"Befehlsbutton"/... muss nur die Eigenschaft "TakeFocusOnClick" deaktiviert sein.

 

Hallo Ice,

bei mir funktioniert es auch, wenn "TakeFocusOnClick" auf True gesetzt ist. *grübel*

Aber ich denke, dass das ja jetzt auch egal ist, da eine funktionierende Lösung existiert. *Smilie

cu
myfake

 

Hi myfake,

habs grad auf Excel 2002 probiert - da gehts bei mir auch mit "TakeFocusOnClick". Nur mein Excel 97 will kein "TakeFocusOnClick"...

Ist also der Unterschied zwischen den Versionen...

Also nochmals DANKE!