Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1132to1136
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
1132to1136
1132to1136
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

AppActivate & Nummernblockphänomen

AppActivate & Nummernblockphänomen
Mario
Guten Morgen,
vielleicht hat jemand ja einen Lösungsansatz / Erklärung für folgendes Problem.
Per Shell öffne ich ein Programm. Ist in der Zelle C11 ein Wert gesetzt, schließe ich das Programm direkt wieder per Sendkey (Alt+F4).
Hier der Auszug aus meinem code:
....
Status = Shell("C:\Programm.exe", 1)
If ActiveSheet.Range("C11").Value = True Then
AppActivate Status
SendKeys "%{F4}", True
End if
Gehen wir von True aus - die Bedingung ist also erfüllt und Programm.exe soll direkt wieder geschlossen werden.
Frage 1) wieso schaltet sich dann der Nummernblock nach Ausführen des Codes manchmal ein bzw. aus?
Frage 2) Excel ist deaktiviert und lässt sich nur per Mausklick wieder aktivieren. Kann ich die Task-Id der Arbeitsmappe welche meinen Code enthält irgendwie auslesen und dann per AppActivate wieder aktivieren? AppActivate ("Microsoft Excel") und ähnliche Versuche funktionieren nicht.
Vielen Dank!
mario

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

Betreff
Benutzer
Anzeige
dies liegt an SendKeys ...
28.01.2010 08:47:44
Tino
Hallo,
versuch mal sowas.
Private Declare Function OpenProcess Lib "kernel32" ( _
ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" ( _
ByVal hProcess As Long, _
ByVal uExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" ( _
ByVal hObject As Long) As Long
Sub test()
Dim lTaskID As Double
Dim lhwnd As Long, lResult As Long
lTaskID = Shell("C:\Windows\system32\notepad.exe", 1)
'Task beenden
lhwnd = OpenProcess(1&, 0&, CLng(lTaskID))
TerminateProcess lhwnd, 1&
lResult = CloseHandle(lhwnd)
If lResult = 1 Then MsgBox "Prog geschlossen"
End Sub
Gruß Tino
Anzeige
AW: dies liegt an SendKeys ...
28.01.2010 09:07:13
Mario
mann-oh-mann!
das klappt einfach PRIMA!!!! :-)
Vielen herzlichen Danke Tino!
mario

46 Forumthreads zu ähnlichen Themen

Lock-funktion funktioniert nicht :(
Riccardo

Hallo Leute,
ich habe einmal eine banale Frage. Ich habe einen Code geschrieben, der eine lock-funktion enthält. Im Normalfall hat das so auch immer funktioniert, aber aus irgendeinem Grund funktioniert das in folgendem Beispiel nicht:
If (Target.Address = "$H$6") Then If (ActiveSheet.R...
20.12.2012 10:33:29
Thread-ID: 1291659
13 Beiträge
Anzeige
Seitenumbruch per Makro funktioniert leider nicht
claus

Ich möchte dass immer vor der Spalte in der "Hier" steht ein Seitenumbruch eingefügt wird. Der Wert "Hier" muss nur in der Zeile 1 gesucht werden.
Ich habe versucht diesen Makro zu erstellen. Habe es aber leider nicht hinbekommen.
Bitte beachte, dass es sich hier um Vertikale Seitenumb...
23.08.2013 15:44:08
Thread-ID: 1328158
2 Beiträge
IsNumeric funktioniert nicht
Wolfgang

Hallo,
was ist hiermit falsch?Set rng = ActiveWorkbook.Worksheets(1).Range("AK1:AV71")
For Each r In rng
If Not IsNumeric(r) Then r = ""
NextIch möchte im zugewiesenen Bereich alles löschen, bis auf die Zahlen. Habe ich einen Gedankenfehler?
Gruß
Wolfgang

26.02.2003 17:13:56
Thread-ID: 224666
5 Beiträge
Anzeige
NumLock Taste per VBA betätigen
Monika
Hallo liebe Excelfreunde,

wer kann mir sagen, wie ich die NumLocktaste mit einem
VBA-Befehl betätigen kann, so dass die Lampe auf der Tastatur
an und aus geht.

Vielen Dank und liebe Grüße
Monika
02.12.2003 13:45:10
Thread-ID: 346319
6 Beiträge
Nummerischen-Block deaktivieren
Frank-Roberto
Hallo Forum,
ich möchte, dass bei einer bestimmten Datei alle Tastatureingaben, unter anderem auch die über den Nummernblock nicht möglich sind.
Die Maus soll aber weiterhin aktiv sein.
Tastatur ist mir bekannt "Application.OnKey usw" jede Taste für sich ansprechen.
Aber wie kann ich...
15.04.2004 23:21:32
Thread-ID: 414203
11 Beiträge
Zeilenumbruch funktioniert nicht bei langen Texten
Jo

Liebe Experten,
ich stehe einfach an!
Wen ich einen längeren Text in eine Telle kopiere [egal ob manuell oder per Verweise durch =INDEX(INDIREKT(race);99)], dann wird ab einer gewissen Stelle nicht mehr umgebrochen, obwohl die Zelle mit "Zeilenumbruch" formatiert ist.
Das kann jederz...
19.01.2005 20:20:13
Thread-ID: 550695
5 Beiträge
Zeilenumbruch funktioniert nicht
Carl

Hi,
in einer Excel Tabelle bei mir funktioniert der Zeilenumbruch nicht mehr. Das Blatt ist nicht gechützt (wie in einem andren Thread beschrieben). Ansonsten liegt nur ein Autofilter und eine bedingte Formatierung (mit Formeln) auf dem Blatt (jedoch hab ich beides auch in einer anderen Exc...
20.11.2006 17:36:10
Thread-ID: 821603
7 Beiträge
Automatischer Zeilenumbruch funktioniert nicht
onkelbobby

Hallo,
habe in meiner Tabelle alle Zellen markiert und über Format - Zellen - Zeilenumbruch alle Felder entsprechend formatiert.
Bei den meisten Zeilen funktioniert das einwandfrei. Nur einige Zeilen weigern sich scheinbar diese Formatierung anzunehmen. Auch beim nachträglichen Formatie...
23.05.2008 14:04:46
Thread-ID: 979988
9 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
12
2
1
4
22
5
10
4
6
8
8
3
10
3
4
2
2
4
2
1
5
10
4
2
3