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