ich habe mir folgendes Makro für den Wert der Zellen einholen erstellt:
Sub Bereich_auslesen() With ActiveSheet.Range("J2") .Formula = "='D:\Wohnung.xlsm'!B1" Tabellenname: "Kosten" .Value = .Value End With With ActiveSheet.Range("J3") .Formula = "='D:\Wohnung.xlsm'!C1" .Value = .Value End With Tabellenname: "Kosten" End SubDas Problem:
Jetzt kommt immer eine MessageBox : Blatt auswählen
kann man dieses ausblenden bzw. deaktivieren, freu mich auf Unterstützung.
mfg
wolfgang