Dim x As Object
Dim neu$, mldg$, title$
Dim ergebnis%, stil%
If ActiveSheet.Name <> "Vorlage" Then Exit Sub
neu = InputBox("Bitte geben Sie den Namen der neuen Tabelle ein:")
If neu = ("") Then
Exit Sub
End If
For Each x In ActiveWorkbook.Sheets
If x.Name = neu Then
mldg = "Blattname existiert schon!"
stil = vbCritical + vbOKOnly
title = "A C H T U N G ! ! !"
ergebnis = MsgBox(mldg, stil, title)
Exit Sub
End If
Next x
ActiveSheet.Copy After:=ActiveSheet
ActiveSheet.Name = neu
End Sub
Wie erreiche ich es, daß die Kope diese Schaltfläche nicht mehr enthält????
2. Kann ich für eine Tabelle sowohl die Kopfzeilen als auch die Spaltenzeilen fixieren? Also beim scrollen sollen nur die Werte "verschoben" werden?