Verschachtelung VBA

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Verschachtelung VBA
von: Frank
Geschrieben am: 11.12.2003 10:46:47

Hallo,
ich folgendes Makro:


Sub Test1()
Dim z As Integer
Range("F9").Select
Do While ActiveCell.Borders(xlEdgeBottom).LineStyle <> xlNone
   If Left(ActiveCell.Value, 1) = "F" and ActiveCell.Offset(1, -5).Value = "Angestellter" and(or(activecell.Offset(4, 0)<>"U",activecell.Offset(4,0)<>"K")) _
   Then z = z + 1
   ActiveCell.Offset(28, 0).Select
   Loop
   MsgBox "" & z
End Sub

Es kommt immer die Meldung Syntaxfehler.
Gruß
Frank
Bild


Betrifft: AW: Verschachtelung VBA
von: Galenzo
Geschrieben am: 11.12.2003 10:51:16

Hallo,
der Fehler liegt in der Verbindung mit OR.
Syntax: Bedingung1 AND Bedingung2 OR Bedingung3 OR Bedingung4 ....
Beachte: evtl. Klammern setzen.

mfg


Bild


Betrifft: AW: Verschachtelung VBA
von: Holger Levetzow
Geschrieben am: 11.12.2003 10:52:15

auf alle Fälle stimmt der Teil nicht:

and(or(activecell.Offset(4, 0)<>"U",activecell.Offset(4,0)<>"K"))

da muss sowas hin wie:

and(activecell.Offset(4, 0)<>"U" or activecell.Offset(4,0)<>"K")

Holger


Bild


Betrifft: AW: Verschachtelung VBA
von: q
Geschrieben am: 11.12.2003 11:04:05

Option Explicit


Sub Test1()
    Dim z As Integer
    
    Range("F9").Select
    
    Do While ActiveCell.Borders(xlEdgeBottom).LineStyle <> xlNone
        ' hier ist das Problem :
        ' (or(activecell.Offset(4, 0)<>"U",activecell.Offset(4,0)<>"K"))
        ' or ist keine Funktion sondern Operator
        ' Or syntax ist :
        ' result = expression1 Or expression2
        
        ' z.B so ist es syntaktisch ok(Klammern nicht notig, dient nur der Ubersichtlichkeit):
        If ( _
           (Left(ActiveCell.Value, 1) = "F") And _
           (ActiveCell.Offset(1, -5).Value = "Angestellter") And _
           (ActiveCell.Offset(4, 0).Value <> "U") And _
           (ActiveCell.Offset(4, 0).Value <> "K") _
           ) Then z = z + 1
        ActiveCell.Offset(28, 0).Select
    Loop
    
    MsgBox "" & z
End Sub


Gruss Dich, q


Bild


Betrifft: AW: Verschachtelung VBA
von: Frank
Geschrieben am: 11.12.2003 11:07:01

Hallo,
danke für eure Antworten. Jetzt komme ich weiter.
Gruß
Frank


Bild

Beiträge aus den Excel-Beispielen zum Thema " wer greift auf die freigegebene Arbeitsmappe zu"