If-Formel falsch

• If-Formel falsch von Fab vom 02.10.2003 15:46:40
  • AW: If-Formel falsch - von Folker am 02.10.2003 16:15:41
    • AW: If-Formel falsch - von Fab am 02.10.2003 16:22:45
    • AW: If-Formel falsch - von Fab am 02.10.2003 16:46:23
  • AW: If-Formel falsch - von Beni am 02.10.2003 16:19:13

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

Excel-Beispiele zum Thema " If-Formel falsch"

Bei falscher Eingabe alten Wert wiederherstellen