AW: SelectChange ausschalten
16.11.2005 23:55:54
Gerhard
Hallo!
Bin VBA Anfänger und hab einen Code aus einer Datenbank genommen und ihn umgeschrieben für meine Anforderung. Das "Vergrößern Target.Offset(0, -1).Address(False, False)" war der eigentliche Beginn der Geschichte es wird der Inhalt der Zelle in Spalte 3 vergrößert in einem eigenen Fenster dargestellt. Die dazugehörigen Codes hänge ich an.
Sub Vergrößern(Zelle As String)
Anzeige_löschen
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 231.55, ActiveCell.Top, _
190, 55.55).Select
'ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 5, 59.25, _
' 170, 45#).Select
Selection.Name = "Anzeige"
Selection.HorizontalAlignment = xlCenter
Selection.Characters.Text = "Produktionslinie" & Chr(10) & Range(Zelle)
With Selection.Characters(Start:=1, Length:=Len(Selection.Text)).Font
.Name = "Tahoma"
.FontStyle = "Fett"
.Size = 20
.ColorIndex = 5
End With
Range(Zelle).Offset(0, 1).Select
End Sub
Sub Anzeige_löschen()
On Error GoTo Ende
ActiveSheet.Shapes("Anzeige").Select
Selection.Delete
Ende:
End Sub
Es funktioniert an sich super bei klick in Spalte "D" werden Zeilenhöhe und Schrift vergrössert, die Farbe der Zelle u. Schrift geändert und die Zelle der Spalte "C" in einem eigenen Fenster vergrössert dargestellt. Brauche das weil das ganze auch von einiger Entfernung am Bildschirm ablesbar sein soll, auch für "Schlechtseher".
Aber!!
Wären da nicht die andern Macros mit denen ich das Select auslöse und der Blattschutz!
Gruss
Gerhard