Hallo

mit folgenden Code lasse ich zwei zellen auswählen.


Dim r1 As Range, R2 As Range
On Error GoTo ENDE
Set r1 = Application.InputBox(prompt:="Zelle 1 auswählen...", Left:=515, Top:=110, Type:=8)
Set R2 = Application.InputBox(prompt:="Zelle 2 auswählen...", Left:=515, Top:=110, Type:=8)
If r1 = R2 Then
MsgBox "Unterschiedlich Zellen auswählen!"
Set r1 = Nothing: Set R2 = Nothing
Exit Sub
End If

Wenn eine ausgewählte Zelle leer ist, soll er sich nicht das leere "merken" sondern den Zellenort (z.B. A2, C7 usw...)

Wie kann ich das machen?

MfG

Karsten