Office: VBA : in einer Zeile ein Text, dann nichts mehr machen !!

Hallo Edgar,

hast recht, reicht in diesem Fall auch aus.
Hatte hasegoes Anfrage so verstanden, dass der Code aus einem anderen Sub heraus aufgerufen wird.
Und dann würde Exit Sub halt nicht reichen.
Hätte ich wohl aufmerksamer lesen sollen...

 

Hallo Achim,

um aus einem Makro herauszugehen brauchst Du immer Exit Sub!
Ich wüsste keine Anweisung, die mit End arbeitet ausser End Sub.
Ich bin aber gerne bereit, mich eines Besseren belehren zu lassen.

Code:

Und dann würde Exit Sub halt nicht reichen. 

Wenn ich eine Sub aus einer anderen heraus aufrufe, dann genügt das auch, da dann automatisch ins Ausgangsmakro zurückgesprungen wird.

Gruß

Edgar

 

Hallo Edgar,

Das beendet das Sub in dem Exit Sub steht, ja.

Einfach nur END innerhalb eines Sub, anstelle von Exit Sub.
Dann wird nicht nur das aktuelle Sub beendet, sondern alle.
Sprich wenn Du Deine Subs verschachtelst, und im 3. mit Exit Sub beendest, springt Excel wieder zurück ins zweite, direkt hinter den Aufruf des 3. und würde auch wieder ins erste springen, sobald das 2. abgearbeitet ist.

Wenn Du aber genau dieses verhindern willst, nämlich das dann überhaupt noch irgendein Code ausgeführt wird, dann nimmst Du END.

(Hoffe ich habe es verständlich formuliert)


Tscha, und genau so eine Problemstellung hatte ich (wohl fälschlich) verstanden.

 

Hallo Achim,

habe ich zur Kenntnis genommen.

@Andre,

habe mal ein bißchen an Deinem Rechnungsformular gebastelt:

Arbeitsblatt mit dem Namen 'Rechnung'
	F	G	H	I	J	K
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53				Warenwert NETTO :		€ -
54				+MWST 7% :		€ -
55				+MWST 19% :		€ -
56				Rechnungsendbetrag :		€ -
57

Zelle	Formel
K28	=WENN(I28="";0;I28*WENN(H28="";1;H28))
L28	=WENN(K28=0;"";WENN(G28="";"Steuerkennzeichen fehlt";""))
K29	=WENN(I29="";0;I29*WENN(H29="";1;H29))
L29	=WENN(K29=0;"";WENN(G29="";"Steuerkennzeichen fehlt";""))
K53	=SUMME(K28:K51)
K54	=SUMMENPRODUKT(($G$28:$G$51="E")*1;($K$28:$K$51))*19%
K55	=SUMMENPRODUKT(($G$28:$G$51="E")*1;($K$28:$K$51))*7%
K56	=SUMME(K53:K55)

Zelle	Gültigkeitstyp	Operator	Wert1	Wert2
G28	Liste		--;E;V
G29	Liste		--;E;V

<table><tr><td>Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg</td></tr></table>[/parsehtml]

Die Formate habe ich vergessen.

Arbeitsblatt mit dem Namen 'Rechnung'
	K
28
29

Zelle	Format	Wert
K28	_(€* #.##0,00_);_(€* (#.##0,00);;_(@_)	0
K29	_(€* #.##0,00_);_(€* (#.##0,00);;_(@_)	0
K53	_(€* #.##0,00_);_(€* (#.##0,00);_(€* "-"??_);_(@_)	0
K54	_(€* #.##0,00_);_(€* (#.##0,00);_(€* "-"??_);_(@_)	0

<table><tr><td>Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg</td></tr></table>[/parsehtml]


Gruß

Edgar