Hallo Excel Freunde,
für mein Angebotsprogramm bastele ich an folgender Problematik: In dem Angebotsformular
speichere ich erstellte Angebotstabellen als seperate Workbooks.
Nun möchte ich die Werte dieser Tabellen wieder auf ein bestimmtes Arbeitsblatt des Angebotsprogramms laden. Ich kann zwar schon per VBA das andere Workbook öffnen, aber es gelingt mir nicht per VBA darauf zuzugreifen um die Daten auszulesen und auf einem Arbeitsblatt des Angebotsprogramms abzuspeichern.
wer hat eine zündende Idee. Als Anhang ein Listing, wie weit ich jetzt bin.
Private Sub Angebotladen_Click()
Dim datop As Variant
Dim name As Variant
Dim intcell As String
datop = Application.GetOpenFilename("Excel-Dateien(*.xls),*xls")
If datop = False Then Exit Sub
Workbooks.Open Filename:=datop
Dim wrkbook As Workbook
Dim zahl As Integer
Dim strname As String
For Each wrkbook In Workbooks
Debug.Print wrkbook.name
MsgBox wrkbook.name
strname = wrkbook.name
Next wrkbook
MsgBox strname