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

Auslösende Sub ermitteln

Forumthread: Auslösende Sub ermitteln

Auslösende Sub ermitteln
Roland
Hallo VBA Profis
Gibt es eine Möglichkeit in einer unter Sub zu ermitteln ob zB. die auslösende Sub am laufen ist?
Beispiel:
In Workbook_Open löse ich eine Sub in einem normalen Modul aus. In dieser Sub darf aber eine Prozedur nicht ausgeführt werden, wenn die Datei geöffnet wird. Im normalen Betrieb wird diese Prozedur aber gebraucht.
Wenn ich jetzt eine If Abfrage erstellen könnte, die überprüfen kann ob Workbook_Open am laufen ist, müsste ich nicht mit Public-String arbeiten oder die Sub zweimal schreiben. (1x für Workbook:Open und 1x für den normalen Betrieb.
Besten Dank für eure Informationen
Gruss
Roland
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Übergib doch einen optionalen Parameter
17.06.2010 13:14:00
NoNet
Hallo Roland,
das kannst Du doch einfach per optionalem Parameter steuern :
'Dieser Code in Klassenmodul "DieseArbeitsmappe" :
Private Sub Workbook_Open()
DeinMakro False
End Sub
'Dieser Code in ein allgemeines Modul, z.B: "Modul1" :
Sub DeinMakro(Optional bolStatus As Boolean = True)
If bolStatus Then
'Hier Deine Befehle
MsgBox "Ohne Parameter"
Else
'Hier andere Befehle
MsgBox "Mit Parameter FALSE"
End If
End Sub
Sub Makro1()
DeinMakro 'Hier wird nach wie vor kein Parameter übergeben !
End Sub
Gruß, NoNet
Anzeige
AW: Übergib doch einen optionalen Parameter
17.06.2010 18:50:22
Roland
Hallo zusammen
Besten Dank für die Tips. Funktioniert einwandfrei. Man lernt doch immer wieder etwas neues.
Gruss
Roland
rechts überholt ;-(
17.06.2010 13:20:59
Rudi
Hallo,
war auch meine Idee, mit leichter Abwandlung. 
Sub DeinMakro(Optional blnOpen As Boolean = False)
If Not blnOpen Then
'Prozedur die bei Open nicht ausgeführt wird
End If
'Rest des Makros
End Sub
Gruß
Rudi
Anzeige
AW: rechts überholt ;-(
17.06.2010 13:22:35
Immer
_oT = "ohne Text"
Immer die Sontagsfahrer auf der linken Seite *fg*
17.06.2010 13:23:11
NoNet
_oT = "ohne Text"
*fg*=fiele grüße ? owT
17.06.2010 13:25:06
Rudi
Anzeige
nee: "Foll Gail" ;-) _oT
17.06.2010 13:26:59
NoNet
_oT
;

Forumthreads zu verwandten Themen

n ermitteln
Engin

Hallo zusammen,
ich hab wieder ein Problem und zwar :
Ich hab eine Datenreihe weiß aber nicht bis wohin es geht und möchte per code ermitteln bis welcher Zelle es geht.
also z.B ich habe eine Schleife : For i= 1 to n ( und n soll dann Zelle sein)
Ich hoffe ich habe mich verst...
08.08.2008 10:48:16
Thread-ID: 1000211
3 Beiträge
Anzeige
Alter ermitteln
Peter

Hallo,
ich habe ein Tabelle mit Personendaten u.a. auch die Geburtsdaten. Nun möchte ich in einer Spalte das aktuelle Alter in Jahren errechnen.
Wie mache ich das das?
mfg
Peter
14.08.2008 12:18:00
Thread-ID: 1001811
3 Beiträge
ersten nicht zutreffenden Wert ermitteln
Wladimir

Hallo zusammen,
ich bin neu hier, aber bereits habe ein paar Eure Tipps geholt und jetzt hoffe, dass ich mit Eurer Hilfe mein Problem löse.ich habe im Excel eine Zeile mit den Werten z. B.:in A1 steht 6B1 - KC1 - KD1 - 5E1 - KF1 - UUsw.Also:6 K K 5 K U ...Mit der Formel:=Vergleich("K";a1:z1...
28.08.2008 09:37:37
Thread-ID: 1005299
24 Beiträge
Standardabweichung ermitteln für bestehende Tabell
Lauren

Hallo zusammne,
ich mal wieder :)
jetzt kam noch der Wunsch auf, dass man eine Standardabweichung ermittelt haben möchte zu den ermittelten Werten.
Die formel für Standartabweichung habe ich bereits im Kopf aber wie setzte ich folgendes um:
- ich habe in Spalte E die Werte welch...
01.09.2008 12:58:45
Thread-ID: 1006407
15 Beiträge
Anzeige
Variablenname der kleinsten Variable ermitteln
uli


Hallo Experten,
mit folgendem Code ermittel ich die kleinste von mehreren Variablen:
t = 5
s = 6
p = Application.WorksheetFunction.Min(t, s)
Könnt Ihr mir sagen, über welchen Befehl ich jetzt auch den Variablennamen ermitteln kann, der zu der kleinsten Variable gehört?...
03.09.2008 11:29:36
Thread-ID: 1007051
5 Beiträge
Zellinhalt aufgrund Sheetname und Zelle ermitteln
Peter

Guten Tag
Wahrscheinlich stehe ich mir selbst auf der Leitung.
Mit Hilfe der String-Variablen strTab (enhaltend der Worksheet-Name) und strZelle (enthaltend die Zelladresse, z.B. A3) möchte ich den Wert der entsprechenden Zelle (Text) ermitteln und der Variable strContent zuweisen.
...
11.09.2008 10:31:00
Thread-ID: 1009001
3 Beiträge
Anzeige
zeile ermitteln aus : A10:C26
reinhardt

Hallo.
In A1 stehen Range-Werte in folgender Form: A10:C26, oder BC150:M299
Ich möchte alle Zeilen oberhalb von A10 (1 ...9) oder BC 150 (1...149) ausblenden.
Dazu brauche ich einmal Hilfe bei einer Formel, die mir den Wert 9 aus A10:C26 oder
den Wert 149 aus BC150:M299 erre...
19.09.2008 09:22:00
Thread-ID: 1010909
2 Beiträge
Buchstabe Spalte ermitteln
SteffenS

Hallo Zusammen,
wir ermittle ich aus:
Cells(1, Columns.Count).End(xlToLeft).Column
die Spalte nicht als Zahl, sondern als Buchstabe z.B.:
Spalte 2 = B
Danke im Voraus.
MFG
Steffen Schmerler
22.09.2008 12:15:25
Thread-ID: 1011441
5 Beiträge
Anzeige
Maximum ermitteln mit VBA
Alifa

Hallo,
ich habe eine Funktion und möchte mit einem Makro deren maximalen Wert ermitteln(x=1 To 3)
F(x)=2*x*sqr(x^2-6*x+10)+(2*x-6)*sqr(9+x^2). Das ist zunächst meine letzte Frage!
Gruß, Alifa
22.09.2008 17:20:12
Thread-ID: 1011530
4 Beiträge
zeile ermitteln, werte prüfen
sonja

hallo ihr lieben,
ich hoffe ihr könnt mir auch dieses mal wieder helfen.
ich möchte in einer zeile (die sich ständig ändert letzte beschriebene zeile minus 6)
in jeder spalte prüfen ob der wert kleiner als ... ist, wenn dies zutrifft sollte sich eine userform
mit einem hinweis...
10.10.2008 16:55:00
Thread-ID: 1015638
11 Beiträge
Spaltenreferenz ermitteln
Boris

Hallo,
wie löse ich folgendes, möglichst kurz: =SUMPRODUCT((INDIRECT(D2)="Blubb")*1)
(der Sinn dieser Formel sei hier dahingestellt, nur soviel: in D2 steht ein Bereich als Text, der über INDIRECT in einen Bezug umgewandelt wird)
In dieser Formel möchte ich innerhalb von INDIRECT di...
30.10.2008 14:37:00
Thread-ID: 1020613
8 Beiträge
n ermitteln
derwich

Hallo zusammen,
Wie kann ich in einer Datenreihe n( Anzahl der Zellen) bis zudem wert 10 ermitteln?
Danke schon aml im Voraus
05.11.2008 10:13:36
Thread-ID: 1021777
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige