Sonst mit VBA
23.11.2006 12:39:19
tuvux
Ich habe da ein Problemj mit dem ich jetzt nicht mehr klar komme.
Ich möchte nach dem öffnen der Datei automatisch ein neues tabellenblatt, dazu soll ein Eingabefenster mich nach dem Namen fragen. So weit so gut, aber jetzt möchte ich (wenn vorhanden) den Eintrag als Namen für das Tabellenblatt übernehmen, sonst soll das "neue, erstellte" Tabellenblatt wieder gelöscht werden und zwar unabhängig davon ob da nichts im Eingabefenster steht oder Abbrechen gedrückt wird. Dazu habe ich mir folgendes erstellt, aber wo ist der fehler?
Private Sub Workbook_Open()
MsgBox " Testfenster"
Sheets.Add Type:= _
"C:\Documents and Settings\solich\Application Data\Microsoft\Templates\Dispersion.xls", after:=Sheets(Sheets.Count)
intwort = InputBox("Chargennummer eingeben:")
If intwort > 0 Then
ActiveSheet.Name = intwort
End If
If intwort = False Then
ActiveSheet.Delate
End If
End Sub
Hoffentlich habe ich es verständlich beschrieben!
Gruß Tuvux