Das Archiv des Excel-Forums

If-Formel falsch

Bild

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

Bild


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


Bild


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


Bild


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


Bild


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



 Bild

Excel-Beispiele zum Thema " If-Formel falsch"

Bei falscher Eingabe alten Wert wiederherstellen download