mit beigefügtem Code möchte ich den Blattschutz aufheben, eine bestimmte Anzal von Zeilen einfügen und das Blatt wieder schützen.
so ganz komme ich mit deiner Fragestellung niocht klar,... aber vermutlich funktioniert er nicht :-)
Rows("X:" & X + anzahl ).Select
sollte es wohl heissen.
Gruss Rainer
du hast recht, so funktioniert es nicht. Ich wollte folgendes:
Egal welche Zeile ich im Zeilenkopf anklicke und dann das Makro aufrufe soll die Anzahl der Zeilen ab der angeklickten Zeile (dafür schrieb ich X) eingefügt werden.
So nach dem Stil vom Makrorekorder:
Rows("9:13").Select
Selection.Insert Shift:=xlDown
Gruß Heinz
dazu brauchst du eigentlich nichts:
Selection.Insert Shift:=xlDown
reicht, wenn du Zeilen markiert hast.
Gruss Rainer
danke, das weis ich. Ich wollte aber nicht vorher Markieren sondern nur eine anklicken und über die Inputbox die Anzahl
der einzufügenden Zeilen bestimmen.
Gruß Heinz
wie wäre es denn damit:
Viel Erfolg wünscht
WernerB.
dann muss nicht mal die Zeile markiert werden.
Gruss Rainer
dann muss nicht mal die Zeile markiert werden.
Gruss Rainer
die Zeile (oder eine Zelle in der gewünschten Zeile) muss vor dem Makro-Aufruf schon markiert sein !
Gruß
WernerB.
Danke an euch beide, das ist genau das was ich gesucht habe.
Ein schönes Wochenende
Heinz
du machst mich neugierig, ein bisschen VBA-kenne ich ja, deshalb bin ich auf deine Erläuterungen gespannt.
Gruß Heinz
Man kann das(außer 1.) zwar mit On Error unterdrücken, aber das ist
höchstens dann akzeptabel, wenn das Makro ausschließlich zur
eigenen Verwendung gedacht ist. Und selbst dann eigentlich aus der
Sicht eines Programmieres nicht.
Ohne Garantie für Vollständigkeit der Mängel!
ich brauche das Makro nur für den Eigengebrauch. Es sollen später einfach per Klick in ein Rechnungsformular eine entsprechende Anzahl von Zeilen eingefügen, die dann, ich habe heute das Makro weitergebastelt mit der FillDown-Funktion mit den Formeln ausgefüllt werden, sodas man nur noch die Zahlen eintragen muss.
Deshalb kann ich auch auf Fehlerroutinen der von dir genanntenPunkte verzichten.
Aber zur Sicherheit und zum weiterlernen werde ich mir mal die Fehlerroutinen überlegen.
Danke
Gruß Heinz