Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hallo und Guten Tag
Hallo ich habe mir einen VBA Code runtergeladen und versucht es in meine Arbeitsmappe einzubinden,

funktioniert recht gut, vielen Dank für das VBA.
Ich habe aber noch einige Schwirigkeiten bezüglich vba da ich gerade beim Einarbeiten bin, meine Frage zu

Sub Blattschutz_ein()
  Sheets("Tabelle1").Protect Password:="blau"
End Sub

Sub Blattschutz_aus()
  Sheets("Tabelle1").Unprotect Password:="blau"
End Sub
 
Tabelle1 soll durch  >>>Name K.- 07.06.2016   ersetzt werden, das heißt, im folgendem Code

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Address = "$C$5" Or Target.Address = "$F$6" Then
        Name = Range("C5") & " " & Range("F6") & ".- " & Range("F9")
                                [C5=Name               F6=erster                     F9=Datum]
                                   Buchstabe vom Vornamen
End If
End Sub


Wird mit  Name = Range("C5") & " " & Range("F6") & ".- " & Range("F9") das andere Blatt (Tabelle2) mit

dem erzeugtem Code umbenannt in    Name K.- 07.06.2016  das ist wichtig für das versenden später.

Wie/Was muss ich in Blattschutz_ein eingeben sodas es auch automatisch passiert,
das Umbenennen geschiet jeweils am nächsten Tag neu beim Aufruf sodas immer das aktuelle Datum angezeigt wird wichtig für den Versand.

Im Moment geschieht das umbenennen von Hand in dem ich auf Vorname gehen muss –doppelklicken-und dann

Enter drücken, fragt mich nicht warum???

Ich hoffe einer kann mir weiterhelfen und nochmals vielen vielen Dank für den Blattschutz Code an wem auch immer.

vielen Dank im vorraus
                                    Salem

Hallo steve1da,
entschuldige Bitte aber ich bin ganz neu was Foren und so an geht, ich muss mich erst reinfuxen.
habe meine große Datei mal versucht auf das nötigste zu kürzen, ich hoffe es hilt Dir.
Sollte auch bei Dir laufen, ich hoffe
 Beschreibung in der Datei.
LG Salem