Re: Tabellenblatt (ohne Inhalt) kopieren
23.09.2002 16:41:11
Marcos
Hallo Bastian
1. Neue Blatt einfügen....hier wird alles mit kopier...Blatt Format und Module u.s.wSub neuesblatt()
Dim x As Object
Dim neu$, mldg$, title$
Dim ergebnis%, stil%
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
2. eine Tabelle löschen du die inhalt mit untere Code
Sub Daten_Löschen()
Dim Antwort As Variant, Zelle As String
Antwort = MsgBox("Die ganze Datei wird gelöscht", vbYesNo, "Warnung!")
If Antwort = vbNo Then Exit Sub
Range("Daten").Select '< Einfügen > Namen > Definieren....
Selection.ClearContents
Range("A1:G50").Select < Ampassen
If Range("A1") = "" Then < Ampassen
Zelle = "A1" < Ampassen
Range(Zelle).Select
End If
End Sub
Ich hoffen das ist was du wolltes.
Deine Excel Versión ???
Ich haben Excel 2002 un bei mir klappt sehr gut
Gruß Marcos