Hallo,
war auch genau falsch herum.
So sollte es klappen:
Code:
Option Explicit
Dim blnOK As Boolean
Private Sub Frame1_Layout()
If blnOK Then
TextBox1.Top = ActiveWindow.VisibleRange.Offset(3).Top
Else
blnOK = True
End If
End Sub
Private Sub Worksheet_Deactivate()
blnOK = False
End Sub
' VBA, XML, HTML => Forum-HTML, © 2018 by KHV (VBA) und Haklesoft (VB)
Gruß Uwe
Hallo,
vielen Dank an alle für eure Unterstützung! Das hat mir sehr geholfen.
@Uwe: Mit deiner letzten Version funktioniert es auch wunderbar. Ein Extradank an dich!
VG!