Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
776to780
776to780
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

makro

Forumthread: makro

makro
04.07.2006 12:05:25
Claus
Hallo, ich habe mehrere Makros über den "aufzeichner" geschrieben. Jetzt möchte ich das diese abhängig von einem Feld aktiviert werden.
Z.B.: wenn A1=1 dann Makro1, wenn aber A1=2 dann Makro2, usw...
Kann man einfach mit einer "wenn" Formel ein Makro aktivieren.
Die Makros die ich geschrieben habe, müssen Felder in einer Tabelle kopieren und in einer anderen einfügen.
VIELEN DANK für Eure Hilfe!
Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: makro
04.07.2006 12:10:36
Mustafa
Hallo Claus,
NEIN man kann nicht über Formeln ein Makro aktivieren.
Dafür gibt es aber Ereignisse wie das Worksheet_Calculate oder Worksheet_Change.
Wenn du mehr hilfe benötigst dann meld dich wieder.
Viele Grüße aus Köln.
AW: makro
04.07.2006 12:26:58
Claus
Leider sind die Tabelle zu komplex um diese zu uploaden. Ist es für dieses Problem dringend erforderlich? Gibt es keine möglichkeit ein Makro mit einer wenn Formel zu aktivieren? Vielen Dank im Voraus!
Anzeige
Nein
04.07.2006 12:31:06
Mustafa
Mann kann kein Makro per Wenn Formel Starten.
Wie gesagt dafür gibt es andere sachen.
Wann sollen die Makros ablaufen?
Wenn das Blatt aktiviert wird, oder wenn der eintrag in einer bestimmten Zelle manuell geändert wird, oder wenn sich der Eintrag einer bestimmten Zelle durch eine Formel ändert?
Wenn du diese Fragen beantwortest kann ich evtl. weiterhelfen.
Viele Grüße aus Köln.
Anzeige
AW: Nein
04.07.2006 12:45:57
Claus
Ich beantworte deine Frage mit einem Beispiel
Zelle A1: =a2&a3 (Formel)
Zelle A2: variabel: von 1 bis 10, (wird manuell eingetragen)
Zelle A3: variabel: 12, 24 oder 36, (wird manuell eingetragen)
für jede Variation der Zelle A1 gibt es ein Makro. Z.B. wenn A1:
=112 dann bei Knopfdruck "weiter" wir Makro1 ausgeführt
=124 dann bei Knopfdruck "weiter" wir Makro2 ausgeführt
=236 dann bei Knopfdruck "weiter" wir Makro6 ausgeführt
ich hoffe ich konnte dir somit weiterhelfen.
VIELEN DANK!
Anzeige
AW: makro
04.07.2006 12:35:33
Claus
Besser wäre es, wenn ich auf einem Knopf drücke und dann bei Zellenwert A1=1 makro1 und bei Zellenwert A1=2 makro2 ausgeführt wird. Vielen Dank!
AW: makro
04.07.2006 12:41:59
Mustafa
Dann füge einen Commandbutton in deine Tabelle ein, dann rechtsklickdrauf und Code Anzeigen klicken.
Dort hinein schreibst du dann:
If Range("A1")=1 then call Dein 1.Makro
if Range("A1")=2 then call Dein 2.Makro
Rückmeldung obs hilft wäre nett.
Viele Grüße aus Köln.
Anzeige
AW: makro
04.07.2006 12:44:52
Hoffi
Hallo Claus,
füge einen Button in die Tabelle und hinterlege folgenden Code:

Sub CommandButton1_Click()
Dim rng As Range
Set rng = Range("A1")
Select Case rng.Value
Case Is = 1
MsgBox "Makro 1 wird gestartet" 'hier den aufruf für Makro 1 z.Bsp. Call Makro1
Case Is = 2
MsgBox "Makro 2 wird gestartet" 'hier den aufruf für Makro 2 z.Bsp. Call Makro2
Case Else
MsgBox "nix passiert" 'hier hinterlegen was passiert wenn nicht 1 oder 2 drinn steht
End Select
End Sub

Der Code ist beliebig erweiterbar.
Grüße
Hoffi
P.S. Rückmeldung wäre nett...
Anzeige
AW: makro
04.07.2006 13:45:56
Claus
Was muss ich bei 'hier den aufruf für Makro 1 z.Bsp. Call Makro1 eintragen? Den Name oder die ganze funktion? Am besten wäre wenn ich nur den name z.B. option3kopierenopen
Also wenn das der Name ist muss ich 'option3kopierenopen eintragen oder 'option3kopierenopen() (ich habe es mit diesen 2 Varianten probiert und es hat nicht funktioniert) oder muss ich die ganzen Text des Makros schreiben, also
' 

Sub option2kopierenm()
' option2kopierenm Makro
' Makro am 04.07.2006 von Freiwald aufgezeichnet
Rows("15:15").Select
Selection.Copy
Workbooks.Open Filename:= _
"\Temp\makros\probe einfügen.xls"
Rows("18:18").Select
ActiveSheet.Paste
Range("A19").Select
Windows("probe eingabe.xls").Activate
Application.CutCopyMode = False
Range("B15").Select
End Sub

Vielen Dank!
Anzeige
AW: makro
04.07.2006 13:47:55
Mustafa
Du musst call option3kopierenopen eintragen.
Ohne die Klammern.
Viele Grüße aus Köln.
AW: makro
04.07.2006 13:54:23
Claus
Wäre also folgenderweise korrekt?

Sub CommandButton1_Click()
Dim rng As Range
Set rng = Range("A1")
Select Case rng.Value
Case Is = 1
MsgBox "Makro 1 wird gestartet" 'Call option1kopieren
Case Is = 2
MsgBox "Makro 2 wird gestartet" 'call option3kopierenopen
Case Else
MsgBox "nix passiert" 'hier hinterlegen was passiert wenn nicht 1 oder 2 drinn steht
End Select
End Sub

Anzeige
AW: makro
04.07.2006 14:00:05
Claus
Wäre also folgenderweise korrekt?

Sub CommandButton1_Click()
Dim rng As Range
Set rng = Range("A1")
Select Case rng.Value
Case Is = 1
MsgBox "Makro 1 wird gestartet" 'Call option1kopieren
Case Is = 2
MsgBox "Makro 2 wird gestartet" 'call option3kopierenopen
Case Else
MsgBox "nix passiert" 'hier hinterlegen was passiert wenn nicht 1 oder 2 drinn steht
End Select
End Sub

Anzeige
AW: makro
04.07.2006 14:10:56
Hoffi
Hallo Claus,
so sollte es gehen:

Sub CommandButton1_Click()
Dim rng As Range
Set rng = Range("A1")
Select Case rng.Value
Case Is = 1
Call option1kopieren
Case Is = 2
Call option3kopierenopen
Case Else
MsgBox "nix passiert" 'hier hinterlegen was passiert wenn nicht 1 oder 2 drinn steht
End Select
End Sub

Anzeige
AW: makro
05.07.2006 10:54:58
Claus
Hallo, vielen dank für Eure Hilfe. Leider funktioniert die Makro Programierung wie oben beschrieben nicht. Also bei diesem Makro kommt folgender Fehler "Fehler beim Kompilieren: 

Sub oder 


Function nicht definiert"


Sub CommandButton1_Click()
Dim rng As Range
Set rng = Range("A1")
Select Case rng.Value
Case Is = 1
Call option1kopieren
Case Is = 2
Call option3kopierenopen
Case Else
MsgBox "nix passiert" 'hier hinterlegen was passiert wenn nicht 1 oder 2 drinn steht
End Select
End Sub



VIELEN DANK!!!
Anzeige
AW: makro
06.07.2006 03:18:26
Gerd
Hallo Claus,
des geht schon.
Das erste Makro ins Modul der Userform oder wenn der Commandbutton in der Tabelle ist,
ins Modul zu dieser Tabelle stellen.
Die beiden weitern Makros auch dort hin oder in ein allgemeines Modul.

Private Sub CommandButton1_Click()
Dim rng As Range
Set rng = Range("A1")
Select Case rng.Value
Case Is = 1
Call option1kopieren
Case Is = 2
Call option3kopierenopen
Case Else
MsgBox "nix passiert" 'hier hinterlegen was passiert wenn nicht 1 oder 2 drinn steht
End Select
End Sub

Sub option1kopieren()
MsgBox " Bin in option1kopieren"
End Sub
Sub option3kopierenopen()
MsgBox " Bin in option3kopierenopen"
End Sub
Gruß
Gerd
Anzeige

Forumthreads zu verwandten Themen

Parallel laufende Makros???
Steffen
Hallo,
meine alten VBA-Programme laufen unter Excel 2002 nicht mehr ordentlich. So habe ich z.B. folgendes Problem:
Das Drücken eines Buttons auf Tabelle 1 aktiviert Tabelle 2. Nun löst sowohl das Aktivieren von Tabelle 2 als auch das Deaktivieren von Tabelle 1 jeweils ein Makro aus (über die...
15.01.2004 22:24:00
Thread-ID: 364743
3 Beiträge
Makro
winne

Hallo Allemiteinander,
ich habe von "Smart Tools" folgendes Makro instaliert:
Voll automatischer Tabellenschutz per Mausklick
Versionen: Excel 97, 2000, 2002/XP und 2003
Wenn Sie eine Tabelle so einrichten möchten, dass andere Anwender möglicht komfortabel damit arbeiten können,...
23.03.2005 18:49:38
Thread-ID: 589816
22 Beiträge
Anzeige
Makro aktivieren über Add In!?
Andre

Hallo alle zusammen,
Ich habe folgendes Makro, dass eine Kopie auf Tabellenblatt "Kopie" erstellt.
Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets("Kopie").Select Rows("4:5").Select ActiveSheet.Unprotect Selection.Insert Shift:=xlDown Range("A4").Select Sheets("Schichtberic...
24.03.2005 09:35:07
Thread-ID: 589985
8 Beiträge
Anzeige
Abfrage Makros aktivieren ("Sicherheit mittel")
bernhardtautz

Hallo Experten,
ich habe bisher immer mit Office 2003 gearbeitet. Für mich war die Makro-Sicherheitseinstellung "mittel" recht hilfreich. Beim Öffnen von Excel wird man dann gefragt, ob Makros aktiviert werden sollen oder nicht.
Das ist bei meiner Anwendung sehr nützlich. Normalerweise...
19.03.2015 23:13:22
Thread-ID: 1416066
2 Beiträge
Symbolleisten / Datei-Schließen-Makro
Herbstnächte

Hallo ihr Lieben
ich hab da nochmal drei wichtige Fragen auf die ich hoffe, von euch da eine gute Antwort bekommen zu können.
ich bin zur zeit an einer Excel-Tabelle für die Arbeit beschäftigt. Ich habe nun drei Fragen dazu.
#1: wie kann ich es anstellen, dass ich eine symbolleiste d...
15.06.2004 19:05:05
Thread-ID: 441742
2 Beiträge
Anzeige
Symbolleisten + Makro
Stefan B.
Hallo ihr Lieben
ich hab da nochmal drei wichtige Fragen auf die ich hoffe, von euch da eine gute Antwort bekommen zu können.
ich bin zur zeit an einer Excel-Tabelle für die Arbeit beschäftigt. Ich habe nun drei Fragen dazu.
#1: wie kann ich es anstellen, dass ich eine symbolleiste die i...
15.06.2004 23:00:36
Thread-ID: 441800
1 Beitrag
Makro-Deaktivierung aus VBA heraus
Sascha
Hallo,
ich habe ein kleines Problem beim Öffnen von Dateien aus VBA heraus. In der zu öffnenden Datei befinden sich verschiedene Prozeduren die bei bestimmten Ereignissen (tabelle aktivieren, workbook open usw.) ausgeführt werden. Da ich diese Datei aber aus einer anderen datei heraus bearbeiten...
21.01.2004 16:56:46
Thread-ID: 368192
2 Beiträge
Stapelverarbeitung Artikelnummern (EAN)
JoWE
Hallo Zusammen,
ich wünsche allen ein gesundes neues Jahr und einen guten Start in 2022.
Ich benötige mal wieder Euere Unterstützung bzw. die des Kollegen UweD, da er mir bei diesem Thema bereits sehr geholfen hat.
Aktuell erstelle ich automatisiert Produktdatenblätter welche dann als *...
11.01.2022 10:20:08
Thread-ID: 1863970
15 Beiträge
makros - zellbezüge
kalle

Rechnung schreiben aus einer excel-tabelle
hallo
versuche gerade verzweifelt ein makro zu schreiben das mir erlaubt rechnungen aus der tabelle mit den auftragsstammdaten zu generieren das heißt in diesem fall - ich möchte die auftragsnummer in der stammdatentabelle anklicken (aktivieren...
09.01.2005 15:57:45
Thread-ID: 544101
7 Beiträge
Bedingte Formatierung funktioniert
Harald

Hallo Freunde,
ich habe folgendes Problem:
Mittels eines Makros lasse ich eine Tabelle mit Daten füllen. Eine Spalte der Tabelle habe ich per bedingter Formatierung mit einer "vierstufigen Ampel" ausgestattet.
Wenn die Daten nun eingetragen sind, wird die bedingte Formatierung nicht...
14.01.2008 11:29:38
Thread-ID: 941494
2 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum