Formulierung zur Zellenauswahl bei IIF gesucht

[Lupy]

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?

[Crazy Tom]

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

[Kuwer]

Hallo,

  If a = 0 Then

   Range("A5").Select

 Else

   Range("A12").Select

 End If

Gruß Uwe

[Lupy]

Danke.

[schauan]

... oder was in der Art

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

bzw.

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