Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 4 van 4

Onderwerp: definieren van een tweede werkboeknaam?

  1. #1
    Junior Member
    Geregistreerd
    3 oktober 2012
    Vraag is niet opgelost

    definieren van een tweede werkboeknaam?

    Ik heb het volgende ik wil een sheet kopieeren naar een adere werkmap welke een variabele naam kan hebben.
    Hoe kan ik de naam van het tweede werkboek definieeren de code is nu als volgt:

    Code:
    Sub Macro1()
    
    
    Dim wbnaam As Variant
    Dim wbmpd As Variant
    
    wbnaam = ActiveWorkbook.Name
    wbmpd = HOE KAN IK DEZE DEFINIEREN?
    
     With Application.FileDialog(msoFileDialogOpen)
      .Title = "MPD bestand selecteren"
      .Filters.Clear
      .Filters.Add "Excel macros", "*.xlsm"
      .Show
      .Execute
     End With
    '
    
    'activeert de werkmap waar de sheet geopieerd moet worden
    Workbooks(wbnaam).Activate
    
    End Sub

  2. #2
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Afstand tot server
    ±151 km
    Een naam is natuurlijk gewoon een string, en geen variant. Al mag dat wel. Ik snap niet precies wat je wilt doen. Je gebruikt een FileDialog, maar waarom niet msoFileDialogFilePicker? Dan kun je gelijk op zoek naar je bestand. En dat kun je dan ook aan je variabele toewijzen.
    Code:
            If .Show = -1 Then
                wbmpd= .SelectedItems(1)           'String wordt gevuld met geselecteerde bestand
            Else
                MsgBox "Er is op <Annuleren> gedrukt..."
                BestandOpzoeken = "Annuleren"
            End If
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  3. #3
    Junior Member
    Geregistreerd
    3 oktober 2012
    heb je hier een voorbeeldje van over hoe ik dit in het vat moet gieten?

  4. #4
    Giga Honourable Senior Member
    Verenigingslid

    Geregistreerd
    12 juni 2008
    Code:
    Sub M_snb()
     With Application.FileDialog(3)
      .initialfilename = "*MPD*.xlsm"
      if .show then thisworkbook.sheets.add( ,thisworkbook.sheets(sheetworkbook.sheets.count),,.selecteditems(1)).name="voorbeeld"
     end with 
    End Sub
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren