Wie kann ich in einer bestimmten Zelle einen Doppelklick simulieren? Ich benötige dies, da durch diesen Doppelklick Daten aus einer OLAP Datenbank geladen werden.
Vielen Dank
Günther
Wie kann ich in einer bestimmten Zelle einen Doppelklick simulieren? Ich benötige dies, da durch diesen Doppelklick Daten aus einer OLAP Datenbank geladen werden.
Vielen Dank
Günther
böte sich da nicht ein CommandButton an?
Ansonsten:
Worksheets(1).Activate
Application.DoubleClick
Gruß
Mike
Vielen Dank für den Tipp: Vielleicht kannst du mir auch mit dem Code helfen.
Im Tabellenblatt 1 in der Spalte A stehen die Zahlen, die ich nacheinander in das Tabellenblatt 2 in die Zelle G1 bringen möchte. Nachdem die Zahl in der Zelle steht soll nun der Cursor auf A1 gehen und dort den Doppelklick simulieren.
Vielen Dank Mike
Günther
hu....du willst also wirlich die Werte der SpalteA von Tab1 in die EINZELNE Zelle G1 auf Tabelle2 bringen, dann in Zell A1 von Tabelle1 den Doppelklick ausführen?
Naja, dann vielleicht so:
Ich weiß aber nicht genau, ob das mit dem Doppelklick läuft; aber macht das denn überhaupt Sinn?
Deine daten sollen doch quasi vollautomatisch geöffnet werden, nachdem obige Prozedur gelaufen ist, oder?
Dann musst du lediglich am Ende obigen Codes den Code zum Öffnen deiner Datei anhängen (Der User hat ja ohnehin keine Möglichkeit, das zu verhindern. Oder sehe ich das falsch?)
Gruß
Mike
Um einen Doppelklick in Excel zu simulieren, kannst du einen VBA-Code verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
Excel öffnen und die Arbeitsmappe laden, in der du den Doppelklick simulieren möchtest.
Entwicklertools aktivieren, falls noch nicht geschehen:
VBA-Editor öffnen:
Ein neues Modul einfügen:
Den folgenden Code einfügen:
Sub SimuliereDoppelklick()
Worksheets(1).Activate
Application.DoubleClick
End Sub
Speichern und den VBA-Editor schließen.
Makro ausführen:
SimuliereDoppelklick
und klicke auf Ausführen.Damit wird der Doppelklick auf das aktive Tabellenblatt simuliert, was in deinem Fall das Laden von Daten aus einer OLAP-Datenbank ermöglicht.
Fehler: "Das Makro kann nicht ausgeführt werden."
Fehler: "Anwendungsfehler."
Wenn du keinen VBA-Code verwenden möchtest, kannst du auch einen CommandButton nutzen:
Füge über die Entwicklertools einen CommandButton in dein Arbeitsblatt ein.
Doppelklicke auf den Button und füge den folgenden Code ein:
Private Sub CommandButton1_Click()
Worksheets(1).Activate
Application.DoubleClick
End Sub
Speichern und den Button verwenden, um den Doppelklick zu simulieren.
Angenommen, die Zahlen in Spalte A von Tabelle1 sollen in Zelle G1 von Tabelle2 übertragen werden. Hier ist ein Beispiel, wie du das umsetzen kannst:
Sub ÜbertrageWerte()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets(1) ' Tabelle1
Set ws2 = Worksheets(2) ' Tabelle2
Dim i As Integer
For i = 1 To 10 ' Zellen A1 bis A10
ws2.Range("G1").Value = ws1.Cells(i, 1).Value
ws1.Activate
Application.DoubleClick
Next i
End Sub
1. Kann ich den Doppelklick auch für mehrere Zellen simulieren? Ja, du kannst eine Schleife verwenden, um den Doppelklick für mehrere Zellen zu simulieren, wie im Beispiel im Abschnitt "Praktische Beispiele" gezeigt.
2. Funktioniert dieser Code in Excel 365? Ja, der VBA-Code funktioniert in Excel 365 sowie in älteren Versionen, solange Makros aktiviert sind.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen