If then else klappt nicht - stehe auf dem Schlauch

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema " Listbox füllen mit Suchkriterium"