Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1052to1056
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
1052to1056
1052to1056
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro wird nicht ausgelöst

Makro wird nicht ausgelöst
23.02.2009 22:04:09
Werner
Hallo zusammen,
habe schon wieder ein Problem.Wenn in Zelle N11 die 1 steht (was durch eine Formel der Fall ist =WENN(B$7=D11;1;0) wird das Makro nicht ausgelöst. Erst wenn ich in die Entwiklungsumgebung gehe und es auslöse geht es. Woran könnte das liegen. Im Tabellenblatt habe ich unter Optionen bei Berechnen auf Automatisch gestellt, hilft aber nichts.

Sub ma1geez()
With Sheets("Gehälter")
If .Range("N11") = 1 Then
If MsgBox("soll die Erhöhung von " & " " & .Range("A11") & _
" wirklich übernommen werden?", vbYesNo) = vbYes Then
Range("R3") = .Range("Y2")
.Range("G11") = Sheets("Tabelle1").Range("E20")
ma1ü
Sheets("Tabelle1").Range("J14") = 0
Else
Sheets("Tabelle1").Range("J14") = 0
End If
End If
If .Range("O11") = 1 Then
If MsgBox("Bitte bestätigen Sie die Aktualisierung von" & " " & .Range("A11"), vbYesNo) _
= vbYes Then
.Range("R11") = Range("J11")
.Range("R3") = .Range("Y2")
ma1ü
Range("G11") = ""
Else
Range("G11") = ""
End If
End If
End With
End Sub


Gruß Werner

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro wird nicht ausgelöst
23.02.2009 22:07:45
Ramses
Hallo
In der ersten Sequenz fehlt ein Punkt davor
.Range("R3") = .Range("Y2")
Ausserdem, ... durch was soll das makro denn ausgelöst werden ausser manuell?
Wenn das automatisch gehen soll, dann muss das Makro in das Klassenmodul der Tabelle wo die Berechnung durchgeführt wird in das "Worksheet_Calculate" Ereignis
Gruss Rainer
AW: Makro wird nicht ausgelöst
23.02.2009 22:43:56
Werner
Hallo Rainer,
das Problem liegt darin, dass es sich um insgesamt 150 Makros handelt, d.h. ich habe diese in ein Modul geschrieben. Wenn ich alle in das Tabellenblatt Schreibe, hätte ich das Problem das ich 150x "Worksheet_Calculate" Schreiben müßte was ja logischerweise nicht geht.
Gruß Werner
Anzeige
AW: Makro wird nicht ausgelöst
23.02.2009 23:02:58
Werner
Hallo nochmal,
ich habe es mit folgenden Probiert:
Die Makros stehen in einen Modul und im Tabellenblatt habe ich folgendes stehen ( wobei in diesen Beispiel nur 25 Mitarbeiter stehen, was sich ja noch auf 150 erweitern würde.

Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Application.EnableEvents = False
ma1geez
ma2geez
ma3geez
ma4geez
ma5geez
ma6geez
ma7geez
ma8geez
ma9geez
ma10geez
ma11geez
ma12geez
ma13geez
ma14geez
ma15geez
ma16geez
ma17geez
ma18geez
ma19geez
ma20geez
ma21geez
ma22geez
ma23geez
ma24geez
ma25geez
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub


das Funktioniert zwar jedoch die Berechnung dauert sehr lange. Gibt es da noch eine andere Lösung?
Gruß Werner

Anzeige
AW: Makro wird nicht ausgelöst
23.02.2009 23:05:31
Ramses
Hallo
Kannst du die Mappe mal hochladen ?
So ein komplizierter Aufbau kann sicher vereinfacht werden
Gruss Rainer
AW: Makro wird nicht ausgelöst
23.02.2009 23:17:10
Gerd
Hallo Werner,
die Prozeduren auszulagern, ist vollkommen in Ordnung.
Ob es 150 sein müssen, ist eine andere Frage, die ich aber nicht weiter vertiefen will.
Rainer 's Ausführungen gehen, denke ich, in die richtige Richtung.
In deinem Code sprichtst Du drei verschiedene Tabellen an:
Range = ActiveSheet
.Range = Gehälter
Tabelle1
Bist Du dir darüber im Klaren?
Ansonsten wäre eine Beispielmappe mit den betroffenen Tabellen u. (nur) den betroffenen
Prozeduren, Worksheet_Calculate, malu u. dem gezeigten Code nicht schlecht.
Gruß Gerd
Anzeige
AW: Makro wird nicht ausgelöst
24.02.2009 09:32:24
Klaus-Dieter
Hallo Werner,
bei 150 Makros kann ich dir unbesehen sagen, dass da etwas falsch aufgebaut ist.
Viele Grüße Klaus-Dieter

Online-Excel

306 Forumthreads zu ähnlichen Themen

Makro: Mail wird nicht erzeugt
Ralf

Hallo,
das folgende Makro blokiert in der Zeile 'Set mailitem = outobj.createitem(0)'
Sub Mail_Stammdaten() Dim ob, mailitem As Object Set ob = CreateObject("outlook.application") Set mailitem = outobj.createitem(0) On Error Resume Next With mailitem .Subject = "Neuanlage in Decalog"...
17.09.2008 11:49:20
Thread-ID: 1010312
5 Beiträge
Anzeige
Inhalt von UF wird nicht angezeigt
UF

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...
26.09.2008 14:29:02
Thread-ID: 1012639
16 Beiträge
Nicht geschützte Zelle wird nach Makro gesperrt
Gesa

Hallo liebes Forum,
ich habe das Makro "automatische Zeilenhöhe bei verbunden Zellen" in einer anderen Datei verwendet - hier läuft es einwandfrei.
Bei der beigefügten Datei ist es immer so, dass wenn in geschützten Zellen (die von der Grundeinstellung nicht geschützt sind) etwas eingeg...
16.10.2008 13:40:48
Thread-ID: 1016850
5 Beiträge
Anzeige
Rechtschreibung: Pop-Up wird nicht mehr angezeigt
Norbert

Hallo,
nach dem Auswählen des Menüpunktes "Extras" - "Rechtschreibung", wird das zugehörige Pop-Up zur Auswahl der Korrekturvorschläge nicht mehr angezeigt.
Nach einem Klick auf die Schaltfläche "Rechtschreibung" ebenfalls nicht mehr.
Ich habe die möglichen Optionen zur Einstellung...
11.11.2008 11:22:22
Thread-ID: 1023480
3 Beiträge
langer Text wird nicht mehr angezeigt
u_hoernchen

Ich muss einen langen Text (ca. 1.500 Zeichen) in eine Excel-Zelle schreiben (geht leider nicht anders, also das bitte nicht in Frage stellen). Nun wird beim Ausdruck und bei der Bildschirmanzeige aber die letzte Zeile nicht mehr umgebrochen (Zeilenumbruch ist formatiert), in der Zelle steht ab...
05.01.2009 11:10:25
Thread-ID: 1036916
4 Beiträge
Makros werden nicht übertragen
Bernd


Hallo, liebe Excel-Freaks,
ich bitte Euch um Eure Hilfe. Nachstehendes Makro - das ich mit Hilfe dieses Forum erstellt habe - aktualisiert alle Blätter einer Abteilung mittels Sverweis und kopiert diese mit neuen Datei-Namen in ein Verzeichnis.
Leider kopiert das Makro dabei keine...
07.01.2009 13:21:00
Thread-ID: 1037519
2 Beiträge
Makros werden nicht übertragen
Bernd


Hallo, liebe Excel-Freaks,
ich bitte Euch um Eure Hilfe. Nachstehendes Makro - das ich mit Hilfe dieses Forum erstellt habe - aktualisiert alle Blätter einer Abteilung mittels Sverweis und kopiert diese mit neuen Datei-Namen in ein Verzeichnis.
Leider kopiert das Makro dabei keine...
07.01.2009 13:21:00
Thread-ID: 1037520
2 Beiträge
Makro wird nicht ausgelöst
werner

Hallo zusammen,
ich habe folgendes Makro geschrieben:
Private Sub Worksheet_Calculate() If Range("B6") = 1 Then Range("D4") = Range("D7") If Range("B6") = 2 Then Range("D4") = Range("D8") If Range("B6") = 3 Then Range("D4") = Range("D9") End If End If End If End Sub
Wenn in Zelle...
13.01.2009 21:37:00
Thread-ID: 1039394
11 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
4
1
15
4
4
2
3
1
1
10
4
1
5
2
3
2
7
3
5
5
2
2
13
1
1