Benachbarte Zellen



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Benachbarte Zellen
von: UdoB
Geschrieben am: 15.07.2002 - 19:04:41

Hallo, wer kann mir helfen?
ich möchte zwei nebeneinanderliegende Zellen abfragen, ob sie leer sind, aber in der relativen Schreibweise.
Eine einzelne Zelle kann ich wie folgt abfragen:
Do Until IsEmpty(ActiveCell.Offset(intRow, 0))
Wie mach ichs, die Zelle links daneben mit abzufragen, also intRow-1, 0.
Gruss UdoB
nach oben   nach unten

Re: Benachbarte Zellen
von: Klaus Schubert
Geschrieben am: 15.07.2002 - 23:17:02

Hallo Udo,

so müsste es eigentlich gehen:


Sub Abfrage()
On Error Resume Next

Do Until (IsEmpty(ActiveCell.Offset(intRow, 0)) And _
IsEmpty(ActiveCell.Offset(intRow, -1)))

'Deinen Code

Loop

End Sub


Die Fehlerroutine On Error Resume Next ist deshalb nötig, um den Fehler aufzufangen,der ausgelöst wird, wenn die aktive Zelle in Spalte A steht und du dann auf eine Spalte davor (eben links davon) zugreifen willst, was natürlich nicht geht.

Gruß Klaus




 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Benachbarte Zellen"