Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1892to1896
1892to1896
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Taste Win+R und Text aus aktiver Zelle

Forumthread: Taste Win+R und Text aus aktiver Zelle

Taste Win+R und Text aus aktiver Zelle
17.08.2022 14:35:40
Dieter(Drummer)
Guten Tag an alle …
Ich habe einen Code von Nepumuk aus 2021, dafür nochmal herzlichen Dank.
Dieser Code ruft die Taste Win+R auf und öffnet direkt eine WIN 10 Programmfunktion, hier "devmgmt.msc", den WIn 10 Geräte-Manager auf. Das klappt prima.
Die Codezeile im Modul2 dafür ist: Call SendMessageA(lngptrEditBoxHandle, WM_SETTEXT, 0, "devmgmt.msc") 'Geräte-Manager
Ich kann auch eine andere Programmfunktion dort einfügen, z.B. "WinVer". So wird mir dann direkt die Windows Version mit Versionsnummer angezeigt.
In der Musterdatei sind alle WIN10 Programmfunktionen mit Erklärung, in Spalte C gelistet.
Meine Frage und Wunsch:
Im Modul2 möchte ich Programfunktion aus aktiver Zelle aus Tabelle1, Spalte C, in den Code übernehmen.
Beispiel: Call SendMessageA(lngptrEditBoxHandle, WM_SETTEXT, 0, "devmgmt.msc")
"Aktiver Text aus aktiver Zelle"
z.B. die aktive Zelle wäre C5, dort steht "calc" drin, dann muss er Code so lauten:
Call SendMessageA(lngptrEditBoxHandle, WM_SETTEXT, 0, "calc")
Wäre toll, wenn das möglich wäre.
Mit der Bitte um Hilfe,
grüßt, Dieter(Drummer)
https://www.herber.de/bbs/user/154688.xlsm
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Taste Win+R und Text aus aktiver Zelle
17.08.2022 14:43:28
Nepumuk
Hallo Dieter,
so:

Public Sub WinR()
Dim lngptrDialogHandle As LongPtr, lngptrComboBoxHandle As LongPtr
Dim lngptrEditBoxHandle As LongPtr, lngButtonHandle As LongPtr
Dim strCommand As String
strCommand = Intersect(ActiveCell.EntireRow, Columns(3)).Text
Call keybd_event(VK_WIN, 1, KEYEVENTF_KEYDOWN, 0)
Call keybd_event(vbKeyR, 1, KEYEVENTF_KEYDOWN, 0)
Call keybd_event(vbKeyR, 1, KEYEVENTF_KEYUP, 0)
Call keybd_event(VK_WIN, 1, KEYEVENTF_KEYUP, 0)
DoEvents
lngptrDialogHandle = FindWindowA(GC_CLASSNAMEMSDIALOG, "Ausführen")
lngptrComboBoxHandle = FindWindowExA(lngptrDialogHandle, 0, GC_CLASSNAMECOMBOBOX, vbNullString)
Call Sleep(100)
lngptrEditBoxHandle = FindWindowExA(lngptrComboBoxHandle, 0, GC_CLASSNAMEEDIT, vbNullString)
Call SendMessageA(lngptrEditBoxHandle, WM_SETTEXT, 0, strCommand) 'Geräte-Manager
lngButtonHandle = FindWindowExA(lngptrDialogHandle, 0, GC_CLASSNAMEBUTTON, "OK")
Call SendMessageA(lngButtonHandle, BM_CLICK, 0&, ByVal 0&)
End Sub
Gruß
Nepumuk
Anzeige
AW: Taste Win+R und Text aus aktiver Zelle
17.08.2022 14:54:11
Dieter(Drummer)
Hallo Nepumuk,
einfach wieder perfekte Lösung, die auch prima funktioniert! Herzlichen Dank und
Gruß und einen weiteren, erfolgreichen Tag,
Dieter(Drummer)
;

Forumthreads zu verwandten Themen

Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Anzeige
Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Anzeige
Inhalt einer Zelle in anderer Zelle als Formel
Elias

Guten Morgen,
ich bin auf der Suche nach einer Lösung für folgenden Sachverhalt.
In einer Tabelle wird aus dem Inhalt verschiedener Zellen über Verketten eine Zeichenfolge gebildet, die in einer anderen Tabelle als Formel herhalten soll.
(Kurzes) Beispiel, das Original ist furchtbar...
11.01.2009 06:01:22
Thread-ID: 1038572
6 Beiträge
Text in Fußzeile aus Zelle ziehen
Sandra

Hallo zusammen!
Ich brauche mal wieder Eure Hilfe.
Meine Exceltabelle (ein Protokoll) soll im linken Teil der Fußzeile einen Text bekommen, der automatisch aus einer Zelle gezogen wird. So das sich die Fußzeile immer aktualisiert, wenn die Zelle geändert wird. Mit einer Formel geht es j...
29.01.2009 11:29:24
Thread-ID: 1044904
23 Beiträge
Zufällig einen Text ausgeben aus best. Zellen
Eddie

Hallo und Guten Abend.... habe mal wieder ein Problem...
Ich will gerne aus einer Anzahl von zellen (ca 100 Zeilen) .. wo bestimmte Sätze drin stehen diese Zufällig in einer Bestimmten zelle anzeigen lassen ....
Vielleicht hat ja jemand schon sowas gemacht ?
thx schon einmal
G...
15.02.2009 20:14:00
Thread-ID: 1050974
7 Beiträge
Inhalt einer Zelle in mehrere Zellen aufsplitten
Joerschi

Hallo liebe Excel-Community,
ich möchte den Inhalt einer Zelle (getrennt durch Leerzeichen) in andere Zellen aufsplitten bzw. in anderen Zellen getrennt anzeigen lassen. Die Leerzeichen aus der Herkunftszelle sollen dabei ignoriert werden.
Z. B. steht in Zelle A1: "1 2 3 4 5"
Jetzt...
04.03.2009 11:46:03
Thread-ID: 1056268
9 Beiträge
Bestimmten Inhalt einer Zelle in Textbox
Mone

Hallo Ihr Experten!
Ich bin am Verzweifeln....suche nach einer Möglichkeit mit VBA aus einer Zelle (A6) einen Teil aus dieser Zelle in eine Textbox zu manövrieren. Also in A6 steht z.B. 1234 Musterstadt. Ich muss nun die PLZ in eine separate Textbox einlesen als auch den Ort. Habe da mittel...
04.03.2009 23:39:53
Thread-ID: 1056628
4 Beiträge
Anzeige
Zugriff auf auf Teilinhalte einer Zelle
Der

Hallo da Draußen!
Habe mal wieder ein Problem mit meiner VBA Programmierung. Ich möchte innerhalb einer Exceltabelle auf einzelne Zellen zugreifen, die ein bestimmtes Merkmal haben. Der Inhalt der Zelle beginnt mit einer Zahl (in diesem fall mit einer Postleitzahl). Ich möchte also meine Ab...
20.03.2009 14:52:09
Thread-ID: 1062230
5 Beiträge
Teilinhalte aus Zellen löschen
Der

Hallo da draußen,
ich möchte aus einer Zelle die ersten x Zeichen von links löschen und die Restlichen beibehalten. Mit dem Befehl left(cells(R,C),x) kann ich auf diese Zeichen zugreifen und sie auch auslesen. Wie kann ich sie nun löschen?
Danke für Eure Hilfe!
Grüße aus der Hauptst...
25.03.2009 15:20:24
Thread-ID: 1063841
9 Beiträge
'Inhalt'/Typ einer Zelle bestimmen
TommiH

Hallöchen,
gibt es eine einfache Methode bei einer Zelle zu bestimmen, ob der Inhalt eine Zahl ist oder nicht?
Ich habe eine Zelle über die ich nicht weiss was drin steht, aber wenn eine Zahl drin steht, muss diese um 1 erhöht und einer anderen Zelle zugewiesen werde. Wenn es keine Zahl...
27.03.2009 14:17:52
Thread-ID: 1064625
8 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige