Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 22:28:14
Formel Suche nur genauen Wert ausgeben
10.05.2024 19:12:28
Suche Formel für Monatsberechnung
10.05.2024 18:20:03
Status/Typ-Werte automatisch setzen in Abhängigkeit
10.05.2024 16:34:03
Excel auf Smartphone: Vorsicht beim Wischen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1040to1044
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
1040to1044
1040to1044
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
26.01.2009 06:07:00
werner
Hallo zusammen,
woran könnte es liegen das das Makro nicht ausgelöst wird, wenn in Zelle N15 eine 1 steht (durch eine Formel)?
Gruß Werner

Sub ma5geez()
Application.EnableEvents = False
With Sheets("Gehälter")
If .Range("N15") = 1 Then
If MsgBox("soll die Erhöhung von " & .Range("A15") & _
" wirklich übernommen werden?", vbYesNo) = vbYes Then
Sheets("Gehälter").Range("R3") = .Range("P7")
.Range("G15") = Sheets("Tabelle5").Range("E20")
ma5ü
Sheets("Tabelle5").Range("J14") = 0
Else
Sheets("Tabelle5").Range("J14") = 0
End If
End If
If .Range("O15") = 1 Then
If MsgBox("Bitte bestätigen Sie die Aktualisierung von" & .Range("A15"), vbYesNo) =  _
vbYes Then
Sheets("Gehälter").Range("R15") = Range("J15")
Sheets("Gehälter").Range("R3") = .Range("Y2")
ma5ü
Range("G15") = ""
Else
Range("G15") = ""
End If
End If
End With
Application.EnableEvents = True
End Sub


4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro wird nicht ausgelöst
26.01.2009 08:00:00
Dirk
Hallo Werner
Versuch mal so:

Sub ma5geez()
Application.EnableEvents = False
With Sheets("Gehälter")
If .Range("N15") = 1 Then
If MsgBox("soll die Erhöhung von " & .Range("A15") & " wirklich übernommen werden?", _
vbYesNo) = vbYes Then
.Range("R3") = .Range("P7")
.Range("G15") = Sheets("Tabelle5").Range("E20")
'ma5ü
End If
End If
Sheets("Tabelle5").Range("J14") = 0
If .Range("O15") = 1 Then
If MsgBox("Bitte bestätigen Sie die Aktualisierung von" & .Range("A15"), vbYesNo) =  _
vbYes Then
.Range("R15") = .Range("J15")
.Range("R3") = .Range("Y2")
'ma5ü
End If
.Range("G15") = ""
End If
End With
Application.EnableEvents = True
End Sub


Das "ma5ü" hab ich mal auskommentiert, da ich nicht weiß, was das sein soll (Sub?). Falls Du damit ein anderes Makro aufrufen willst, dann schreib dort Call ma5ü.
Zudem würde ich auf Umlaute (ä, ö, ü) verzichten, da VBA Englisch spricht und es in der englischen Sprache keine Umlaute gibt.
GreeTz Dirk

Anzeige
AW: Makro wird nicht ausgelöst
26.01.2009 18:49:00
werner
Hallo,
ich habe jetzt folgende Lösung: die Makros Sub ma1geez, Sub ma2geez...........das geht bis 175 habe ich in einen Modul und in der Tabelle habe ich jetzt folgendes Makro:
Option Explicit

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


das Funktioniert so. Aber noch eine Frage : Wenn ich bis 175 gehe, was ja notwendig wäre, wäre das ganze sehr lange. Gibt es da vielleicht eine kürzere Möglichkeit ?
Gruß Werner

Anzeige
AW: Makro wird nicht ausgelöst
26.01.2009 19:48:42
werner
Hallo nochmal,
was ich gerade schon geschrieben habe, habe ich probiert und ich habe mich wieder mal zu früh gefreut, denn wenn ich mehrere Makros reinnehme (Ich meine ma1geez,ma2geez....) funktioniert das Makro zwar aber der Biltschirm Flimmert wieder mal, und das nicht wenig. Wie kann ich das Abstellen?
Gruß Werner
AW: Makro wird nicht ausgelöst
26.01.2009 08:22:42
Tino
Hallo,
habe Dein Makro jetzt nicht getestet.
Es wird nicht ausgelöst, weil ma5geez kein Eventmakro ist.
Du musst in Deiner Tabelle wahrscheinlich dies einfügen.

Private Sub Worksheet_Calculate()
Call ma5geez
End Sub


Wobei ma5geez am besten in einem Modul aufgehoben währe.
Gruß Tino

Anzeige

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
1
6
5
2
3
2
7
3
5
5
2
2
13
1
1