naam inputbox gebruiken voor verschillende acties

[Lisette2016]

Hallo,
als ik de macro in bijgeleverd bestand draai, dan vraagt deze om een Facturatie Center in de inputbox.

vraag 1. Zou ik hier een keuze maken over de 3 bestaande facturatie locaties in range C4 t/m C6? ipv van vrije invoer?
vraag 2. kan ik de keuze van de inputwaarde van de inputbox gebruiken om het filter in draaitabel (tab facturatie) hierop te zetten?
vraag 3. kan ik de tabblad naam "uren" veranderen in "uren" & input waarde van inputbox?
vraag 4. kan ik de waarde van de input gebruiken voor het opslaan als: C:\Documenten\ "overzicht" & "naam"keuze inputbox.xslm

Alvast bedankt
groetjes
LisBekijk bijlage Voorbeeld draaitabelfilter instellen.xlsm

 

[edmoor]

Vraag 1:
Je kan de door de gebruiker ingevoerde waarde uiteraard controleren op overeenkomst met de gegevens in C6 t/m C6

Vraag 2/3/4:
Het ingevoerde is een string, daar kan je dus mee doen wat je maar wil.

 

[Lisette2016]

Misschien stel ik mijn vraag niet goed, wat zou de vba code zijn van vraag 1 t/m 4.

 

[gast0660]

Iets in die richting? (voor zoverre ik uw vragen heb begrepen)

 

[VenA]

Mij lijkt zoiets wat beter te werken.

Private Sub CommandButton1_Click()
  Application.DisplayAlerts = 0
  c00 = "E:\Temp\"
  If IsError(Evaluate("'" & ComboBox1 & "'A1")) Then Blad1.Name = ComboBox1
  With Blad2.PivotTables(1).PivotFields("Facturatie Locatie")
    .ClearAllFilters
    For Each it In .PivotItems
      it.Visible = it.Value = ComboBox1.Value
    Next it
  End With
  ActiveWorkbook.SaveAs c00 & ComboBox1 & ".xlsm", 52
End Sub

 

[Lisette2016]

gast0660 en venA, ivm met tijdsgebrek kan ik nog niet zeggen of ik het hiermee ga redden, zo op het eerste gezicht is het wel wat ik bedoel.
Kom hier zeker volgende week nog op terug, alvast bedankt voor jullie input.