Daten aus anderer Excel Datei beschaffen
28.01.2005 13:53:13
Peter W
Hab für euch ein wahrscheinlich ganz simple Frage. Bei folgendem Programm-Code kann ich zwar die ganze Arbeitsmappe öffnen ich brauche aber nur den Sheet der in der Zeile A299 (ActiveSheet) steht. Bitte Hilfe, Danke !
Private Sub CommandButton4_Click()
Dim var As Variant
Dim sFiles As String
sFiles = "Objektbeurteilungen (*.xls), *.xls, "
sFiles = sFiles & "Objektbeurteilungen (*.xls), *.xls, "
sFiles = sFiles & "Objektbeurteilungen (*.xls), *.xls"
On Error Resume Next
var = Application.GetOpenFilename(sFiles)
Objektwert = ActiveSheet.Range("a299")
Sheets("Rechnung").Select
Sheets.Add Type:=var
End Sub
P.S.: Danke demjenigen, der diesen Code in einem Beitrag veröffentlicht hat !
Grüße