Zellen auswählen (nicht den Inhalt sondern mehr)
17.11.2003 14:40:24
Karsten Jung
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