Hoffe mal wieder auf Eure Hilfe: Wie kann ich denn per Makro in meiner XLS das Sheet "Ablage" kopieren und im gleichen sheet unter dem Name "Data" wieder einfügen ?
Danke
mandy
Function chkSheet(shName As String) As Boolean
Dim i As Integer
chkSheet = False
For i = 1 To Sheets.Count
If Sheets(i).Name = shName Then
chkSheet = True
End If
Next i
End Function
Sub copySheet()
If Not chkSheet("Data") And chkSheet("Ablage") Then
'hier Deine Aktionen
Sheets("Ablage").Copy after:=Sheets("Ablage")
ActiveSheet.Name = "Data"
Else
MsgBox "Sheet fehlt"
End If
End Sub
Gruss
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