Kopieren von Tabellenblatt in andere Mappe
13.08.2004 09:43:40
Tabellenblatt
ich habe ein für mich großes Problem:
In einer Mappe habe ich ein Tabellenblatt das in eine andere Mappe kopiert werden soll. Es soll in dieser Mappe ans Ende angehängt werden.
Das Tabellenblatt suche ich mit folgendem Makro:
Sub BlattAuswählen()
Application.ScreenUpdating = False
On Error Resume Next
Dim wks As Worksheet
Dim strWKS As String
strWKS = InputBox("Bitte Mitarbeiternamen eingeben:")
For Each wks In Worksheets
If strWKS = "" Then Exit Sub
If InStr(UCase(wks.Name), UCase(strWKS)) > 0 Then
wks.Visible = True
wks.Select
Exit Sub
End If
Next wks
Application.ScreenUpdating = True
End Sub
Das gefunde Blatt soll dann in die Mappe "Archiv" verschoben werden.
Wie kann ich das realisieren?
Gruß Sandra
Anzeige