Interesante Aufgabe

Question

Halo,

kann jemand mir helfen mein Macros etwas ändern?

mein Macros blendet Zeilen aus die ein Wert=0 haben oder leer sind. Ich möchte aber die Zellen geschützt haben...!

Was muß ich in den Macros einfügen, demit der den Schützt ausschaltet, die Zeilen ausblendet und dan den Schützt schaltet wieder ein?


CODE:

Sub HideNullwerte()
' Blendet im Bereich der Tabelle alle Zeilen aus in denen sich leere Zellen oder Nullwerte befinden
Dim Markierung As Range, Wert As String
Set Markierung = ActiveSheet.Range("E4:E45")
For Each Zelle In Markierung
Wert = Zelle.Value
If Wert = "" Or Wert = "0" Then Rows(Zelle.Row).Hidden = True
Next Zelle
End Sub



Danke für eure Hilfe

Gruß

Igor

Answer 1

hi igor

nehme mit dem makrorecorder den vorgang des schuetzens und entschuetzens auf und setze ihn dann in deinen code

gruss nighty

dann viel mir das noch auf :-)

pruefung auf leere zelle
""
pruefung auf ein zeichen
"0"

es erfolgt daher keine pruefung auf 0

Answer 2

hi igor

du bist ein crossposter :-(

gruss nighty

de.wikipedia.org/wiki/Crossposting

Answer 3

Man erreicht durch ein Crossposting eine größere Anzahl Leser im Vergleich zum Verschicken in ein einzelnes Forum.

Answer 4

nochmal nachdenken, und dann nochmal melden:

Crosspostings in Webforen

Echte Crosspostings wie im Usenet sind in Webforen im Allgemeinen nicht möglich. Trotzdem ist der Begriff Crossposting bzw. Crosspost auch dort weit verbreitet, bezeichnet hier aber Multipostings, also das unabhängige Posten des gleichen Beitrags in verschiedenen Foren. Ähnlich wie Multipostings im Usenet sind Crosspostings in Webforen nicht gerne gesehen, da die einzelnen Threads unabhängige Diskussionen darstellen und im Allgemeinen kein Informationsaustausch zwischen ihnen stattfindet.