Clever-Excel-Forum

Hallo,

ich würde gerne mal folgendes wissen, wie muss ich den folgenden Code ergänzen bzw. korrigieren:

Code:
Sub Zelleauswählen()

Dim a As Integer

a = 1

??? = IIf(a = 0, Range("A5").Select, Range("A12").Select)

End Sub

Was muss ich auf der linken bzw. rechten Seite des Gleichheitszeichen ändern, damit für a = 1 die Zelle A12 ausgewählt wird?
Geht so etwas überhaupt?

Hallo

das habe ich so getestet

Code:
Sub Zelleauswählen()

    Dim a As Integer

    Dim rngZelle As Range

    a = 1

    Set rngZelle = IIf(a = 0, Range("A5"), Range("A12"))

    rngZelle.Select

End Sub

MfG Tom

Hallo,

  If a = 0 Then

   Range("A5").Select

 Else

   Range("A12").Select

 End If

Gruß Uwe

Danke.

... oder was in der Art

Range("A" & 5 + 7 * -(a <> 0)).Select

bzw.

Cells(5 + 7 * -(a <> 0), 1).Select

Lupy

Crazy Tom

Kuwer

Lupy

schauan