Kopieren von Tabellenblatt in andere Mappe
Betrifft: Kopieren von Tabellenblatt in andere Mappe
von: Sandra
Geschrieben am: 13.08.2004 09:43:40
Morgen,
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
Betrifft: hat sich erledigt...
von: Sndy
Geschrieben am: 13.08.2004 10:11:39
Betrifft: AW: Kopieren von Tabellenblatt in andere Mappe
von: Klaus Viertel
Geschrieben am: 13.08.2004 10:39:55
Morgen Sandra,
so sollte es funktionieren.
Sub BlattAuswählen()
Application.ScreenUpdating = False
Dim Archiv As Workbook
Dim blatt As Object
'On Error Resume Next
Dim strWKS As String
Dim wks As Worksheet
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
Set blatt = ActiveSheet
Set Archiv = Workbooks.Open("C:\Tabellen\Archive.xls")
sh_zahl = Archiv.Sheets.Count
blatt.Move after:=Archiv.Sheets(sh_zahl)
archiv.save
archive.close
Exit Sub
End If
Next wks
Application.ScreenUpdating = True
End Sub
MfG. Klaus
Beiträge aus den Excel-Beispielen zum Thema "Kopieren von Tabellenblatt in andere Mappe"