@Matthias G: Noch ein paar Änderungen und Fragen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Daniel,
Das Makro würde ich doch lieber gerne manuell per Knopfdruck starten und nicht wie im Beispiel automatisch nach dem Öffnen der Datei.
Soll "per Knoopfdruck" die automatische, zeitgesteuerte Aktualisierung laufen oder jede einzelne Aktualisierung?
_____________________________________________________________________________________
Dafür soll beim Öffnen der Datei eine Messagebox kommen.
Ein MsgBox? D.h. eine Abfrage, ob aktualisiert weren soll? Oder ob die zeitgesteuerte Aktualisierung eingeschaltet werden soll?
_____________________________________________________________________________________
Hat das Blatte "Namen" ein spezielle Funktion? Zieht er sich da die Dateinamen?
Falls ja: Wo kann ich das im Code auf ein anderes Blatt abändern?
Ja, die Dateinamen holt es sich hieraus. Es wird dazu die Variable "n" benutzt. Hier mal die relevanten Bestndteile des Makro "Kopieren":


Sub Kopieren()
Dim i As Integer, n As String
i = 1
n = ThisWorkbook.Sheets("Namen").Cells(i, 1) 'n = Blatt Namen, Zelle A1
Do While n <> "" 'Schleifenabbruch, wenn Zelle leer
i = i + 1                                    'Zeile hochzählen
n = ThisWorkbook.Sheets("Namen").Cells(i, 1) 'Variable n neu zuweisen (A2, A3,...)
Loop
End Sub

_____________________________________________________________________________________
Wie mache ich das wenn ich neue Dateien hinzufügen möchte, aus denen Daten geholt werden? Was muss ich im makro ändern?
Du kannst die Dateinamen (ohne ".xls") ins Tabellenblatt "Namen", Spalte A schreiben. Keine Leerzellen lassen, sonst bricht das Makro ab (siehe Codeausschnitt oben).
Gruß Matthias

'führt Prozedur "Kopieren" aus und bibt Excel Startzeit für die nächste Ausführung an: Sub StartTimer() StopTimer '<<<< NEU: evtl. schon vorhandene OnTime-Anweisung löschen NextTime = Now + TimeValue("00:01:00") 'alle 60 Minuten Kopieren Application.OnTime NextTime, "StartTimer" End Sub

'führt Prozedur "Kopieren" aus und bibt Excel Startzeit für die nächste Ausführung an: Sub StartTimer() StopTimer NextTime = Now + TimeValue("00:01:00") 'alle 60 Minuten Kopieren Berechnen '<<<<<<<<<<<<<< oder wie die Sub auch heißt Application.OnTime NextTime, "StartTimer" End Sub

Hallo Daniel,
Wenn ich beim Öffnen der Datei auf "Nein" drücke, und einige Zeit später das Makro manuell per Button ausführe, dann wird es nur einmal ausgeführt.
Kommt drauf an, welches Makro. "StartTimer" nicht...
-----------------------------------------------------------
Wenn ich beim Öffnen der Datei mit "Ja" bestätige, so starter das Makro.
Allerdings scheint es so zu sein, dass ich, wenn ich die UserForm nicht schließe, das Makro kein Update macht. Ist das korrekt?
Das würde ich gerne ändern. Auch ohne Bestätigung sollen Updates gemacht werden.
ersetze


If UserForm1.Visible = True Then Exit Sub 'keine Aktalisierung, wenn letzte Meldung noch nicht weggedrückt

durch:


If UserForm1.Visible = True Then Unload UserForm1

Gruß Matthias

Beliebteste Forumthreads (12 Monate)

@Matthias G: Noch ein paar Änderungen und Fragen

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

@Matthias G: Noch ein paar Änderungen und Fragen

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread