wie kann ich eine tabelle("name") als ("name2") in dasselbe workbook kopieren?
danke im voraus
jochen
rechte Maustaste auf das Register "Name", verschieben/kopieren, Häkchen setzen bei Kopie erstellen, kopieren in dieses Workbook, fertig.
Gruß Boris
Sub 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
Und das wenn du eine Tabelle löschen will.
Sub LoescheAktivesBlatt()
Dim txtTB As String
txtTB = InputBox("Welche Tabelle möchten Sie löschen?")
If txtTB > "" Then ActiveWorkbook.Sheets(txtTB).Delete
End Sub
Gruß Sergio
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen