Office: 3 Fragen

Hallo zusammen,
ich hab da noch 3 Fragen?
1. Wie kann ich verhindern das versehendlich mit dem Makro "Letzten löschen" die letzte Zelle hier Z.B. die Zelle 33 gelöscht wird?
2.Wie bekomme ich dieses #NV aus der Tabelle (steht da solange ich keine Daten eingebe) entfernen?
3. Wenn ich das Blatt schütze kann ich keine Markros mehr Ausführen, geht das nicht oder kann mann das einstellen?

Danke im voraus

und Gruß
Onkel22

 

Hallo!

1. Immer noch ein Einzeiler:

Code:

If Range("D65536").End(xlUp).Row > 33 Then Range("D65536").End(xlUp).EntireRow.Clear

2. Baue einen Fehlerabfang ein, z.B.
=WENN(ISTFEHLER(DeineFormel);"nix";DeineFormel)
3. Schalte durch das Makro den Blattschutz aus und wieder ein:

Code:

Sub Irgendwas()
ActiveSheet.Unprotect Password:="Hallo"
...
Dein Code
...
ActiveSheet.Protect Password:="Hallo"
End Sub

Wenn du kein Passwort vergeben hast, dann lass Password:="Hallo" einfach weg.

 

Hallo schatzi,
das mit dem Schutz ein und ausschalten funst beim löschen super aber bei Neu geht es nur ein mal dann meckert Exel den Schreibschutz an.
Na und für die Formel bin ich wohl noch zu blöd :-(
Und das Zelle 33 nicht löschen funst auch super.

Gruß und Danke Onkel 22

 

Hallo!

Bei "Neu" musst du das Hochkomma am Anfang der Zeile mit Unprotect löschen, sonst denkt Excel, dies sei nur ein Kommentar.
Der letzte Parameter in deiner SVERWEIS-Formel ist übrigens Quatsch: "FALSCH/100" macht keinen Sinn; ersetze das durch "FALSCH" oder durch "0".
Als ich schrieb

meinte ich damit sowas wie
=WENN(ISTFEHLER(SVERWEIS(D33;Grundwerte!$E$6:$F$79;2;0));"";SVERWEIS(D33;Grundwerte!$E$6:$F$79;2;0))

 

OK habs,
Danke