Microsoft Excel

Herbers Excel/VBA-Archiv

If-Formel falsch

    Betrifft: If-Formel falsch von: Fab
    Geschrieben am: 02.10.2003 15:46:40

    Hallo

    Was ist an diesem Makro falsch? Wieso markiert er mir die Spalte O, obwohl ich nichts in Spalte A geschrieben habe?

    Vielen Dank für die Hilfe

    Gruss

    Fab

    Option Explicit

    Sub S()
    
    
    If IsEmpty(Columns("A").Select) = False Then
    Columns("O").Select
    ElseIf IsEmpty(Columns("B").Select) = False Then
    Columns("P").Select
    ElseIf IsEmpty(Columns("C").Select) = False Then
    Columns("Q").Select
    Else
    Columns("R").Select
    End If
    
    End Sub
    

      


    Betrifft: AW: If-Formel falsch von: Folker
    Geschrieben am: 02.10.2003 16:15:41

    Hallo Fab,

    bist du dir sicher, dass IsEmpty so funktioniert? IsEmpty überprüft eine Variable ob sie leer oder nicht ist. Hier versuchst du eine Spalte zu übergeben, wie soll das gehen.
    Ich hab mal einen Workaround für dein Problem geschrieben. So sollte es eigentlich klappen es sein denn du hast genau einen Wert in Zeile 65536 stehen was extrem unwahrscheinlich sein sollte.

    If Range("A65536").End(xlUp).Value <> "" Then
    Columns("O").Select
    ElseIf Range("B65536").End(xlUp).Value <> "" Then
    Columns("P").Select
    ElseIf Range("C65536").End(xlUp).Value <> "" Then
    Columns("Q").Select
    Else
    Columns("R").Select
    End If


    Gruss Folker


      


    Betrifft: AW: If-Formel falsch von: Fab
    Geschrieben am: 02.10.2003 16:22:45

    Hallo Folker

    Ich probier's mal mit deiner Lösung. Vielen Dank erstmals!

    Gruss

    Fab


      


    Betrifft: AW: If-Formel falsch von: Fab
    Geschrieben am: 02.10.2003 16:46:23

    Hi Folker

    Es scheint zu klappen! Vielen Dank, ich war nahe an der Verzweiflung :-)

    Gruss

    Fab


      


    Betrifft: AW: If-Formel falsch von: Beni
    Geschrieben am: 02.10.2003 16:19:13

    Hallo Fab
    A ist nur die Frage, das Ereignis ist O
    Gruss Beni

    Sub S()
    If IsEmpty(Columns("A").Select) = False Then    'Frage
    Columns("O").Select    '<<<<<<<              Ereignis
    ElseIf IsEmpty(Columns("B").Select) = False Then
    Columns("P").Select
    ElseIf IsEmpty(Columns("C").Select) = False Then
    Columns("Q").Select
    Else
    Columns("R").Select
    End If
    
    End Sub
    



     

    Beiträge aus den Excel-Beispielen zum Thema " If-Formel falsch"