Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
932to936
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
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro mit Leertaste starten

Makro mit Leertaste starten
11.12.2007 19:22:54
Matthias
Hi zusammen,
ich habe beruflich viel mit Listen zu tun, in denen sehr viele Zeichnungsnummern verwaltet werden. Eine Zeichnungsnummer beginnt immer mit einer 2 und hat mindestens 6 Ziffern.
Oft will man sich auch die Zeichnung, die hinter einer Nummer steckt, ansehen. Im Moment ist es so, dass man die Nummer per copy&paste in einem Programm ("Zeichng.exe") einfügen muss, welches dann den Speicherort dieser Zeichnung sucht.
Um dies zu vereinfachen, hätte ich folgende Idee. Befindet man sich in einer Zelle mit einer Zeichnungsnummer 20001234, wird z.B. durch einen Druck auf die Leertaste ein Makro gestartet, welches in Windows den Befehl "Zeichng.exe 20001234" ausführt. Damit wird das Zeichnungs-Suchprogramm sofort mit der jeweiligen Nummer gestartet. Ist so etwas machbar?
Vielen Dank schon mal für jede Idee
Matthias

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro mit Leertaste starten
12.12.2007 17:28:00
Renee
Hi Matthias,
Kopiere diesen Code in das entsprechende Tabellenblatt.
Das Makro startet bei Doppelklick auf eine Zeichnungsnummer im entsprechenden Bereich.
Passe ggf. die ersten beiden Zeilen (Const...) nach deinen Bedürfnissen an:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const tBereichZNr = "A2:A1000"
Const tProgramm = "C:\Programme\Zeichng.exe"
If Intersect(Target, ActiveSheet.Range(tBereichZNr)) Is Nothing Then Exit Sub
If Val(Target.Cells(1, 1)) = Target.Cells(1, 1).Value Then _
Shell (tProgramm & " " & Target.Cells(1, 1).Value)
End Sub


GreetZ Renee

Anzeige
AW: Makro mit Leertaste starten
15.12.2007 11:25:00
Matthias
Hi,
danke, nicht schlecht, das funktioniert schon ganz gut! Kann man das Makro statt mit einem Doppelklick auch z.B. mit einem Druck auf die Leertaste starten? Doppelklick braucht man ja eigentlich, wenn man die Zelle bearbeiten möchte...
Im Archiv steht dazu das hier: https://www.herber.de/forum/archiv/492to496/t492546.htm#492546
Vielen Dank
Matthias

AW: Makro mit Leertaste starten
15.12.2007 15:39:00
Fred
Hi,
das geht in Tabellen aus gutem Grund nicht, es fehlt das Keydown/Keypress-Ereignis.
mfg Fred

AW: Makro mit Leertaste starten
16.12.2007 14:41:00
Matthias
Hi,
also ist es grundsätzlich nicht möglich? Habe hier noch etwas gefunden, wo es anscheinend jemand hinbekommen hat: http://www.supportnet.de/fresh/2006/4/id1313351.asp
Meine VBA-Kenntnisse sind dafür allerdings nicht ausreichend. Nochmal im Klartext: Es soll, wenn in irgendeiner Zelle die Leertaste gedrückt wird, ein Makro ausgeführt werden (Starten von Zeichng. exe).
Gruß
Matthias

Anzeige
AW: Makro mit Leertaste starten
17.12.2007 11:35:00
Renee
Hi Matthias,
Die Leertaste finde ich eine völlig unadäquate Lösung. Auch ist sie mit viel zu viel (wirtschaftliche nicht vertretbarem) Programmieraufwand verbunden.
Mein Routine könntest du einfach auf Rechtsklick (statt Doppelklick) 'umbiegen':

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Const tBereichZNr = "A2:A1000"
Const tProgramm = "C:\Programme\Zeichng.exe"
If Intersect(Target, ActiveSheet.Range(tBereichZNr)) Is Nothing Then Exit Sub
If Val(Target.Cells(1, 1)) = Target.Cells(1, 1).Value Then
Shell (tProgramm & " " & Target.Cells(1, 1).Value)
Cancel = True
End If
End Sub


GreetZ Renee

Anzeige

307 Forumthreads zu ähnlichen Themen

OptionButtons in Grp mittels Makro erstellen
adrian

Hi,
wie folgt wird ein OptionButton mittels Makro erstellt: Die Prozedur wird dann zusammen mit einer anderen im HauptSheet aufgerufen.
Nur weiß ich leider nicht wie ich mehrere OB, bzw. drei untereinander als Gruppe erstellen kann =(
Mehrere Prozeduren, für jeweils jeden OB ist ja...
16.12.2008 14:44:00
Thread-ID: 1033291
13 Beiträge
Anzeige
Makro in Symbolleiste automatisch verknüpfen
Jochen

Hab versucht im Archiv fündig zu werden, gibt auch viele Tips, aber irgendwie komme ich nicht weiter. Makro erstellen, manuell ein Icon in der Symbolleiste erstellen und verknüpfen, kann ich. Ich möchte aber gerne, dass ich mein Makro verschicken kann und der Empfänger dieses öffnet und sich da...
25.03.2009 01:09:42
Thread-ID: 1063544
7 Beiträge
Makro für Kopiern eine Spalte links davon einfügen
einfügen

Hallo,
ich bin auf der Suche nach einer Lösung für folgendes Problem.
Ich möchte die Werte die ich markiert habe (die Markierung ist jedes mal anders) kopieren und eine Spalte links davon als "Werte und Zahlenformate" einfügen. Die Markierung besteht vor Ausführung des Makros. Wie bring...
28.07.2009 15:51:06
Thread-ID: 1091972
5 Beiträge
Anzeige
Bilder per Makro in Excel einfügen
stefanseevetal

Hallo zusammen!
Ich habe ein Problem, das ich mir nicht erklären kann. Ich füge nach einer Auswahl über den untenstehenden Code ein Bild im Tabellenblatt "Deckblatt" ein. Es soll gemäß dem Code oben links eingefügt werden. Leider funktioniert dies bei einigen Computern nicht und das Bild wi...
27.10.2009 19:27:47
Thread-ID: 1112579
4 Beiträge
Makro mit Button aufrufen
Joni

Hi,
ich möchte mit
Private Sub Buchungen_einfügen_Click() Call Buchungen_einfügen End Sub das Makro Buchungen einfügen aufrufen (wenn auf den Button geklickt wird). Da kriege ich die Meldung Prozedur statt Variale erwartet.
Kann mir jemand helfen warum das nicht funktioniert?
D...
17.11.2009 13:36:53
Thread-ID: 1117967
6 Beiträge
Makro in Symbolleiste | Herbers Excel-Forum
Schiele
Hallo,
irgendwie habe ich heute ein Brett vorm Kopf.
Ich habe eine Makro in einer gesonderten XLS Datei in das XL Start Verzeichnis gelegt. Nun habe ich in das Excel einen Menüpunkt mit meinem Makro aus dieser Datei hinterlegt.
Das funktioniert einwandfrei. Nur beim nächsten Excel Sta...
16.01.2010 11:02:49
Thread-ID: 1130434
13 Beiträge
Mit Makro eine neue Zeile einfügen
Richard

Hallo zusammen,
ich wollte über Makro eine neue Zeile einfügen lassen welche dann aber auch alle Formeln
der darüber liegenden Zeile übernimmt. Diese Funktion sollte dann aber auch immer wieder benutzt
werden können so das immer eine neue Zeile entsteht.
Könnt ihr mir vielleich...
21.01.2010 13:10:01
Thread-ID: 1131758
4 Beiträge
Datei mit Button starten
Michael

Hallo Leute,
ich habe eine Exceldatei namens "Test.xls" sowie ein AVIfile(Ferien.avi)auf CD-Rom gebrannt.Nun möchte ich nachdem ich Test.xls gestartet habe, mit einem Button in "Tabelle1" das Video starten.Hat jemand eine Idee wie der Code in dem Button aussehen muss ??
Danke im voraus.
11.04.2002 01:45:49
Thread-ID: 112282
3 Beiträge
Anzeige

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
3
6
4
1
3
5
12
3
2
3
4
2
6
6
2
18
4
2
8
1
3
6
6
1