Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: Salem am Juni 07, 2016, 20:32:32 Nachmittag
-
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??? :( 8) :-[
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