Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen

xlDialogWorkbookMove + Code in Zieldatei löschen | Herbers Excel-Forum


Betrifft: xlDialogWorkbookMove + Code in Zieldatei löschen von: Thomas Adams
Geschrieben am: 24.10.2008 10:14:48

Hallo,

ich nutze erfolgreich den Dialog "xlDialogWorkbookMove" und möchte nun per VBA erreichen, dass der Code aus den kopierten Blättern in der Zielarbeitsmappe gelöscht wird.
Dies soll allerdings beim Kopieren der Blätter passieren.

Kennt dazu jemand eine Lösung?

Dank vorab.

Gruß

Thomas

  

Betrifft: AW: xlDialogWorkbookMove + Code in Zieldatei löschen von: ransi
Geschrieben am: 24.10.2008 12:23:29

Hallo Thomas

Schau mal ob dich das weiterbringt:

Option Explicit


Public Sub test()
Dim WB As Workbook
Dim vbComp As Object
If Application.Dialogs(xlDialogWorkbookMove).Show Then '<>"Abbrechen" geclickt
    Set WB = ActiveWorkbook
    For Each vbComp In WB.VBProject.VBComponents
        If vbComp.Type = 100 Then 'Abfrage ob kein Modul,Klassenmodul oder Userform
            If vbComp.Name <> "DieseArbeitsmappe" Then
                With vbComp.codemodule
                    .DeleteLines 1, .CountOfLines
                End With
            End If
        End If
    Next
End If
End Sub



ransi


  

Betrifft: AW: xlDialogWorkbookMove + Code in Zieldatei löschen von: Thomas Adams
Geschrieben am: 24.10.2008 14:13:55

Hallo ransi,

danke für Deine Hilfe.
Alles wird gelöscht, aber leider verbleiben noch die auf dem ursprünglichen Blatt vorhandenen Schaltflächen.
Wie könnte ich diese auch noch löschen?

Gruß

Thomas


  

Betrifft: AW: xlDialogWorkbookMove + Code in Zieldatei löschen von: ransi
Geschrieben am: 24.10.2008 15:49:57

HAllo Thomas

Was sind das für Schaltflächen ?

ransi


  

Betrifft: AW: xlDialogWorkbookMove + Code in Zieldatei löschen von: Thomas Adams
Geschrieben am: 24.10.2008 16:44:16

Hallo ransi,

es sind command-buttons.
Zudem möchte ich mehrere ausgewählte Tabellenblätter gleichzeitig kopieren.

Siehst Du eine Chance für einen Lösung?

Thomas


Beiträge aus den Excel-Beispielen zum Thema "xlDialogWorkbookMove + Code in Zieldatei löschen"