Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1568to1572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1568to1572
1568to1572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatisches Drehfeld

Automatisches Drehfeld
24.07.2017 11:56:21
Lucas
Hallo zusammen,
Ich habe ein Bestellformular, und möchte, dass in der Zelle die mit dem Cursor markiert ist also die Zelle die aktiv ist rechts daneben oder am besten in der Zelle rechtsbündig das Drehfeld erscheint und sobald man eine andere Zelle markiert es auch wieder verschwindet. Natürlich soll es auch nur in bestimmten Bereichen erscheinen.
wäre schön wenn jemand eine Idee hätte
Danke im Voraus
Gruß Lucas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisches Drehfeld
24.07.2017 12:32:52
Rudi
Hallo,
setze in einer Worksheet_selectionchange-Prozedur die Top-Left-und visible-Eigenschaft
Gruß
Rudi
AW: Automatisches Drehfeld
24.07.2017 12:36:53
Tino
Hallo,
hier ein Beispiel
Hier wird der Range-Bereich B2:B50 verwendet und das Drehfeld hat den Namen Drehfeld 1.
Code kommt in die entsprechende Tabelle!
kommt als Code in Tabelle 
Option Explicit 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
Dim oDF As Shape, rng As Range 
'aktive Zelle im Bereich B2:B50? 
Set rng = Intersect(ActiveCell, Range("B2:B50")) 
'Drehfeld Name = Drehfeld 1 
Set oDF = Me.Shapes("Drehfeld 1") 
 
If Not rng Is Nothing Then 
    oDF.Left = rng.Left + rng.Width 
    oDF.Top = rng.Top 
    oDF.Visible = True 
Else 
    oDF.Visible = False 
End If 
End Sub
Gruß Tino
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige