Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
Screenshot zu InputBox	InputBox-Seite mit Beispielarbeitsmappe aufrufen

Kopieren von Tabellenblatt in andere Mappe

• Kopieren von Tabellenblatt in andere Mappe von Sandra vom 13.08.2004 09:43:40
• hat sich erledigt... - von Sndy am 13.08.2004 10:11:39
• AW: Kopieren von Tabellenblatt in andere Mappe - von Klaus Viertel am 13.08.2004 10:39:55

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"