Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1720to1724
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
1720to1724
1720to1724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kleiner Fehler im VBA Code

Kleiner Fehler im VBA Code
07.11.2019 11:12:35
End
Hallo Zusammen,
ich hab folgendes Problem. Ich möchte Bei Öffnen der Arbeitsmappe den Blattschutz aufheben, das Makro ausführen und das Blatt wieder schützen. Alles funktioniert bestens bis die die Zeile "Protect" dazu kommt. Er sperrt das Blatt zwar wieder, aber der Code läuft nicht mehr. Hat jemand ne Ahnung woran es liegt ? Dankeschön ;) 
Private Sub Workbook_Open()
Worksheets("Daten").Unprotect "250585"
Dim C As Object
Sheets(1).Range("M8").Select
For Each C In Selection
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next C
Worksheets("Daten").Protect "250585"
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Kleiner Fehler im VBA Code
07.11.2019 11:27:05
EtoPHG
Hallo,
Zitat:Er sperrt das Blatt zwar wieder, aber der Code läuft nicht mehr.
Welcher Code? Nach Protect ist der Code ja fertig!
Gruess Hansueli
Sheets(1) oder Sheets("Daten") neu berechnen ?
07.11.2019 11:35:12
NoNet
Hallo End,
was soll das Ganze denn bewirken ? - Eine Neuberechnung der Zelle M8 ?
Der Code entsperrt zunächst das Blatt "Daten", editiert dann die Zelle M8 auf dem ersten Blatt und sperrt danach das Blatt "Daten" wieder. Ist das so gewollt ? - Ist das Blatt "Daten" das erste Blatt ?
Du könntest auch einfach das Blatt "Daten" neu berechnen lassen : 
WorkSheets("Daten").Calculate
Salut, NoNet

Hast Du Interesse, andere Excel-Begeisterte kennenzulernen ? - Dann komme zum

Exceltreffen 12.-14.06.2020 in Freiberg/Sachsen

http://www.exceltreffen.de/index.php?page=291


Anmeldungen sind noch bis 31.03.2020 möglich ! - Schau doch mal rein !


Anzeige
AW: Sheets(1) oder Sheets("Daten") neu berechnen ?
07.11.2019 11:51:22
End
Hi, alles was du schreibst ist genau richtig. Entsperrt, berechnet die Zelle neu, sperrt wieder. Aber das neu berechnen klappt nicht wenn die Protect Zeile drin ist ?!
AW: Sheets(1) oder Sheets("Daten") neu berechnen ?
07.11.2019 12:38:57
End
"Du könntest auch einfach das Blatt "Daten" neu berechnen lassen :
WorkSheets("Daten").Calculate"
Aber auch da müsste der Blattschutz kurz aufgehoben werden. Ich weiß der Code ist nicht super, ich kenn mich auch nicht wirklich gut aus im VBA Thema, aber er läuft. Also Das neuberechnen der Zelle M8 zumindest :D
AW: Kleiner Fehler im VBA Code
07.11.2019 11:39:24
Piet
Hallo
mir faellt noch eine "Kleinigkeit" an deinem Code auf, was ggf. schweren Aerger bringen könnte!
Worksheets("Daten").Unprotect "250585" - Vor der For Next Schleife steht: Sheets(1).Select
Sind Sheets(1) und Worksheets("Daten") identisch? Wenn Nein warum dann Protect und Unprotect?
Weiterhin faellt mir eine For Next Schleife über Selection auf, es ist aber nur eine Zelle selektiert! Warum macht man dann eine For Next Schleife? Alles irgendwie technisch nicht 100% logisch ....
mfg Piet
Anzeige
AW: Kleiner Fehler im VBA Code
07.11.2019 11:55:25
Daniel
Hi
mal unabhängig von der Sinnhaftigkeit dieses Codes, welche ja schon angesprochen wurde:
bei Makros im Workbooks.Open-Event hat man generell das Problem, dass der Prozess des Öffnens der Datei noch nicht vollständig abgeschlossen ist, wenn das Makro läuft.
das kann dann bei manchen Aktionen zu Problemen führen.
in diesem Fall kann man das Problem lösen, in dem man den auszuführenden Code in ein Makro in einem allgemeinen Modul schreibt und dann dieses Makro aus dem Workbook-Open-Event heraus mit Application.OnTime aufruft.
Per Application.Ontime gestartete Makros laufen immer erst dann los, wenn alle laufenden Prozesse abgeschlossen sind, so dass solche Konflikte dann nicht auftreten.
Gruß Daniel
Anzeige
AW: Kleiner Fehler im VBA Code
07.11.2019 12:36:39
End
Ich bin leider nicht al zu gut im VBA Thema. Wie müsste es denn aussehen damit es evtl funktioniert ?
AW: Kleiner Fehler im VBA Code
07.11.2019 13:55:57
Daniel
HI
das Application.Ontime würde so ausssehen:
im Modul DieseArbeitsmappe 
Private Sub Workbook_Open()
Application.Ontime Now, "DeinMakro"
End Sub
im Modul "Modul1" 
Public Sub DeinMakro()
Worksheets("Daten").Unprotect "250585"
Dim C As Object
Sheets(1).Range("M8").Select
For Each C In Selection
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next C
Worksheets("Daten").Protect "250585"
End Sub
Gruß Daniel
Anzeige
AW: Kleiner Fehler im VBA Code
08.11.2019 06:31:19
End
Guten Morgen,
genau wie vorher auch funktioniert alles bis die Zeile
Worksheets("Daten").Protect "250585"
dazu kommt ! Ich versteh das nicht.
AW: Kleiner Fehler im VBA Code
08.11.2019 10:18:35
Daniel
Hi
sorry, kann ich nichts zu sagen.
bei mir funktioniert das Makro.
auch mit dieser Zeile.
Gruß Daniel
AW: Kleiner Fehler im VBA Code
08.11.2019 12:42:18
Piet
Hallo
stimmt denn dein Sheet "Daten", gibt es da kein versehentliches Space vorne oder am Ende?
Mein letzter Vorschlag, der manchmal geholfen hat, den ich aber Technisch NICHT erklaeren kann. Kopiere bitte mal mit Ctrl C den Namen der Tabelle "Daten", und füge ihn mit Ctrl V in den Code ein! Hört sich verrückt an dass das helfen kann, habe ich in der Praxis aber schon erlebt.
Erklaeren warum er danach lief konnte ich nicht.Da zuckt man nach 20 Jahren Programmieren nur die Schultern und sagt: - "iss einfach so"! Haben fertig ...
mfg Piet
Anzeige

304 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Anzeige
erzwungener zeilenumbruch in Zelle
Lars

Hallo,
obwohl ich schon viel mit Excel gemacht habe, tauchen doch immer wieder Fragen auf:
Gibt es eine Möglichkeit, in einer Zelle einen Zeilenumbruch manuell einzufügen, ohne dass man bereits am Zellenende ist?
Ich denke, dass ist eine eher dumme Frage, aber ich habe derzeit keine...
02.10.2008 15:40:00
Thread-ID: 1013906
4 Beiträge
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Code per VBA in "Diese Arbeitsmappe"
Timo

Hallo,
mir ist bekannt, wie ich per VBA ein neues Modul anlegen und eine Sub erzeugen kann.
Ich möchte nun aber per VBA eine sub in "Diese Arbeitsmappe" erzeugen und mit einer zweiten Prozedur wieder löschen.
Geht das?
Ich habe im Archiv nichts relevantes hierzu gefunden.
V...
29.10.2008 11:37:00
Thread-ID: 1020207
6 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 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
16
5
3
7
4
3
12
5
2
1
2
7
6
2
5
3
2
2
4
2
4
4
7
4
4