Tabellenblatt kopieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Tabellenblatt kopieren
von: Erich Müller
Geschrieben am: 13.07.2015 13:58:36

Hallo Freaks,
in einer Directory habe ich 2 Mappen: Fußball und Handball. Nun will ich mittels VBA das Tabellenblatt Libero der Fußballmappe in das Tabellenblatt Torwart der Handballmappe kopieren.
Ich bitte um Hilfe.
Gruß EM

Bild

Betrifft: AW: Tabellenblatt kopieren
von: selli
Geschrieben am: 13.07.2015 15:16:28
hallo erich,
beide mappen öffnen, das kontextmenü der zu kopierenden tabelle öffnen (rechtsklick), da kopieren/verschieben auswählen usw.... rest ist selbsterklärend.
gruß
selli

Bild

Betrifft: achso, per vba
von: selli
Geschrieben am: 13.07.2015 15:33:00
hallo erich,
wenn dein level "vba nur mit recorder" ist, dann hast du das doch sicher schonmal so aufgezeichnet, oder?
zeige uns doch deinen bisherigen ansatz.
gruß
selli

Bild

Betrifft: AW: achso, per vba
von: Erich Müller
Geschrieben am: 13.07.2015 17:19:54
Hallo selli,
ich habe bis dato keinen Ansatz. Danke für Deine Hilfe.
Gruß EM

Bild

Betrifft: AW: Tabellenblatt kopieren
von: Sepp
Geschrieben am: 13.07.2015 19:06:42
Hallo Erich,
die Infos sind etwas mager!
Vom Prinzip her so:

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub copySheet()
  Dim objWB As Workbook
  Dim lngCalc As Long
  
  On Error GoTo ErrExit
  
  With Application
    .ScreenUpdating = False
    .EnableEvents = False
    lngCalc = .Calculation
    .Calculation = -4135
    .DisplayAlerts = False
  End With
  
  With ThisWorkbook
    Set objWB = Workbook.Open(.Path & "\" & "Fußball.xlsx") 'Dateiname anpassen!
    objWB.Sheets("Libero").Copy after:=.Sheets(.Sheets.Count)
    .Sheets(.Sheets.Count).Name = "Torwart"
    objWB.Close False
  End With
  
  ErrExit:
  
  With Err
    If .Number <> 0 Then
      MsgBox "Fehler in Prozedur:" & vbTab & "'copsSheet'" & vbLf & String(60, "_") & _
        vbLf & vbLf & IIf(Erl, "Fehler in Zeile:" & vbTab & Erl & vbLf & vbLf, "") & _
        "Fehlernummer:" & vbTab & .Number & vbLf & vbLf & "Beschreibung:" & vbTab & _
        .Description & vbLf, vbExclamation + vbMsgBoxSetForeground, _
        "VBA - Fehler in Prozedur - copySheet"
      .Clear
    End If
  End With
  
  On Error GoTo 0
  
  With Application
    .ScreenUpdating = True
    .EnableEvents = True
    .Calculation = lngCalc
    .DisplayAlerts = True
    .StatusBar = False
  End With
  
  Set objWB = Nothing
End Sub


Gruß Sepp


Bild

Betrifft: Danke Sepp!
von: Erich Müller
Geschrieben am: 13.07.2015 20:18:10
:

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Tabellenblatt kopieren"