Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige