title image


Smiley Daten aus vorhandenen Tabellen in ein bestimmtes Arbeitsblatt einfügen
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

















'With Sheets("Tabelle 1")

' .Activate

' .Range("A65536").End(xlUp).Select

' intcell = ActiveCell.Address

'End With

'intcell = ActiveCell.Address



'MsgBox intcell

'MsgBox datop

End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: