Hallo,
mit Hilfe von diesem Forum habe ich ein Makro geschrieben, womit ich aus mehreren Datein bestimmte Zeilen auslese, und diese in einer Datei zusammentrage.
Jetzt habe ich noch folgendes Problem. Wenn die Datein zum Auslesen geöffnet werden, kommen 3 Fenster mit Meldungen:
- Fenster mit Hinweis auf Schreibschutz
- Fenster mit Hinweis, dass Datei Verknüpfungen auf andere Datenquellen hat
- Fenster mit Hinweis, dass eine Verknüpfung nicht aktualisiert werden kann
Da ich an der Ursache nichts ändern kann, also Schreibschutz, Verküpfung, etc. aufheben, wollte ich mal fragen, ob es auch Möglichkeiten gibt, diese Fenster automatisch zu beantworten!
Wenn mir jemand helfen kann, dann schon einmal danke!
Gruß
Ingmar
hi,
wenn dein code nicht zu geheim 
ist könntest du ihn ja mal posten
dann fällt uns garantiert eher was ein
als Anfang probier mal:
Application.DisplayAlerts = False
aber nicht vergessen das Ding wieder einzuschalten
Application.DisplayAlerts = True
cu Micha
Hallo Micha,
mit deinem Tip wurde die Anzahl der Fenster schon mal auf ein Fenster reduziert. Dafür Danke. Mein Code ist nicht geheim und deshalb hier aufgelistet:
Sub werteausGEF()
Const QuelleTabellenName = „1“
Dim dateipfad As String
Dim Quellspalte As Integer
Dim Quellzeilea As Integer
Dim Quellzeilee As Integer
Dim Zielspaltea As Integer
Dim Zielspaltee As Integer
Dim Zielzeile As Integer
Dim SuchdatNam As String
Dim Ausgabeblatt As Worksheet
Dim GefDatName As String
Dim Inputdatei As Workbook
Dim y As Integer
Dim X As Integer
Dim datumsspalte As Integer
Sheets(„Produktion“).Activate
dateipfad = [S3]
Quellspalte = [R5]
Quellzeilea = [R6]
Quellzeilee = [T6]
Zielspaltea = [R7]
Zielspaltee = [T7]
Zielzeile = [R8]
datumsspalte = [R9]
X = 1
y = Zielspaltea
Application.DisplayAlerts = False
SuchdatNam = „??.??.??“ & „.xls“
Set Ausgabeblatt = ThisWorkbook.Worksheets(„Produktion“)
GefDatName = Dir(dateipfad & SuchdatNam)
While Not GefDatName = „“
Set Inputdatei = Workbooks.Open(dateipfad & GefDatName)
With Ausgabeblatt
.Cells(Zielzeile, datumsspalte) = Left(GefDatName, 8)
For X = Quellzeilea To Quellzeilee
.Cells(Zielzeile, y) = Inputdatei.Worksheets(„1“).Cells(X, Quellspalte)
y = y + 1
Next
y = Zielspaltea
End With
Zielzeile = Zielzeile + 1
Inputdatei.Close False
Set Inputdatei = Nothing
GefDatName = Dir()
Wend
Application.DisplayAlerts = True
End Sub
Jetzt wird nur noch angezeigt:
Diese Datei enthält Verknüpfungen zu anderen Datenquellen …
Auswahl: Aktualisieren, Nicht Aktualisieren, Hilfe
Gruß
Ingmar
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Jetzt wird nur noch angezeigt:
Diese Datei enthält Verknüpfungen zu anderen Datenquellen …
Auswahl: Aktualisieren, Nicht Aktualisieren, Hilfe
Hi Ingmar,
siehe Hilfe zu Open, UpdateLinks…
Ausdruck.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMRU)
Gruß
Reinhard