Erst mal der Übersicht halber...
Sub CommandButton2_Click()
Dim WbDatei1 As Workbook
Dim WbDatei2 As Workbook
Dim strFilter As String
Dim Wert1 As Variant
Dim Wert2 As Variant
Dim i As Integer
Set WbDatei2 = ThisWorkbook
'** Dateifilter definieren
strFilter = "Excel-Dateien(*.xls*), *.xls*"
'** Laufwerk und Pfad definieren, welcher geöffnet werden soll
ChDir "\\XXXXX\" ' muss noch angegeben werden '** Dateifilter definieren
strFilter = "Excel-Dateien(*.xls*), *.xls*"
'** Den im Dialogfeld gewählten Namen auslesen
strFileName = Application.GetOpenFilename(strFilter)
'** Prüfen, ob eine gültige Datei ausgewählt wurde
If strFileName = False Then Exit Sub
'** Gewählte Datei öffnen
Set ActiveWorkbooks = Workbooks.Open(strFileName)
'** Hinweis ausgeben
MsgBox "Die Datei '" & ActiveWorkbook.name & "' wurde geöffnet.", vbInformation, "Hinweis"
With Worksheets("Format") For i = 1 To .Columns.Count If Cells(1, i) = "Anlage" Then
Wert1 = Range(Cells(2, i), Cells(1000, i)) End If
If Cells(1, i) = "Preis pro kwh" Then
Wert2 = Range(Cells(2, i), Cells(1000, i)) End If
Next i
End With
'Wert1 = Cells(2, "A") 'Daten auslesen
ActiveWorkbooks.Close SaveChanges:=False
'schliesst File ohne zu speichern
Set WbDatei2 = ThisWorkbook
With ThisWorkbook.Worksheets("Tabelle1")
For i = 1 To .Columns.Count If Cells(1, i) = "Anlage" Then
Range(Cells(2, i), Cells(1000, i)) = Wert1 End If If Cells(1, i) = "Preis pro Kwh" Then Range(Cells(2, i), Cells(1000, i)) = Wert2
End If
Next i
End
With Application.DisplayAlerts = True
End Sub
|