tekst op tabblad plaatsen door middel van invoer in een cel

[Angela69]

Hallo,

Bestaat er een mogelijkheid om via invoer in een cel, de inhoud hiervan op een tabblad te krijgen?

Groetjes Angela

[SjonR]

Wil je dat de inhoud van een cel de tabbladnaam bepaalt?

[edmoor]

Dus dit achter het werkblad?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "C13" And Target.Value <> "" Then
        ActiveSheet.Name = Target.Value
    End If
End Sub

[JEC.]

Ik zou ook even de controle doen op “niet leeg”😬

[edmoor]

En terecht (aangepast)
Daarnaast zitten er nog wel meer voorwaarden aan wat de naam van een werkblad mag zijn.
Zoals max. 32 tekens, alleen geldige tekens, een ander blad mag niet al dezelfde naam hebben.
Dus die controle kan nog wel uitgebreid worden.

[Angela69]

Ja dat is de bedoeling, maar waar plaats ik deze code dan, daar heb ik geen ervaring mee.

[edmoor]

Druk op de toetscombinatie Alt-F11
Dubbelklik dan aan de linkerkant op de naam van het werkblad.
Plaats dan de code in het rechter venster.
Sla daarna je document op als document met macro's (xlsm):

[Angela69]

Hoi, bedankt voor je inspanning, maar mij lukt het niet.
Zou je een en ander in bijgaand bestand willen aanbrengen?

De bedoeling is dat de alle namen van kolom B van blad "variabelen" op de tabbladen komen,

bedankt alvast, Angela

[edmoor]

Daar komt dan meer bij kijken dan je denkt.
Maar bekijk deze maar eens:

[Angela69]

Fantastisch, precies zoals ik wilde, dank je zeer!

Heb nog een vraag als je daar ook eens naar wilt kijken:

Zoals je ziet wordt in tabblad muteren in kolom C de locaties ingegeven welke dan gekopieerd worden naar het betreffende tabblad.

De inhoud van die tabbladen zijn dus ook voorzien van lege regels, is er ook een makro te maken die in die tabbladen (niet tabbladen muteren en variabelen)
de lege regels verwijdert?

Nogmaals, erg bedankt, groetjes Angela

[edmoor]

Zoiets?
Gebruik de knoppen op de bedrijfs werkbladen.
Maar dan zijn de functies uiteraard ook weg.

[Angela69]

Zier er weer geweldig uit, maar je kunt inderdaad daarna niets herstellen.

Is het misschien ook mogelijk om i.p.v regels te verwijderen, de regels te verbergen en ze ook via een macro weer te tonen?

Als dat mogelijk is, zouden er dan 2 knoppen op tabblad variabelen kunnen komen, die alle tabbladen behalve " muteren" en "variabelen" in 1 bewerking behandelen?

[Ben]

heb ook even iets aangepast.

[emields]

en wat staat er hier nu minder in dan op al uw onoverzichtelijke bladen?

[edmoor]

@Ben:
1 Macro is voldoende:

Sub RegelsVerbergenOfTonen()
    Application.ScreenUpdating = False
    With ActiveSheet
        For i = .Cells(.Rows.Count, "A").End(xlUp).Row To 4 Step -1
            Rows(i).EntireRow.Hidden = IIf(.Cells(i, 1) = "", True, False)
        Next i
    End With
    Columns.AutoFit
    Application.ScreenUpdating = True
End Sub

[Angela69]

Hallo Ben,

Geweldig bedankt, ben er heel blij mee

groetjes Angela

[Angela69]

Hallo Emiel,

Hartelijk dank voor jouw oplossing, ik heb helaas geen ervaring met draaitabellen, in principe is dit een hele mooie oplossing, doch:


er verandert niets in de draaitabel als er ergens ook maar iets gemuteerd wordt

ik zou de aparte tabbladen toch ook in leven willen houden (ter controle)

in de draaitabel i.p.v .W1 de naam van Variabelen kolom B tonen (locatie naam)

zou je dit voor mij willen aanpassen?

met vriendelijke groet, Angela

[emields]

Dan doe je het zo.

[Angela69]

Hallo Emiel

Ik heb je wijze raad opgevolgd en me verdiept de draaitabellen, geweldig.

Echter in het bestand welke je me terugzond, wordt er in het tabblad Variabelen
bij alle invoer in kolom locatie (kolom D) alleen maar velden vergeleken in Variabelen regel 2
dat moet dus de regel worden afhankelijk van de locatie keuze.
Ik hoop dat ik zo duidelijk ben, anders hoor ik het wel.

Zou je voor mij alleen de code kunnen aanpassen, dus alleen in kolom I?

Alvast hartelijk bedankt,

groetjes Angela