Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gültigkeit für alle Tabellenblätter?

Gültigkeit für alle Tabellenblätter?
29.02.2008 08:31:54
alex
Hallo,
kleine Frage:
die Bedingungen dieses Makros (s. unten) in "Diese Arbeitsmappe", sollen für die Tabellenblätter 5 (Schießen 1. Hj.) und 6 (Schießen 2. Hj.) gelten.
Kann mir jemand sagen wie ich das schreiben muss?
Option Explicit

Private Sub Workbook_open()
ActiveSheet.Unprotect "red13"
Range("A7:P124").Select
Selection.Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A7").Select
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect "red13", userinterfaceonly:=True
End Sub


gruss
alex

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gültigkeit für alle Tabellenblätter?
29.02.2008 08:39:00
Renee
Hi Alex,
Wenn sichergestellt ist, dass es sich immer um die Blätter 5 & 6 handelt (dürfen nicht verschoben werden!), in etwa so:

Private Sub Workbook_open()
Dim lx As Long
For lx = 5 To 6
With ThisWorkbook.Sheets(lx)
.Unprotect "red13"
.Range("A7:P124").Sort Key1:=.Range("A7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
.EnableAutoFilter = True
.Protect "red13", userinterfaceonly:=True
End With
Next lx
End Sub


GreetZ Renée

Anzeige
AW: Gültigkeit für alle Tabellenblätter?
29.02.2008 09:01:30
alex
Hi Renee,
Danke für die schnelle Antwort,
aber geht nicht.
Liegt das vielleicht daran, dass es keine Tabelle 1, 2 gibt?
Hier ist mein Aufbau in VBA Projektmanager:
Diese Arbeitsmappe
Tabelle3 (Bearbeiternachweis 1Hj)
Tabelle4(Bearbeiternachweis 2Hj)
Tabelle5 (Schießen 1. Hj.)
Tabelle6 (Schießen 2. Hj.)
es geht mir um die benutzung von Autofiltern in Tab5 und 6 sobald ich das Workbook öffne. Geht nicht.
gruss
alex

Versuch mal: For lx = 3 To 4 o.T.
29.02.2008 09:20:49
Uwe
Gruß
Uwe
(:o)

Geht jetzt
29.02.2008 09:32:00
alex
hi nochmal,
jetzt gehts.
Es war nicht der Name oder die Position der Sheets im Projektmanager entscheidend, sonder wo die Sheets in der geöffneten Arbeitmappe tatsächlich liegen, nämlich auf Position 1 und 3.
sieht so aus
Option Explicit

Private Sub Workbook_open()
Dim lx As Long
For lx = 1 To 3
With ThisWorkbook.Sheets(lx)
.Unprotect "passwort"
.Range("A7:P124").Sort Key1:=.Range("A7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
.EnableAutoFilter = True
.Protect "passwort", userinterfaceonly:=True
End With
Next lx
End Sub


geht jetzt.
danke an alle

Anzeige
Nee, oder ?... DataOption in XL2000 ?
29.02.2008 08:56:52
Matthias
Hallo
DataOption in XL2000 löst bei mir aber einen Fehler aus.
Ist, so glaube ich erst in einer höheren Version vorhanden als XL2000. Oder?
Gruß Matthias

AW: Nee, oder ?... DataOption in XL2000 ?
29.02.2008 09:12:36
alex
Hi,
wir haben 11-office 2003.
is das von relevanz?
gruss

Du hast im Kopf die Vers.Office2000 angegeben
29.02.2008 09:34:15
Matthias
Hallo
Ist kein Problem ;o)
Habe es nur versucht nachzubauen, da im Beitragskopf "9 - Office 2000" angegeben war.
Da kam eben bei mir der Fehler. Ich benutze diese Version. In XL2000 gibt es DataOption nicht.
Gruß Matthias

Erledigt!siehe oben
29.02.2008 09:36:28
alex
fehler meinerseits,
lösung 2 Beiträge weiter oben von mir.
Anzeige

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
7
2
3
1
7
8
2
3
6
11
5
5
8
15
3
7
4
4
3
2
7
4
3
4