AW: Eintragungen über UF in 2 verschiedene Mappen
06.11.2007 08:24:58
Beverly
Hi Gerhard,
sorry, hatte deinen letzten Satz nicht richtig gelesen. Mein Code geht nur für geöffnete Arbeitsmappen.
Außerdem ist noch ein Fehler drin - natürlich muss die Zelle noch mit angegeben werden
Workbooks("Mappe2").Worksheets("Tabelle1").Range("B10") = TextBox1
Du könntest aber die Arbeitsmappe im Hintergrund öffnen und anschließend wieder schließen.
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Workbooks.Open "C:\test\Mappe3.xls"
Worksheets("Tabelle1").Range("B10") = TextBox1
Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Bis später,
Karin