Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Automatische Aktualisierung mit VBA

Automatische Aktualisierung mit VBA
20.10.2006 12:19:05
MartinCH
Hallo die Damen und Herren VBA Spezialisten
Es will nicht klappen, alles habe ich nun versucht, doch es will einfach nicht.
Mit untenstehendem Makro öffne ich eine Datei im Netz und befülle diese mit Daten. Danach sollte die Datei automatisch einen MS Querry laufen lassen und die Ergebnisse anzeigen. Nun das geht auch wie gewünscht, leider kann ich diese Abfrage aber nicht mit einem Makro komplett ablaufen lassen, es wird beim öffnen der Datei eine Meldung angezeigt welche immer zuerst angeklickt werden muss, bevor die Daten aktualisiert werden.
Ist das nicht mit einem VBA Befehl möglich?
das habe ich alles versucht:
Selection.QueryTable.Refresh BackgroundQuery:=False
ActiveWorkbook.RefreshAll
Calculate
aber eventuell nicht richtig angewendet.


Sub Orderset_prüfen()
Dim Art_Nr
Dim KD_Nr
    Art_Nr = Range("U13").Value
    KD_Nr = Range("S1").Value
    'jetzt wird eine Abfragedatei geöffnet welche mit MS-Querry eine SQL Abfrage startet.
    Workbooks.Open Filename:="G:\SAP\SAPA\04-DM-Tools\Orderset.xlt", UpdateLinks:=3
    'leider muss hier immer die Meldung "Automatische Aktualisierung Aktivieren" manuell angeklickt werden.
    'kann man das nicht automatisieren?
    Workbooks("Orderset.xls").Sheets("Orderset").Range("A3").Value = Art_Nr
    Workbooks("Orderset.xls").Sheets("Orderset").Range("D3").Value = KD_Nr
End Sub


Danke Euch allen die es eventuell wisst wie es geht....;0)
MartinCH
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatische Aktualisierung mit VBA
20.10.2006 12:25:56
Uduuh
Hallo,
es wird beim öffnen der Datei eine Meldung angezeigt
Welche Meldung?
Gruß aus’m Pott
Udo

AW: Automatische Aktualisierung mit VBA
20.10.2006 12:34:54
MartinCH
Hallo Udo
Diese Meldung:
Userbild
Übrigens die Option in den "Extras/Optionen/Bearbeiten/Aktualisieren von automatischen Verknüpfungen bestätigen" habe ich bereits deaktiviert. Hilft nichts.
Gruss aus Liechtenstein voll in der Sonne! ;0)
MartinCH
Anzeige
AW: Automatische Aktualisierung mit VBA
Orakel
Hallo Martin,
öffne die Datei nicht direkt, sondern über den Umweg einer 2.(Zwischendatei). In dieser Dummydatei folgenden Code in diese Arbeitsmappe. (Pfade und Dateinamen anpassen).
Private Sub Workbook_Open()
Dim Pfad, Datei, Dateiname As Variant
Application.ScreenUpdating = False
Application.AskToUpdateLinks = False
Pfad = "G:\SAP\SAPA\04-DM-Tools" 'Pfade anpassen
Datei = "Orderset.xlt" 'Dateiname anpassen
Dateiname = ActiveWorkbook.Name 'merken Aktuelle Datei
    Workbooks.Open Filename:=Pfad & Datei
    Windows(Dateiname).Activate 'Zurückschalten in Ursprungsdatei
Application.AskToUpdateLinks = True
Application.ScreenUpdating = True
    ActiveWorkbook.Close
End Sub
Gruß
Orakel
Anzeige
AW: Automatische Aktualisierung mit VBA
23.10.2006 07:37:23
MartinCH
Hallo Orakel
Das ist es, es hat genügt, wenn ich das application.asktoupdatelinks = false / true
vor meinen script gesetzt habe. Danke bestens.
Gruss
MartinCH
Der Weg ist das ZIEL......
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Automatische Aktualisierung mit VBA in Excel


Schritt-für-Schritt-Anleitung

Um Daten in Excel automatisch zu aktualisieren, kannst du ein Makro verwenden, das die automatische Aktualisierung von Verknüpfungen steuert. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.

  2. Erstelle ein neues Modul:

    • Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)".
    • Wähle "Einfügen" und dann "Modul".
  3. Füge den folgenden Code ein:

    Private Sub Workbook_Open()
       Application.AskToUpdateLinks = False ' Deaktiviert die Aktualisierungsabfrage
       Workbooks.Open Filename:="G:\SAP\SAPA\04-DM-Tools\Orderset.xlt", UpdateLinks:=3
       Application.AskToUpdateLinks = True ' Aktiviert die Abfrage nach dem Öffnen
    End Sub
  4. Speichere deine Datei als Makro-fähige Arbeitsmappe (.xlsm).

  5. Schließe den VBA-Editor und teste das Makro, indem du die Datei öffnest.

Durch das Setzen von Application.AskToUpdateLinks = False wird die Meldung zur automatischen Aktualisierung deaktiviert, sodass die Daten ohne manuelles Eingreifen aktualisiert werden.


Häufige Fehler und Lösungen

  • Problem: Die Meldung zur Aktualisierung erscheint trotzdem.

    • Lösung: Stelle sicher, dass du den Application.AskToUpdateLinks = False Befehl vor dem Öffnen der Datei gesetzt hast.
  • Problem: Das Makro wird nicht ausgeführt.

    • Lösung: Überprüfe, ob Makros in deinen Excel-Einstellungen aktiviert sind.
  • Problem: Daten werden nicht aktualisiert.

    • Lösung: Vergewissere dich, dass die Datei, die du öffnest, keine zusätzlichen Berechtigungen benötigt.

Alternative Methoden

Wenn das oben genannte Makro nicht die gewünschten Ergebnisse liefert, kannst du auch folgende Methoden ausprobieren:

  • Verwendung von MS Query: Du kannst eine Abfrage in Excel einrichten, die beim Öffnen der Datei automatisch aktualisiert wird.
  • Daten aus dem Internet automatisch aktualisieren: Nutze die Funktion "Daten abrufen" in Excel, um Daten aus dem Internet zu importieren und automatisch zu aktualisieren.

Praktische Beispiele

Hier ist ein Beispiel, das zeigt, wie du Daten aus SAP in Excel automatisch aktualisieren kannst:

Sub DatenAusSAPAktualisieren()
    Application.AskToUpdateLinks = False
    Workbooks.Open Filename:="G:\SAP\SAPA\04-DM-Tools\Orderset.xlt", UpdateLinks:=3
    ' Hier können weitere Datenverarbeitungen folgen
    Application.AskToUpdateLinks = True
End Sub

Mit diesem Makro öffnest du die SAP-Datei und aktualisierst die Daten, ohne dass du manuell bestätigen musst.


Tipps für Profis

  • Nutze BackgroundQuery:=True, um die Aktualisierung im Hintergrund auszuführen, sodass du Excel weiterhin verwenden kannst.
  • Setze regelmäßige Updates in den Excel-Einstellungen, um die Daten automatisch zu aktualisieren, wenn die Datei geöffnet wird.
  • Teste deine Makros regelmäßig, um sicherzustellen, dass sie wie erwartet funktionieren.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass mein Makro beim Öffnen der Datei ausgeführt wird?
Setze das Makro im Workbook_Open() Ereignis, damit es automatisch beim Öffnen der Datei ausgeführt wird.

2. Was kann ich tun, wenn ich Daten aus dem Internet automatisch aktualisieren möchte?
Du kannst die "Daten abrufen"-Funktion in Excel verwenden, um Datenquellen anzugeben und die Aktualisierung zu automatisieren.

3. Was sind die Vorteile der automatischen Aktualisierung in Excel?
Die automatische Aktualisierung spart Zeit, reduziert manuelle Fehler und stellt sicher, dass du immer mit den aktuellsten Daten arbeitest.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige