auswahlbox implementieren
02.04.2008 10:04:49
Robert
Dank Eurer Hilfe hab ich nun eine recht passables Workbook zusammen bekommen.
Um diesem den Letzten schliff zu geben, möchte ich nach der abfrage, ob ein neues Tabelenblatt angelegt werden soll, nun auch noch zwischen 2 varianten entscheiden können.
Im Moment wird nur die eine Variante realisiert ("draft")...die zweite wäre dann "SingleBardraft"
code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Fehler As Integer, ws As Object
On Error GoTo Fehler
Application.ScreenUpdating = False
If Target.Row >= 5 _
And Target.Column = 1 _
And Target.Cells.Count = 1 _
And Target.Range("A1").Value "" Then
If MsgBox("Create sheet with name """ & Target.Value & """?", _
vbYesNo, "draft") = vbYes Then
For Each ws In ActiveWorkbook.Sheets
If ws.Name = Target.Value Then
MsgBox "Sheet already exists!"
Target.Select
GoTo ende
End If
Next
Worksheets("draft").Copy before:=Worksheets("draft")
Fehler = 1
ActiveSheet.Name = Target.Value
Fehler = 0
Worksheets("in & out").Activate
End If
End If
GoTo ende
Fehler:
Select Case Fehler
Case 1
MsgBox "Error no. " & Err.Number & " happend!" & vbLf & Err.Description
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Me.Activate
Target.Select
Case Else
MsgBox "Error no. " & Err.Number & " happend!" & vbLf & Err.Description
End Select
ende:
Application.ScreenUpdating = True
End Sub
regards,
Robert
Anzeige