Sub Replace()
Dim FNSX As String
Do
FNSX = "Ersetzen von Werten"
FNSX = Application.InputBox("Spalte angeben der Wert zu ersetzen ist", FNSX, Type:=2)
If FNSX "" Then
If IsNumeric(FNSX) Then
MsgBox "Bitte Spalte als Buchstaben eingeben!"
Else
Exit Do
End If
End If
Loop
'- weiter Code
Range(FNSX).Select
End Sub
If IsNumeric(FNSX) Then
MsgBox "Bitte Spalte als Buchstaben eingeben!"
Sub Ersetzen_()
Dim FNSX As String, rngRange As Range
Do
FNSX = "Ersetzen von Werten"
FNSX = Application.InputBox("Spalte angeben der Wert zu ersetzen ist", FNSX, Type:=2)
On Error Resume Next 'Error-Anweisung einschalten
Set rngRange = Columns(FNSX)
If FNSX <> "" Then
If rngRange Is Nothing Then
If MsgBox("Bitte einen Gültigen Buchstaben für eine Spalte eingeben!" & vbCr & _
"Wollen Sie die Eingabe wiederholen?", vbExclamation + vbYesNo) = vbNo Then
Exit Sub 'Programm abbrechen
End If
Else
Exit Do
End If
End If
Loop
On Error GoTo 0 'Error-Anweisung ausschalten
'...
'...
rngRange.Select 'oder auch Columns(FNSX)
End Sub