AW: DieterB: Löschen und aufrücken
16.03.2004 21:07:21
Nepumuk
Hallo Erich,
dein Programm. Wenn du nur Enter drückst, wird die Schleife beendet.
Option Explicit
Public Sub loeschen_und_aufruecken()
Dim strEingabe As String, bolFehler As Boolean
On Error GoTo Fehler
Do
strEingabe = Application.InputBox(Prompt:="Bitte die Nummer der Zeilen, die gelöscht werden soll, eingeben.", Title:="Eingabe", Type:=2)
If strEingabe = "Falsch" Or Trim$(strEingabe) = "" Then Exit Do
If IsNumeric(strEingabe) Then
If strEingabe = CStr(CDec(strEingabe) \ 1) Then
If Not bolFehler Then
If CLng(strEingabe) >= 3 And CLng(strEingabe) <= 65536 Then
If Not bolFehler Then Range(Cells(CLng(strEingabe), 1), Cells(CLng(strEingabe), 3)).Delete Shift:=xlShiftUp
Else
MsgBox Prompt:="Sie haben eine ungültige Zeilennummer angegeben.", Buttons:=vbExclamation, Title:="Hinweis"
End If
End If
Else
MsgBox Prompt:="Bitte nur ganze Zahlen eingeben.", Buttons:=vbExclamation, Title:="Hinweis"
End If
Else
MsgBox Prompt:="Bitte nur Zahlen eingeben.", Buttons:=vbExclamation, Title:="Hinweis"
End If
bolFehler = False
Loop
Exit Sub
Fehler:
Select Case Err.Number
Case 6
MsgBox Prompt:="Die eingegebene Zahl ist zu groß.", Buttons:=vbCritical, Title:="Fehler"
bolFehler = True
Resume Next
Case Else
MsgBox Prompt:="Fehler " & CStr(Err.Number) & String(2, vbLf) & Err.Description, Buttons:=vbCritical, Title:="Fehler"
End Select
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk