Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
372to376
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
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Drag and Drop Problem (2)

VBA Drag and Drop Problem (2)
03.02.2004 16:25:15
Lupus
Hallo Excel-User,
ich möchte von Textbox1 oder Textbox2 per Drag and Drop Text in Textbox3 überführen. Im Prinzip kein Problem.
Aber wie erreicht man es, dass unterschiedlicher Code ausgeführt wird, je nachdem aus welcher Textbox der Text stammt?
Also, wenn Text in Textbox3 per Drag and Drop aus Textbox1 überführt wird soll Makro1 ausgeführt werden, wenn Text in Textbox3 per Drag and Drop aus Textbox2 überführt wird soll Makro2 ausgeführt werden.
Ich hoffe, Ihr versteht mein Problem.
Lupus

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Drag and Drop Problem (2)
03.02.2004 16:51:51
Thomas Risi
Probier's mal so ...


Option Explicit
Dim Merker&
Private Sub TextBox1_Enter()
    Merker = 1
End Sub
Private Sub TextBox2_Enter()
    Merker = 2
End Sub
Private Sub TextBox3_BeforeDropOrPaste( _
 ByVal Cancel As MSForms.ReturnBoolean, _
 ByVal Action As MSForms.fmAction, _
 ByVal Data As MSForms.DataObject, _
 ByVal X As Single, ByVal Y As Single, _
 ByVal Effect As MSForms.ReturnEffect, _
 ByVal Shift As Integer)
 
    Dim r As VbMsgBoxResult
    
    If Action = fmActionDragDrop Then
        
        Select Case Merker
        Case 1: Call Makro1
        Case 2: Call Makro2
        End Select
        
    End If
End Sub
Private Sub Makro1()
    MsgBox "Makro1"
End Sub
Private Sub Makro2()
    MsgBox "Makro2"
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß
Thomas
Risi Thomas Softwareentwicklung
Anzeige
AW: Danke, auch prima gelöst, o.T.
03.02.2004 17:40:03
Lupus

303 Forumthreads zu ähnlichen Themen

Drag & Drop deaktivieren?
Steffi

Hallo liebe Spezialisten,
unter "Optionen" habe ich ja die Möglichkeit "Drag & Drop von Zellen" zu deaktivieren.
Das wirkt sich dann aber auf alle geöffneten Dateien aus :-(
Gibt es eine Möglichkeit mit Hilfe eines Makro oder ähnlich Drag & Drop nur bei einer bestimmten Dat...
28.08.2008 14:46:27
Thread-ID: 1005450
3 Beiträge
Anzeige
Formelbezu zw. Dateien (Drag&Drop) mehrere Instanz
Volker

Hallo,
ich weiß (und kann) eine Formel in Excel erstellen, die den Inhalt einer Zelle aus einer anderen Datei anzeigt ("=" & anklicken auf das entsprechende Feld der anderen Datei). Dies geht meineserachtens nur, wenn die zwei Sheets in der gleichen Excel-Instanz geöffnet sind.
Nun...
07.11.2008 12:06:00
Thread-ID: 1022616
2 Beiträge
Formelbezu zw. Dateien (Drag&Drop) mehrere Instanz
Volker

Hallo,
ich weiß (und kann) eine Formel in Excel erstellen, die den Inhalt einer Zelle aus einer anderen Datei anzeigt ("=" & anklicken auf das entsprechende Feld der anderen Datei). Dies geht meineserachtens nur, wenn die zwei Sheets in der gleichen Excel-Instanz geöffnet sind.
Nun...
07.11.2008 12:15:00
Thread-ID: 1022620
2 Beiträge
Anzeige
Drag-and-Drop von Buttons innerhalb Worksheets
Buttons

Hallo!
Ich bin auf der Suche, nach einer Möglichkeit Buttons innerhalb eines Excel Arbeitsblattes zu verschieben. Das Ganze soll ähnlich dem verschieben von Felder in Pivot Tabellen erfolgen und -soweit möglich- auch noch funktionieren, wenn das Arbeitsblatt später geschützt wird.
Danke...
01.09.2009 09:38:14
Thread-ID: 1099751
6 Beiträge
Dateien per Drag & Drop aus Outlook | Herbers Excel-Forum
Marko
Hallo,
ich habe bei der Suche nach einer Drag & Drop Lösung von Dateien in eine ListBox
im Archiv folgenden Beitrag aus dem Jahr 2006 gefunden.
https://www.herber.de/forum/archiv/800to804/t800851.htm
Option Explicit Const vbDropEffectNone = 0 Const vbDropEffectCopy = 1 Const vbDro...
22.01.2010 21:15:21
Thread-ID: 1132241
2 Beiträge
zeilen per drag & drop verschieben
Lorenz

Hallo Excelianer,
Ich möchte per Drag & Drop ganze Zeilen (auch mehrere) in bereits benutzten Bereich verschieben. Der benutzte Bereich soll aber nicht überschrieben werden, sondern die Zeilen eingefügt werden. Im Anschluß sollen die dadurch entstandenen leerzeilen gelöscht werden. Zum...
28.03.2010 16:42:53
Thread-ID: 1148936
3 Beiträge
Zeile per Drag & Drop verschieben?
Holger

Hallo,
ein zauberhaftes Problem:
Ich habe Zeilen z.B von A2 bis I2 mit Daten.
Nun möchte ich die Zelle A2 aktivieren und die Zellen (also von A2 bis I2) per Drag & Drop an einen anderen Ort verschieben, z.B nach M2.
Geht eine solche Zauberei?
21.05.2010 12:26:24
Thread-ID: 1158251
4 Beiträge
Drag & Drop mehrspaltige Listbox
Detlef

Hallo Excel-Profis´s
ich habe in der Excelhilfe ein Beispiel für Drag & Drop von Listbox zu Listbox gefunden; leider funktioniert das nur bei einspaltigen Listboxen
Ich habe aber als Ausgang (Listbox1) eine zweispaltige Listbox und in Listbox2 sollen die Daten auch wieder zweispalti...
12.06.2010 21:06:53
Thread-ID: 1161563
3 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
1
1
2
5
1
2
3
2
2
5
6
3
2
9
5
2
4
2
2
4
4
3
9