Textfeldposition in Tabsheet 'fixieren'

[Kuwer]

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

[Wanderfalke]

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!