Rahmen verschieben, Wie

Guten Abend Allerseits,
habe folgende Makros, für das verschieben eines Rahmens:
wegenschieben:


Sub A1_Rahmen_verstzen()
Worksheets("Musterblatt").Select
Range("A1").Select
Worksheets("Musterblatt").Unprotect ("ww")
ActiveSheet.Shapes("Rectangle 124").Select
Selection.ShapeRange.IncrementLeft 822.75
Selection.ShapeRange.IncrementTop 9#
Range("AB43").Select
Range("B40").Select
Range("i40").Select
Worksheets("Musterblatt").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:="ww"
End Sub

Zurück setzen:


Sub A1_zurück()
Worksheets("Musterblatt").Select
Range("A1").Select
Worksheets("Musterblatt").Unprotect ("ww")
ActiveSheet.Shapes("Rectangle 124").Select
Selection.ShapeRange.IncrementLeft -823.5
Selection.ShapeRange.IncrementTop -8.25    '-8.25
Range("B40").Select
Range("i40").Select
Worksheets("Musterblatt").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:="ww"
End Sub

Funktioniert, bis auf das nach mehrmaligen hin und her der Rahmen nicht exakt
da ist wo er im Ursprung war.
Hat jemand eine Idee oder gegebenfalls andern Vorschlag ?
Habe Rahmen genommen, da 2 Spalten genau dazwischen liegen.
Gruß Walter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub A1_Rahmen_verstzen() With Worksheets("Musterblatt") .Unprotect ("ww") .Shapes("Rectangle 124").Left = 822.75 .Shapes("Rectangle 124").Top = 9 .Range("i40").Select .Protect DrawingObjects:=True, Contents:=True, Scenarios _ :=True, Password:="ww" End With End Sub

Sub A1_zurück() With Worksheets("Musterblatt") .Unprotect ("ww") .Shapes("Rectangle 124").Left = 0 .Shapes("Rectangle 124").Top = 0 .Range("i40").Select .Protect DrawingObjects:=True, Contents:=True, Scenarios _ :=True, Password:="ww" End With End Sub

Hallo Walter,
ich habe mir deinen Code nicht in eine Datei eingebaut um nachzuvollziehen, wo du wann wie einen Rahmen haben möchtest. Aber deine Rahmen hängen ja wohl von Bedingungen ab. Deshalb wäre die Bedingte Formatierung doch ein denkbarer Weg. Und sind es Rahmen um einen Bereich, dann halt manche Zellen links, andere oben, andere rechts und die restlichen unten beim Zutreffen der Bedingungen mit Linie versehen.
Auf der Seite von Klaus Bernauer ist erklärt, wie man z.B. jede 2. Zeile unterstreicht:
http://steuerberater-hilfe.de/Excel-Tipps-2002.htm
"Tabellenblatt mit linierten Zeilen anlegen"
Hilft dir das weiter (die Bedingung kann ja auch eine ganz andere sein), sonst müßtest du deine Beispieldatei hochladen und erklären, was du wann umrahmt haben willst.
Gruß,
Beate

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread