Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bereich für VBA Funktion einschränken!

Bereich für VBA Funktion einschränken!
08.06.2017 13:21:10
Sven
Hallo liebe Forumsteilnehmer,
ich hoffe ihr könnt mir bei meinem Problem helfen!
Und zwar habe ich eine Exceldatei mit 10 Tabellen, die alle gleich aufgebaut sind
und durch einen Blattschutz und mit einer anderen VBA-Funktion das Ausschneiden, Kopieren und Einfügen per Hand oder Menüleiste unterbindet!(Kopiert aus dem www)
Jetzt habe ich mit dem Macrorecorder die Funktion aufgezeichnet die aktuelle Zelle nach unten zu kopieren. Und eine andere für nach oben. Wenn ich dann aber in den geschützten Bereich des Blattes komme, erhalte ich einen Laufzeitfehler.
Nun wäre meine Frage wie ich den Bereich der beiden Funktionen einschränken kann.
Die Bereiche sind B8:D38 und I8:I38, der Rest ist komplett geschützt.
So sehen die beiden Funktionen aus, diese liegen in einem Modul...
Sub NachUntenKopieren()
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Sub NachObenKopieren()
Selection.Copy
ActiveCell.Offset(-1, 0).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Vielen Dank und falls etwas unklar sein sollte, dann gebe ich auch gern weitere Infos.
LG Sven

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich für VBA Funktion einschränken!
08.06.2017 13:24:56
Sven
Hallo,
ich hatte noch vergessen, dass ich die beiden Funktionen jeweils einer Form zugewiesen habe, die der User betätigen kann.
LG Sven
AW: Bereich für VBA Funktion einschränken!
08.06.2017 13:33:28
ChrisL
Hi Sven
Sub NachUntenKopieren()
If Intersect(Selection, Range("B8:D37,I8:I37")) Is Nothing Then Exit Sub
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Sub NachObenKopieren()
If Intersect(Selection, Range("B9:D38,I9:I38")) Is Nothing Then Exit Sub
Selection.Copy
ActiveCell.Offset(-1, 0).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
cu
Chris
Anzeige
AW: Bereich für VBA Funktion einschränken!
08.06.2017 13:53:49
Sven
Hallo Chris,
super vielen Dank! Funktioniert genau wie ich es brauche!
Und eigentlich nicht schwer! Eigentlich :-)
Top Service!!
LG Sven

176 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige