Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
560to564
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
560to564
560to564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Blattschutz und Range.Select-Problem

VBA: Blattschutz und Range.Select-Problem
07.02.2005 10:42:13
Horst
Hallo,
Ich hab 'n tolles Excel-Workbook gebastelt....
mit Schaltflächen, die auch einen jeweiligen Blatt-
schutz realisieren und zum Folgeblatt springen. Soweit sogut.
Vom letzten Blatt (Unterschrift nach Projektdurchlauf)
möchte ich nun etwas aufs erste Blatt kopieren / verschieben.
"Tabelle8" iat aktuell noch ungeschützt
...
selection.copy
Sheets.("Tabelle1").Select
activesheet.unprotect("passwort")
Range ("c3").Select..................................Fehler 1004, Select für Objekt nicht möglich.
Ich bin etwas ratlos, zumal es "von Hand" (ohne VBA) funzt.
Danke für Eure Hilfe
Horst

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Blattschutz und Range.Select-Problem
07.02.2005 10:53:58
Eleni
Hi Horst,
Vielleicht ist das mit dem Passwortschutz so aufzuheben (xyz = Passwort):
Sheets("Tabelle1").Activate
If ActiveSheet.Protect Then ActiveSheet.Unprotect password:="xyz"
ActiveSheet.Range("C3").Copy
...
Ciao, Eleni
AW: VBA: Blattschutz und Range.Select-Problem
07.02.2005 10:58:36
Thom@sCH
Hallo Horst
Der Code wechselt in das Tabellenblatt 1, welches vermutlich geschützt ist.
Sheets("Tabelle1").Select
Gruss
Thoams
AW: VBA: Blattschutz und Range.Select-Problem
07.02.2005 11:06:55
Horst
Hallo,
Beides negativ:
Thom@s: In der nächsten Zeile mache ich doch das Unprotect für Blatt 1 (Blatt 8 ist noch ungeschützt)
Eleni: Wenn ich das Makro nach Fehlermeldung abbreche und Extras-Schutz aufrufe ist das Blatt entsperrt !!
Horst
Anzeige
AW: VBA: Blattschutz und Range.Select-Problem
07.02.2005 11:14:11
Eleni
Hi Horst,
Am Ende vom Makro muss stehen:
Sheets("Tabelle1").Protect password:="xyz"
Ciao, Eleni
AW: VBA: Blattschutz und Range.Select-Problem
07.02.2005 11:15:20
Thom@sCH
Hallo Horst
Was ist mit dem Punkt "Sheets.("Tabelle1").Select"
Ist das ein Schreibfehler? Wenn ja, nimm den mal weg, sonst gibts Syntaxfehler.
Gruss
Thomas
AW: VBA: Blattschutz und Range.Select-Problem
Kurt
man Jungs,
lasst doch endlich mal dieses blöde select weg, ansonsten seid ihr nie sicher welches Blatt nun das ActiveSheet ist, also:
Sheets("Tabelle1").Unprotect ("passwort")
und auch beim kopieren muss man den Cursor nicht hin und her hetzen
...und Tschüss Kurt
AW: VBA: Blattschutz und Range.Select-Problem
07.02.2005 12:08:32
Horst
Hallo,
@eleni:_Im Makro von Blatt 1 (beim ersten Schützen) steht dieser Eintrag schon drin
________Im Makro von Blatt 8 kann ich den Schutz per sheets("tabelle1").unprotect("xyz")
________auch aufheben, nur schlägt das Select trotzdem fehl. Muss irgend ein Bug sein
________(von Hand geht's ja !). Ich dachte, es hätte jemand einen workaround.
@Thom@s: Der Punkt war nur hier in diesem Schreiben zu viel, im Makro lässt das der
_________VBA-Parser ja gar nicht zu (Syntaxfehler).
@Kurt:__Wie mache ich in der Zieltabelle denn ein "Paste", wenn ich die Zelle vorher
________nicht auswähle ?, Ich brauch schon select !!! (Vielleicht nicht so oft aber
________spätestens, wenn ich die Einfügezelle auswähle)
Horst
Anzeige
AW: VBA: Blattschutz und Range.Select-Problem
Ulf
Zum Kopieren musst du nichts selektieren:
Sheets("Tab1").unprotect
selection.copy Sheets("Tab1").[b3]
Sheets("Tab1").protect
Ulf
AW: VBA: Blattschutz und Range.Select-Problem
Kurt
wozu braucht man ein select ?
Worksheets("Tabelle1").Range("A1").Copy Destination:=Worksheets("Tabelle2").Range("F1")
AW: VBA: Blattschutz und Range.Select-Problem
07.02.2005 13:26:46
Horst
Yepp,
das war der workaround, den ich gesucht habe,
Danke es funzt
Horst
Danke für die Rückmeldung
Kurt
lol
workaround *grins*
...und Tschüss Kurt

304 Forumthreads zu ähnlichen Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
ActiveCell.Copy Sheets("tabelle1").Range("A20")
Karsten

Hallo...
kann mir jemand u.st. Code so ändern, dass nicht nur die aktive Zelle, sondern ein markierter Bereich nach A20 kopiert wird?
Geht es, statt die Zellen ab Zeile 20 zu überschreiben, den kopierten Bereich einzufügen bzw. ab Zeile 20 erst mal die nötige Anzahl Zeilen einzufügen?
15.09.2010 21:10:06
Thread-ID: 1177926
6 Beiträge
UsedRange, jedoch beginnend ab A1 markieren
Peter

Guten Tag
Ich möchte untenstehende Codezeilen erweitern, dass der selektierte Bereich immer aber A1 beginnt, auch wenn in Spalte A resp. Zeile 1 kein Eintrag sein sollte.
Beispiel: UsedRange = C13:CA39
Gewünschte Selektion = A1:CA39
Wie muss der Code angepasst werden?
Danke...
21.09.2010 11:07:19
Thread-ID: 1178700
13 Beiträge
Anzeige
Text in Range während Eingabe per VBA analysieren?
Max

Hallo zusammen,
ist es möglich während der Texteingabe in einem normalen Rangefeld, den Input zu erfassen und ggf. mit Makros zu reagieren?
Ich weiß, daß ich dies früher über eine Form bzw. Objekt möglich war, kann aber auch hierzu nichts mehr finden. Kann ich für meinen normale Rangefe...
21.03.2012 13:49:05
Thread-ID: 1255910
4 Beiträge
Verketten von Zellen per VBA aber nicht in Range..
Zellen

Also,
ich hab mir gerade im Archiv so allerlei angeschaut, und das ist auch alles ganz toll, aber leider nur bedingt was ich suche.
Ich benötige eine VBA Function die nur verkettet wenn die Zelle gefüllt ist, und dann ein _ Trennzeichen setzt. Soweit so gut da gibts schon ein Dutzend...
09.09.2012 19:50:54
Thread-ID: 1277932
6 Beiträge
(ActiveSheet.UsedRange.Rows.Count) zählt falsch
Marc

Hallo zusammen,
ich habe ein Problem mit dem ich einfach nicht weiterkomme....
Ich kopiere mittels Makro Daten wild hin und her und entferne Duplikate. Da sich nach der Entfernung der Duplikate die Anzahl der Zeilen doch massiv reduziert möchte ich mit dem Befehl
msg2 = (ActiveSheet...
31.05.2013 11:10:38
Thread-ID: 1315676
10 Beiträge
UsedRange.find macht Mätzchen
Albert

Guten Abend zusammen,
ich verwende diese Codezeile, um ein Datum in einem Sheet zu suchen... Sub Codeschnipsel() Set k = Sheets("Regelschichtplan").UsedRange.Find(What:=CDate(ZSVerwaltung.TextBox3.Text), _ After:=Cells(1, 1), LookIn:=xlFormulas, lookat:=xlWhole, searchorder:=xlByRows) End...
14.01.2014 20:13:38
Thread-ID: 1345230
3 Beiträge
VBA Hyperlink einer Range/ einem Bild zuweisen
Dokadan

Moin,
ich habe folgenden Code geschrieben:
Set LogoRange = .Range(.Cells(Hoehe * (Zeile - 1) + 12, Breite * (Spalte - 1) + 1), _
.Cells(Hoehe * (Zeile - 1) + 13, Breite * (Spalte - 1) + 2))
Set Logo = .Pictures.Insert(Firma_Logo)
With Logo
.ShapeRange.LockAspectRat...
14.04.2014 18:14:15
Thread-ID: 1357289
3 Beiträge
Anzeige

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
3
6
5
12
12
3
5
9
2
2
8
1
8
3
3
2
3
3
3
4
7
3
2
1
12