Hi,
Es handelt sich also um genau die Datei und um genau die Tabelle, welche den Code aus dem anderen Thread enthält?
Anhand des Problems,der verwendeten Zeilen und Deiner AW3 gehe ich jetzt einfach mal davon aus.
Du kannst die
"Datenüberprüfung von Excel 2007" ruhig weiterverwenden. Dafür musst Du nun nichts eigenes schreiben. Nur wenn die Überprüfung abgeschlossen ist und der Wert in die Zelle eingetragen ist, dann wird das Worksheet_Change-Ereignis ausgelöst. Und in diesem Code ist Dein selbstgemachtes "Problem". Siehe AW2:
Du hebst den TabellenSchutz auf, und wenn dann "Target.Address" sich nicht mit F7:F31, G7:G31, I7:I31 überschneidet, dann beendest Du das Makro. =Tabelle nicht geschützt. Ich habe in AW2 gemeint, dass Du erst alle Bedingungen prüfen solltest, ob Du überhaupt das Makro abarbeitest und erst dann den Schutz aufhebst. Dazu musst Du in diesem Fall einfach die Zeile
ActiveSheet.Unprotect "Passwort" ' Schutz der Tabelle aufheben hinter die letzte Prüfung verschieben.
Set RaBereich = Range("F7:F31, G7:G31, I7:I31") ' Bereich der Wirksamkeit festlegem
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If RaBereich Is Nothing Then Exit Sub
ActiveSheet.Unprotect "Passwort" ' Schutz der Tabelle aufheben
Application.EnableEvents = False ' Reaktion auf Zellveränderung abschalten
Datei hochladen:
z.B. bei
www.file-upload.net/ Deine Datei hochladen. Nach dem Upload erhälst Du dort einen DownloadLink. Diesen gibst Du dann hier in einem Posting bekannt.
bye
malSchauen