Das Archiv des Excel-Forums

If then else klappt nicht - stehe auf dem Schlauch

Bild

Betrifft: If then else klappt nicht - stehe auf dem Schlauch
von: Elmar Steigenberger

Geschrieben am: 22.09.2003 17:22:19

Hallo Ihr lieben Helfer und Helferinnen,

folgendes Problem:

Ich möchte verhindern dass ein Makro auf einem falschen Blatt ausgeführt wird.
Außerdem darf das Makro nur in bestimmten Spalten ausgeführt werden.

Wenn es das falsche Blatt ist, dann soll Excel anbieten auf das Blatt zu wechseln und bei ja das tun dann aus dem Makro raus.

So sieht der Makro aus:


Sub Zahlungerhalten()
If ActiveSheet.Name <> "Za-Eg" Then
Antwort = MsgBox("Diese Schaltfläche funktioniert nur auf dem Blatt Zahlungseingänge." + RT2 + "Auf diesem Blatt können Sie ihn nicht anwenden!" + RT2 + "Soll auf das Blatt Zahlungseingänge gewechselt werden?", vbYesNo)
ElseIf Antwort = vbNo Then
Exit Sub
Else
Sheets("Za-Eg").Select: Exit Sub
End If
AktuelleSpalte = ActiveCell.Column
If AktuelleSpalte < 26 Or Int((AktuelleSpalte - 22) / 4) <> (AktuelleSpalte - 22) / 4 Then MsgBox ("Diese Schaltfäche funktioniert nur in den Summenspalte, nicht in den Spalten der Miet-, Nebenkosten- oder Garagenzahlungen"): Exit Sub
ActiveSheet.Unprotect
With Selection.Interior
.Pattern = xlSolid
End With
ActiveSheet.Protect UserInterfaceOnly:=True
End Sub

======================
RT2 sind 2 Chr$(13)
Es sind nur die Spalten 26, 30, 34, 38, ... erlaubt

Und in diese Else-Bedingung

>>> Else
Sheets("Za-Eg").Select: Exit Sub

Geht er mir einfach nicht rein. Was mache ich da falsch?

Vielen Dank fürs Lesen und Antworten!

liebe e-Grüße
Elmar
Bild


Betrifft: AW: If then else klappt nicht - stehe auf dem Schlauch
von: Ramses
Geschrieben am: 22.09.2003 17:26:23

Hallo,

das darf nicht ElseIf heisen sondern muss

If Antwort = vbNo

du musst eine neue Bedingung eröffnen

Gruss Rainer


Bild


Betrifft: Ja, Danke, genau das wars! oT
von: Elmar Steigenberger
Geschrieben am: 22.09.2003 17:50:03




 Bild