Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
896to900
896to900
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro starten nur durch Markieren

Forumthread: Makro starten nur durch Markieren

Makro starten nur durch Markieren
16.08.2007 16:41:00
micha
Hallo Excel - Experten,
gibt es eine Möglichkeit ein Makro zu starten, (Inputbox) allein dadurch, das der User eine Zelle markiert. Ich habe ein Tabellenblatt in dem Mitarbeiter mehrere Eingaben machen müssen. Wenn die Zelle K1 ausgewählt wird soll das Makro starten.
Sicher ist es ganz einfach (oder es geht garnicht).
viele Grüße
Micha

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro starten nur durch Markieren
16.08.2007 16:50:00
Hajo_Zi
Hallo Micha,
benutze die Aktion unter der Tabelle
pre>
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
' Dein Makro
End If
End Sub




Anzeige
AW: Makro starten nur durch Markieren
16.08.2007 17:09:11
micha
Hallo Hajo,
danke für die sch
nelle Antwort, aber es funktioniert leider nicht!
Ich habe hier mal das Makro eingefügt, vieleicht mache ich ja was falsch.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If TargetAdress = "$K$1" Then
Auswahl = InputBox("SUBUNTERNEHMER" _
& vbCrLf & "1 = MRS" _
& vbCrLf & "2 = SUS" _
& vbCrLf & "3 = RAD" _
& vbCrLf & "4 = RET", "Auswahl der SUB", "")
If Auswahl = 1 Then
Range("B1").Select
Range("B1").Value = "MRS"
End If
If Auswahl = 2 Then
Range("B1").Select
Range("B1").Value = "SUS"
End If
If Auswahl = 3 Then
Range("B1").Select
Range("B1").Value = "RAD"
End If
If Auswahl = 4 Then
Range("B1").Select
Range("B1").Value = "RET"
End If
End If
End Sub


DANKE nochmals
Gruß Micha

Anzeige
AW: Makro starten nur durch Markieren
16.08.2007 17:42:00
Hajo_Zi
Hallo Micha,
warum gglaubst Du habe ich Code in meinen Beitrag kopiert?
Wenn man geposteten Code kopiert, macht man keine Schreibfehler in dem Teil.

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$K$1" Then
Dim Auswahl
Auswahl = InputBox("SUBUNTERNEHMER" _
& vbCrLf & "1 = MRS" _
& vbCrLf & "2 = SUS" _
& vbCrLf & "3 = RAD" _
& vbCrLf & "4 = RET", "Auswahl der SUB", "")
If Auswahl = 1 Then
Range("B1") = "MRS"
ElseIf Auswahl = 2 Then
Range("B1") = "SUS"
ElseIf Auswahl = 3 Then
Range("B1") = "RAD"
ElseIf Auswahl = 4 Then
Range("B1") = "RET"
End If
End If
End Sub



Gruß Hajo
Anzeige
AW: Makro starten nur durch Markieren
16.08.2007 17:26:00
Peter
Hallo Micha,
so könnte es gehen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Auswahl  As Integer
If Target.Row = 1 And Target.Column = 11 Then
Auswahl = InputBox("SUBUNTERNEHMER" _
& vbCrLf & "1 = MRS" _
& vbCrLf & "2 = SUS" _
& vbCrLf & "3 = RAD" _
& vbCrLf & "4 = RET", "Auswahl der SUB", "")
Select Case Auswahl
Case 1: Range("B1").Value = "MRS"
Case 2: Range("B1").Value = "SUS"
Case 3: Range("B1").Value = "RAD"
Case 4: Range("B1").Value = "RET"
Case Else: Range("B1").Value = ""
End Select
End If
End Sub


Gruß Peter

Anzeige
AW: Korrektur
16.08.2007 17:34:00
Peter
Hallo Micha,
um auch den Abbrechen Button in der InputBox zu berücksichtigen, lieber so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Auswahl  As String
If Target.Row = 1 And Target.Column = 11 Then
Auswahl = InputBox("SUBUNTERNEHMER" _
& vbCrLf & "1 = MRS" _
& vbCrLf & "2 = SUS" _
& vbCrLf & "3 = RAD" _
& vbCrLf & "4 = RET", "Auswahl der SUB", "")
Select Case Auswahl
Case "1": Range("B1").Value = "MRS"
Case "2": Range("B1").Value = "SUS"
Case "3": Range("B1").Value = "RAD"
Case "4": Range("B1").Value = "RET"
Case Else: Range("B1").Value = ""
End Select
End If
End Sub


Gruß Peter

Anzeige
AW: Makro starten nur durch Markieren
16.08.2007 18:01:00
micha
Hallo Peter,
das Makro startet, die Box öffnet sich, aber dann kommt ein Fehlermeldung: Laufzeitfehler 13 - Typen unverträglich. Aber der Ansatz ist sehr gut. Ich teste noch ein bischen. Kann mich aber leider morgen erst wieder melden. - FEIERABEND!!!
Gruß und DANKE Micha

AW: Makro starten nur durch Markieren
16.08.2007 18:07:00
Peter
Hallo Mich,
unter Excel 2000 getestet: https://www.herber.de/bbs/user/45136.xls
Gruß Peter

Anzeige
AW: Makro starten nur durch Markieren
17.08.2007 07:51:00
micha
Hallo Peter,
ja es funktioniert - habe es gerade getestet.
Wer weiß, was ich da gestern gemacht habe?
Also: VIELEN DANK! Gruß Micha
;

Forumthreads zu verwandten Themen

AW: Excel Makro Starten
Matty

Hallo nochmal....
Was ist an meiner Variante falsch?
Ich habe die Dateinamen als String definiert und in der Schleife den String aufgerufen. Was ist an dem Aufruf Application.Run falsch bzw was muss ich anders formulieren, wenn ich möchte dass die dateien entsprechend der Schleife durch...
08.08.2008 07:42:54
Thread-ID: 1000149
2 Beiträge
Makro starten
Christian

Gibt es einen Weg wie man ein Makro durch einen einfachen oder doppelklick auf eine Zelle innerhalb eines Blattes startet?
Per hyperlink kann man keine Makros starten und ein entsprechendes Ereignis innerhalb des Blattcodes scheint es auch nicht zu geben.
Gruß Christian
27.08.2008 14:11:00
Thread-ID: 1005084
5 Beiträge
Anzeige
Makro startet nicht
Peter

Hallo!
Ich habe hier im Forum einen Code entdeckt der genau das bewirkt was ich brauche. Nur leider startet das Makro nicht. Eine Fehlermeldung "Fehler beim Kompilieren. Außerhalb einer Prozedur ungültig" beendet den Vorgang noch bevor er wirklich gestartet wurde.
Ich habe versucht, den...
10.09.2008 23:19:36
Thread-ID: 1008947
5 Beiträge
Tabellenblatt wählen -> Makro startet
Gordon

Moin,
möchte gerne, dass ein Makro startet, wenn das Tabellenblatt "Tabelle1" selktiert wird. Ist das möglich, und wenn ja, wie hat dieser Code auszusehen? Der muss doch dann bestimmt in "dieseArbeitsmappe"?
Danke schon mal für die Hilfe....
Gruß
Gordon
18.09.2008 19:10:00
Thread-ID: 1010839
4 Beiträge
Anzeige
Nach erfolgter Eingabe in Zelle makro starten
Frank

Hallo Excel-Experten!
Dank eurer Hilfe oder durch den Makrorecorder habe ich in VBA schon einiges umsetzen können und bilde mir ein, dass es mich weiter bringt. Dafür schon mal Danke!!! Durch letzteren lies ich mir ein Makro zur Formatierung eines bestimmten Bereiches aufzeichnen. Dieses Ma...
24.09.2008 20:58:00
Thread-ID: 1012165
3 Beiträge
Makro stürtzt bei mehrfacher Wiederholung ab
Felix

Hey Leute (VBA Profis),
kämpfe jetzt schon seit einiger Zeit mit meinem Makro herum.... Bei erstmaliger Anwendung funktioniert es auch relativ gut ..Wunder soll es geben.. wird das Makro jedoch ein zweites Mal aktiviert, so kommt es zu einem total Absturz.
Das Makro bleibt meistens a...
07.10.2008 11:28:00
Thread-ID: 1014664
4 Beiträge
Makro starten nach Auswahl über Pivot Schaltfläche
Martin

Hallo zusammen,
wie kann ich automatisch ein Makro starten, nachdem ich in einem Pivotdiagramm ein bestimmtes Schaltflächenfeld betätigt habe.
In meiner Datei werden die Pivotdaten entsprechend einer Auswahlliste in einem Schaltflächenfeld selektiert und angezeigt. Da mir die Formatier...
16.10.2008 20:14:19
Thread-ID: 1016980
2 Beiträge
Anzeige
makro startet nicht
Rolf

Hallo Leute!
Ein rätzelhaftes versagen!
makro will nicht starten!
Private Sub Worksheet_Calculate() Application.EnableEvents = False If Range("A1").FormulaLocal > "" Then Range("A2").FormulaLocal = "=WECHSELN(A1;"","";""."")*1" If Range("A2") >= 10 Then Call Filterung End If...
18.10.2008 12:11:01
Thread-ID: 1017318
8 Beiträge
Anzeige
Symbolleisten und nur mit Makro starten
Arnold

Hallo,
habe von Excel 2003 auf excel 2007 gewechselt.
In excel 2003 klappt das Unterdrücken der Symbolleisten und start im vollbildmodus einwandfrei.
In Excel 2007 klappt das zwar auch, aber dann öffnen alle Mappen in Excel 2007 im vollbild und ohne Symbolleisten.
Meine Frage al...
01.12.2008 11:59:00
Thread-ID: 1029207
6 Beiträge
Über Zelle das Makro starten
derwich

Hallo Leute,
Ich habe ein Problem und zwar wie kann umsetzen:
wenn in Tabelle 2 in Zelle C5 der Wert 1 ist soll er mir aus der Tabelle3 die Werte von A4 bis A20 kopieren und in Tabelle1 in C4 bis C20 einfügen.
Danke schonmal im Voraus
10.12.2008 08:50:39
Thread-ID: 1031567
2 Beiträge
aus comboBox Makro starten?
KLausi

Hallo Excelfreunde,
habe eine combobox erstellt, nun habe ich ein Makro mit dem der Spezialfilter aktiviert wird und das Tab
beschreiben soll.
Nun gehe ich auf Code anzeigen
Private Sub ComboBox1_Change() Filtern End Sub
Filtern ist das Makro was mir nur Fehlermeldungen...
12.12.2008 18:49:00
Thread-ID: 1032506
3 Beiträge
Makro starten
Hans

Hallo Leute,
über ein makro lasse ich mehrere andere makros nacheinander starten, nun hab ich das problem das der zellwert einer zelle darüber entscheident ist welches makro ausgeführt werden soll, das funktioniert aber leider nicht, ich hoffe einer von euch kann mir weiterhelfen. hier der...
12.12.2008 22:13:31
Thread-ID: 1032532
2 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