AW: ActiveX Textbox
27.01.2017 15:54:08
Mullit
Hallo nochmal,
ich seh grad, wär dann vielleicht so noch besser:
' **********************************************************************
' Modul: Tabelle1 Typ: Klassenmodul des Tabellenblattes
' **********************************************************************
Option Explicit
Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
Call prcReset
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call prcReset
End Sub
Private Sub prcReset()
With TextBox1
If .Left <> Cells(11, 2).Left Or .Top <> Cells(11, 2).Top Or _
.Width <> Cells(11, 2).Width Or .Height <> Cells(11, 2).Height Then
.Left = Cells(11, 2).Left
.Top = Cells(11, 2).Top
.Width = Cells(11, 2).Width
.Height = Cells(11, 2).Height
End If
End With
End Sub
VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel
Code erstellt und getestet in Office 12
Gruß, Mullit