Standardfilter und anderes

[balu]

Hallo paljass,

Willkommen unter den Programmierern .

Ich würde dir empfehlen nicht mit dem Rekorder zu experimentieren, sondern lieber gleich richtig programmieren. Und deshalb auch dir der Tipp: Schau dich bei Dannenhöfer um. Habe dir schon mal 2 Seiten von ihm hier verlinkt.

1) Blattschutz aufheben
2) Beginnen in A15
6) Setze den Blattschutz ohne Passwort

Wie kann man Tabellen und Zellen schützen?

4) Setze die optimale Zeilenhöhe

Wie kann man die optimale Höhe einer Zeile einstellen?


Befasse dich erst mal mit diesen Punkten, denn das bekommst Du eigentlich auch alleine hin. Wenn Du das so weit hast, meldest Du dich wieder und wir sehen dann weiter.


Gruß
balu

[Mephisto]

Schützen machst du mit

Schutz entfernen:

Code: Alles auswählen

FUNCTION unprotectSheet(sheetNumber as Integer)
	Dim oSheet
    oSheet = thisComponent.Sheets(sheetNumber)  
    oSheet.unprotect(myPassword)  'Tabellenschutz aufheben - PW kann auch ein leerer String sein
END FUNCTION

Den Schutz fügt du wieder ein mit:

Code: Alles auswählen

FUNCTION protectSheet(sheetNumber as Integer)
	DIM oSheet
	oSheet = thisComponent.Sheets(sheetNumber)
	oSheet.protect(myPassword)   'Tabelle wieder schützen	
END FUNCTION

Das Beginne bei A15 bis Ende, kannst du imho den Makrorecorder benutzten.
Zu 4) Ich glaube du meinst eher die optimale Spaltenbreite? Die Höhe wird ja automatisch angepasst. Diesbezüglich wirst du hier fündig.


Edit: balu war schneller. Aber vll. hilfts dir ja trotzdem weiter...

[Frieder D.]

5) Filtere nur die Zeilen, in denen in Spalte H (Entf>4km) eine 0 (Null) steht und zeige sie an
..
7.)Super wärs, wenn es dann noch ein Makro gäbe, welches den Filter wieder entfernt.

Da auf allen anderen Punkte schon eine Antwort gegeben wurde hier die Antwort auf 5. und 7.:

https://sites.google.com/site/starbasic ... r-funktion

Gruß Frieder