Excelliste VBA Anforderung speichert nicht
08.07.2014 10:24:03
Kazo
Hallo liebe Leute, ich habe mit meiner Redaktionsliste ein kleines Problem! und zwar nach dem ausfüllen der Anforderung wird per button eine email an die bearbeiter verschickt! jedoch speichert die Redaktionsliste die eingabe nicht und verschickt das Formular bzw die Anforderung ohne einen Eintrag. Kann mir da jemand evtl auf die Sprünge helfen da ich kaum Kentnisse in VBA habe. Ich bedanke mich recht herzlich!
So sieht der VBA-Code aus:
Private Sub Workbook_Close()
'Blattschutz beim Schließen des Dokuments aktivieren
blattschutz_aktivieren
End Sub
Private Sub Workbook_Open()
'Windows Benutzername auslesen
Dim Benutzername As String
Benutzername = Environ("Username")
Dim admin As Boolean
admin = False
Dim eingeschränkt As Boolean
eingeschränkt = False
Dim Wiederholungen As Integer
'Überprüfen, ob in der Liste "Admin-Benutzer" auf dem Blatt "Hilfstabelle" der Benutzer _
enthalten ist, der geerade das Blatt geöffnet hat
For Wiederholungen = 2 To Sheets("Hilfstabelle").Range("A65536").End(xlUp).Row
If Sheets("Hilfstabelle").Cells(Wiederholungen, 2) = Benutzername Then
admin = True
End If
Next
'Überprüfen, ob in der Liste "Admin-Benutzer" auf dem Blatt "Hilfstabelle" der Benutzer _
enthalten ist, der geerade das Blatt geöffnet hat
For Wiederholungen = 2 To Sheets("Hilfstabelle").Range("A65536").End(xlUp).Row
If Sheets("Hilfstabelle").Cells(Wiederholungen, 3) = Benutzername Then
eingeschränkt = True
End If
Next
'Wenn Benutzername in der Spalte "Admin-User" der Hilfstabelle enthalten, Blattschutz von _
_
Hilfstabelle und Anforderungen aufheben und Hilfstabelle sichtbar machen
If admin = True Then
Sheets("Anforderungen").Unprotect Password:="test"
Sheets("Hilfstabelle").Unprotect Password:="test"
Sheets("Hilfstabelle").Visible = True
'Wenn Benutzername in der Spalte "Anforderungen bearbeitbar" der Hilfstabelle enthalten, _
Anforderungen zum bearbeiten freigeben
ElseIf eingeschränkt = True Then
blattschutz_aktivieren
Sheets("Anforderungen").Unprotect Password:="test"
Else
'Blattschutz beim Öffnen des Dokuments aktivieren
blattschutz_aktivieren
End If
End Sub
'Blattschutz des Dokuments aktivieren
Private Sub blattschutz_aktivieren()
Sheets("Anforderungen").Protect userinterfaceonly:=True, Password:="test"
Sheets("Anforderungen").EnableAutoFilter = True
'Blatt Hilfstabelle verbergen
Sheets("Hilfstabelle").Unprotect Password:="test"
Sheets("Hilfstabelle").Visible = xlVeryHidden
Sheets("Hilfstabelle").Protect Password:="test"
End Sub