Abfragefenster "Werte aktualisieren" unterdrücken.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Anton,
prinzipiell mache ich das auch genauso, wie du es beschrieben hast.
In der einen Spalte steht, was kommen sollte und in der anderen Spalte habe ich eine direkte Verknüpfung auf die Datei und Zelle, wo jene Info zu finden ist oder zu finden sein wird. Anschließend vergleiche ich dann. Wenn ich "#Bezug!" als Fehler bekomme, weiß ich ja, dass die Datei noch nicht vorhanden ist. Mir geht es jetzt nur darum, dass wenn ich die Verknüpfungen aktualisiere (und Excel nach den Dateien sucht) Excel mich immer bei jenen Dateien, welche noch nicht da liegen, wo sie liegen sollten mit dem beschriebenen Fenster "nervt" - anstatt einfach nur zu schauen, ob die Verknüpfung aktualisiert werden kann (und wenn ja diese aktualisiert) oder wenn Excel nicht aktualisieren kann (weil die Datei noch nicht vorhanden ist), mich nicht fragt, wo die Datei zu finden ist, sondern einfach nur "still" ist und den Bezugs-Fehler anzeigt. :-)
Lieben Gruß,
Kay.

Hallo Kay,
hier mal ein paar Codes, die an Deine Bedürfnisse anpassen mußt.
-------------------------------------------
Sub a1_Tabellenleerung()
'hiermit werden alte Inhalte gelöscht

Sheets("alle_nicht_gebookmarkt").Select
Range("A2:F60000").Select
Selection.ClearContents
Sheets("alle_gebookmarkt").Select
Range("A2:F60000").Select
Selection.ClearContents
Sheets("gefiltert_nicht_gebookmarkt").Select
Range("A3:F60000").Select
Selection.ClearContents
Sheets("gefiltert_gebookmarkt").Select
Range("A3:F60000").Select
Selection.ClearContents
Sheets("anwesenheitsprüfung").Select
Range("A2:F60000").Select
Selection.ClearContents
Sheets("Suchparameter").Select
Range("C2").Select
End Sub
----------------------------------------------------
Sub b1_DateienFinden_Y()
Sheets("alle_nicht_gebookmarkt").Select
Dim arr As Variant
Dim i As Integer
Sheets("alle_nicht_gebookmarkt").Hyperlinks.Delete
Range("a2:a60000").ClearContents
With Application.FileSearch
.NewSearch
.LookIn = Sheets("Suchparameter").Range("C2").Value
.SearchSubFolders = True
.Filename = Sheets("Suchparameter").Range("C4").Value
.Execute
For i = 1 To .FoundFiles.Count
Sheets("alle_nicht_gebookmarkt").Cells(i + 1, 1) = cutter(.FoundFiles(i))

Sheets("alle_nicht_gebookmarkt").Hyperlinks.Add _
anchor:=Cells(i + 1, 1), _
Address:=.FoundFiles(i)
Next
End With
'MsgBox ("Die Dateien von Y wurden ausgelesen")
End Sub
------------------------------------------------------------
Sub b2_DateienFinden_X()
Sheets("alle_gebookmarkt").Select
Sheets("alle_gebookmarkt").Hyperlinks.Delete
Range("a2:a60000").ClearContents
Dim i As Long
With Application.FileSearch
.NewSearch
.LookIn = Sheets("Suchparameter").Range("C3").Value
.SearchSubFolders = True
.Filename = Sheets("Suchparameter").Range("C4").Value
.Execute
For i = 1 To .FoundFiles.Count
Sheets("alle_gebookmarkt").Cells(i + 1, 1) = cutter(.FoundFiles(i))

Next
End With
'MsgBox ("Die Dateien von X wurden ausgelesen")
End Sub
------------------------------------------------------------


Private Function cutter(Pfad As String) As String
Dim l As Integer
l = InStrRev(Pfad, "\") + 1
cutter = Mid(Pfad, l, 100)
End Function

-------------------------------------------------------------
Sub b3_Dateien_ausfiltern()
'Ausfiltern der gefundenen Dateien
'die noch nicht gebookmarkt sind

Sheets("alle_nicht_gebookmarkt").Select
Range("A2:A60000").Select
Selection.Copy
Sheets("gefiltert_nicht_gebookmarkt").Select
Range("A3").Select
ActiveSheet.Paste
Columns("A:A").Select
Application.CutCopyMode = False
Range("A1:A23").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
'Ausfiltern der gefundenen Dateien
'die bereits gebookmarkt sind
Sheets("alle_gebookmarkt").Select
Range("A2:A60000").Select
Selection.Copy
Sheets("gefiltert_gebookmarkt").Select
Range("A3").Select
ActiveSheet.Paste
Columns("A:A").Select
Application.CutCopyMode = False
Range("A1:A23").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Sheets("Suchparameter").Select

End Sub
--------------------------------------------------
Sub b4_vorbereitenErgebisSeite()
Sheets("anwesenheitsprüfung").Select
Cells.ClearContents

Range("A1").Select
ActiveCell.FormulaR1C1 = "nicht gebookmarkte (neue) Dateien"
Range("B1").Select
ActiveCell.FormulaR1C1 = "OK?"
Range("C1").Select
ActiveCell.FormulaR1C1 = "gebookmarkte Dateien"
Range("D1").Select
ActiveCell.FormulaR1C1 = "-leer-"
Range("E1").Select
ActiveCell.FormulaR1C1 = "Fundstücke"

Sheets("Suchparameter").Select
End Sub
---------------------------------------------------------
Sub b5_Dateien_nebeneinander()
'Holen der gefundenen Server-Dateien von Tabelle1
Sheets("gefiltert_nicht_gebookmarkt").Select
Range("A3:A60000").Select
Selection.Copy
Sheets("anwesenheitsprüfung").Select
Range("A2").Select
ActiveSheet.Paste

'Holen der der gebookmarkten Dateien von Tabelle2
Sheets("gefiltert_gebookmarkt").Select
Range("A3:A60000").Select
Selection.Copy
Sheets("anwesenheitsprüfung").Select
Range("C2").Select
ActiveSheet.Paste

Sheets("Suchparameter").Select
End Sub
-----------------------------------------------------
Sub b6_Formel_einsetzen()
Sheets("anwesenheitsprüfung").Select
formel1 = "=VLOOKUP(RC[-4],C[-2],1,FALSE)"
'einfügen der Vergleichs-Formel
'=SVERWEIS(A2;C:C;1;FALSCH)
formel2 = "=IF(ISBLANK(RC[-1]),"" "",IF(ISERROR(RC[3]),"" 'einfügen der Gefunden-Formel
'=WENN(ISTLEER(A2);" ";WENN(ISTFEHLER(E2);" Range("A2").Select 'BezugsZelle für alle Aktionen = Zelle A2
Do While ActiveCell.Address "$A$65001" 'bis zur Zelle F65001 arbeiten
zell = ActiveCell.Address
If ActiveCell "" Then 'wenn auf eine leere Zelle gestoßen wird

ActiveCell.Offset(0, 4).Select
ActiveCell = formel1 ' Formel wird in Spalte E gleiche Zeile eingetragen
ActiveCell.Offset(0, -3).Select
ActiveCell = formel2 ' Formel wird in Spalte B gleiche Zeile eingetragen
End If
Range(zell).Offset(1, 0).Select
Loop
'beseitigen des LINK-Look
Columns("C:C").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
'Schönheitsoperation: automatische Spaltenbreite
Columns("A:B").Select
Columns("A:B").EntireColumn.AutoFit
'Überschrift Fett
Rows("1:1").Select
Selection.Font.Bold = True
End Sub
------------------------------------------------
Sub c1_rausspeichern_Dialog()

Sheets("anwesenheitsprüfung").Select 'zum Ergebnisblatt

Cells.Select 'alle Zellen markieren
Selection.Copy 'Auswahl kopieren
Workbooks.Add 'neue Excel-Mappe
ActiveSheet.Paste 'Klemmbrett-Inhalt einfügen
Application.CutCopyMode = False 'Klemmbrett säubern
Application.Dialogs(xlDialogSaveAs).Show 'Datei-name abfragen
End Sub
===============================================
Ich hoffe Du kannst Damit etwas anfangen.....
Du siehst vielleicht, daß ich meine Dateien erst öffne,
wenn sie vorhanden sind.
Der Vergleich selbst geschieht nur auf Basis der Datei-Namen.
Servus,
Anton.
PS: Wenn Du von mir noch weitere Kommentare brauchst,
schreibe ich Dir gerne morgen noch ein paar Zeilen oder schick' Dir meine Datei zum Experimentieren.

Beliebteste Forumthreads (12 Monate)

Abfragefenster "Werte aktualisieren" unterdrücken.

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

61 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Abfragefenster "Werte aktualisieren" unterdrücken.

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

61 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread