Herbers Excel/VBA-Archiv
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 Fab am 02.10.2003 16:22:45
- AW: If-Formel falsch - von Beni am 02.10.2003 16:19:13
- AW: If-Formel falsch - von Folker am 02.10.2003 16:15:41
 |
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
| |