Probleme mit VBA
16.11.2004 17:57:08
Stephan
mit untenstehendem VBA-Code lasse ich eine Zeilennummer eingeben, unter der eine neue Zeile eingefügt werden soll.
Dazu 2 Fragen:
1. Wie kann ich verhindern, dass bei "Abbrechen" der Inputbox ein Laufzeitfehler entsteht?
2. Wie kann ich eine Fehlermeldung bei falscher Eingabe (z.B. Eingabe Bin euch wirklich sehr Dankbar für etwaige Hilfestellungen!!
LG, Stephan
Sub Einfügen()
' Zeile_Hinzufügen_Maßnahmenplanung Makro
' Unter der angegebenen Zeilennummer wird eine neue Zeile eingeschoben
Dim zlnr As Integer
zlnr = InputBox("xy", "ab")
If Cells(zlnr, 51).Value = 1 Then
MsgBox "cd"
Exit Sub
End If
Rows(zlnr & ":" & zlnr).Select
Selection.Insert Shift:=xlDown
Range(zlnr + 1 & ":" & zlnr + 1).Select
Selection.AutoFill Destination:=Range(zlnr & ":" & zlnr + 1), Type:=xlFillSeries
Range("a" & zlnr).Select
End Sub