Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
980to984
980to984
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code wird doppelt durchlaufen

Forumthread: Code wird doppelt durchlaufen

Code wird doppelt durchlaufen
01.06.2008 17:48:00
Harald
Hallo,
vorab die Info, dass ich folgendes Programm zu Hause mit Excel 2003 bearbeite, in der Firma aber nur Excel97 installiert ist.
https://www.herber.de/bbs/user/52739.xls
Mit diesem Programm möchte ich erreichen, dass beim "Speichern" bzw. "Speichern unter" immer die Originaldatei gespeichert wird und zusätzlich eine Sicherungskopie in einem Unterverzeichnis.
mit meinem hochgeladenen Code kommt aber die Inputbox (in der das Datum noch geändert werden kann), immer zwei mal.
Wie kann ich das abstellen?
m.f.g.
Harald

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code wird doppelt durchlaufen
01.06.2008 19:40:34
Hajo_Zi
Hallo Harald,
im Forum solltest Du keine Datei mit einer Signatur hochladen.
Ohne Testung.

Option Explicit
Dim BoZu As Boolean
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) _
As Long
Public Pfad As String                               ' Verzeichnis für Originaldatei
Private Sub Workbook_Open()
Pfad = ThisWorkbook.Path
'            ThisWorkbook.Sheets("Tabelle1").Cells(50, "Z").Value = ThisWorkbook.Path
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If BoZu = True Then Exit Sub
BoZu = True



Anzeige
AW: Code wird doppelt durchlaufen
01.06.2008 19:49:49
Harald
Hallo Hajo,
so habe ich das schon versucht, aber das funktioniert nur beim ersten speichern der Datei - wenn ich später erneut speichern möchte, ist der Wert schon auf True gesetzt und ich kann nicht erneut speichern.
trotzdem vielen Dank für die Mühe.

AW: Code wird doppelt durchlaufen
01.06.2008 19:53:09
Hajo_Zi
Hallo Harald,
setze ihn vor End Sub wieder auf false
Gruß Hajo

Anzeige
AW: Code wird doppelt durchlaufen
01.06.2008 20:20:00
Harald
Hallo Hajo,
vielen Dank - so funktioniert es! Jetzt hoffe ich nur, dass ich morgen unter Excel 97 damit keine Probleme habe.
M.f.G.
Harald

AW: Code wird doppelt durchlaufen
01.06.2008 19:41:00
Franc
hmm eigentlich nur doppelt ab der Stelle wo du deine Arbeitsmappe speicherst.
Versuchs mal so (mit event ausschalten, führt er beim speichern von dem Workbook nicht nochmal die beforesave routine aus)
Application.EnableEvents = False
ThisWorkbook.SaveAs strVerzeichnisOriginal & "\" & strDateiOriginal
Application.EnableEvents = True

Anzeige
AW: Code wird doppelt durchlaufen
01.06.2008 20:28:27
Harald
Hallo Franc,
auch mit deiner Version funktioniert es!
Ich musste nur noch Application.DisplayAlerts = False / True einfügen
Vielen Dank für deine Hilfe.
;

Forumthreads zu verwandten Themen

Durchlaufende numerierung beim kopieren bereich
Karel

Guten abend Forum,
habe letzte mal mit hilfe von euch ein bestimmtes bereich x mal Kopieren in anderes Tabelleblatt Etikett_print gemacht.
zusatz frage:
wie kan man noch eine durchlaufenden nummerierung machen beim Kopieren in Tabelleblat Etikett_print
anzahl durch eingabe in G3...
10.09.2008 20:31:33
Thread-ID: 1008914
5 Beiträge
Liste mit Kostenstellen durchlaufen u. abspeichern
Bernd

Liebe Freaks,
ich wäre Euch sehr dankbar für ein Makro, dass nachstehende Aufgabe abarbeitet:
Ich bitte um ein Makro, dass alle Gültigkeitswerte aus der Zelle C13 durchläuft und nach jeder Auswahl !A" bis "H" den Wert unter "C:\Kostenstellenblätter" abspeichert.
Mit...
25.12.2008 11:29:01
Thread-ID: 1035169
13 Beiträge
Durchlaufen von Makros verhindern
Makros

Hallo,
ich wüsste gerne, warum ein Makro einfach zwischendurch andere Makros durchläuft und würde das gerne abstellen.
So z.B. möchte ich mit einem Makro in einem Userform alle Einträge in den Feldern löschen. Ein anderes Makro pfüft, ob in einem Feld etwas steht und führt dann eine Akt...
17.01.2009 13:45:21
Thread-ID: 1040892
10 Beiträge
Zeilen durchlaufen und Wert rausholen und kopien
Loen

Hallo Excel Gemeinde,
wie kann ich denn folgende Abfrage per Makro machen:
(Das Ergebnis soll nachher in B34 stehen)
Wenn im Tabellenblatt "Deckblatt" die Zelle C34 leer ist, NICHTS machen.
Wenn im Tabellenblatt "Deckblatt" die Zelle C34 NICHT leer ist, soll dieser Eintrag (C34)...
03.02.2009 20:48:41
Thread-ID: 1046782
5 Beiträge
Anzeige
Spalte durchlaufen und multiplitzieren
Roland

Hi,
wie kann ich die Spalte S mit einem Makro von 5 bis 1000 durchlaufen und dabei jeden gefundenen Wert mit 5 multiplitzieren ?
Danke Roland
08.02.2009 23:55:26
Thread-ID: 1048526
5 Beiträge
Spalte mit Schleife durchlaufen und Daten ergänzen
Kai

Hi
ich möchte mit einem Makro (keine Formel) die Spalte C durchsuchen. Wenn in dieser Spalte der Text "IN" gefunden wird , soll ich der gleiche Zeile in Spalte V "Eingang" stehn, Wenn in Spalte C "OUT" gefunden wird , dann soll in V "Ausgang" stehn. Ist C leer, dann V auch leer lassen.
10.03.2009 13:20:41
Thread-ID: 1058636
8 Beiträge
Spalte durchlaufen, Doppel suchen, dann Eintrag
Mandy

Hi,
ich möchte per VBA in meinem Sheet "Ablage" die Spalte E durchsuchen. Dort sind Datensätze mit gleichen Einträgen drin. (Mehrfache) Sind aber nicht immmer untereinander und ich weis nur, mein Range geht bis 750
Überall, wo ich in E mindestens 2 gleich finde, soll in Spalte L in der...
09.04.2009 15:56:44
Thread-ID: 1068053
13 Beiträge
Anzeige
Arbeitsblätter durchlaufen und Inhalt sortieren
Thomas

Hallo Spezialisten,
mit folgendem Code formatiere ich alle Arbeitsbätter in einer Datei. Ich will d. Code so erweitern, dass die in allen Arbeitsblättern enthaltenen Tabellen nach Spalte A aufsteigend sortiert werden. Aber es wird nur die Tabelle im ersten Blatt sortiert. Was mache ich fal...
13.08.2009 23:17:30
Thread-ID: 1095833
3 Beiträge
Ständiges Durchlaufen von Makros verhindern
Makros

Hallo,
ich hatte es schon mal gesehen, kann es aber gerade nicht wiederfinden.
Welche Fuknktion verhindert, dass ständig ein Makro (by Change) durchlaufen wird.
Wäre toll, wenn mir da jemand helfen könnte.
Viele Grüße,
Larissa
30.09.2009 21:11:11
Thread-ID: 1106546
3 Beiträge
Anzeige
Spalten durchlaufen, wenn leer, löschen
Joachim

Hallo,
Ich möchte per Makro mein Datenbestand überprüfen: ab Zeile 20 sollen alle Zeilen überprüft werden , ob entweder die Zelle B UND Zelle L leer sind.
Wenn beide leer sind, soll diese Zeile gelöscht werden. Und weiter gehts...
Hat dazu jemand ein Beispiel ?
Dank Euch mal
03.11.2009 14:39:29
Thread-ID: 1114151
5 Beiträge
Speichern wird 2 mal durchlaufen, Fehlermeldung
DirkR

Hallo Excelgemeinde,
ich habe (leider) noch ein Problem und bitte um eure Hilfe.
Ich habe folgenden Code: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim DVD As String, CDFront As String, CDBack As String DVD = Sheets("DVD Cover").Cells(1, 2) MsgBox DVD...
22.03.2010 10:03:39
Thread-ID: 1147512
3 Beiträge
Anzeige
numberformat wird durchlaufen aber n. zugewiesen
Peter

Guten Tag
https://www.herber.de/bbs/user/71355.xls
Je nach Eingabe der Währung in Zelle J5 einer Tabelle (JPY oder CHF) sollen bestimmte Zellen anders formatiert werden. Bei einer Änderung wird nachstehender Code wirklilch durchlaufen (mit Haltepunkten überprüft), doch die Zellformate...
02.09.2010 11:45:37
Thread-ID: 1175416
13 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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