title image


Smiley Re: Nochmal Haltepunkt in Schleife
Hi,



Beispiel:



Option Explicit

Sub Zellauswahl()

Dim R As Range

Application.DisplayAlerts = False

On Error Resume Next

Set R = Application.InputBox("Markieren Sie einen Zellbereich in der Tabelle!", Title:="Auswahl...", Type:=8)

If Err 0 Then

MsgBox "Kein gültiger Zellbereich!" & Space(10), 64, "Hinweis..."

End If

Application.DisplayAlerts = True

R.Select

End Sub



mfg xla

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: