AW: Zusatz
30.01.2008 12:53:12
Peter
Hallo Andre,
so z. B.:
Public Sub Test()
Dim sSpalte As String
Dim iSpalte As Integer
sSpalte = Application.InputBox(" Bitte die gewünschte Spalte eingeben", _
" Spalten Eingabe", Type:=1)
If sSpalte = "Falsch" Then
MsgBox "Es wurde Abbrechen angeklickt.", _
, " Hinweis für " & Application.UserName
Exit Sub
ElseIf sSpalte = "" Then
MsgBox "Es wurde keine Spalte eingegeben.", _
, " Hinweis für " & Application.UserName
Exit Sub
End If
iSpalte = CInt(sSpalte)
If iSpalte > 0 And iSpalte
Gruß Peter