ich habe folgendes Problem:
zwei Tabellen mit dem gleichen Aufbau, in Spalte A stehen immer Bezeichnungen und in den weiteren Spalten folgen Werte.
Ich versuche nun die Spalte A aller Tabellenblätter der ersten Tabelle (besitzt 41 Tabellenblätter) in die andere Tabelle zu kopieren (in die gleichen entsprechenden Tabellenblätter).
Private Sub CommandButton1_Click()
ActiveWorkbook.RunAutoMacros xlAutoActivate
Dim i As Integer
Dim WorkbookIM As Variant
Dim WorkbookEX As Excel.Workbook
Dim n As Long
Dim rng As Range
Application.ScreenUpdating = False
WorkbookEX = Me.Application.Workbooks(1)
For n = 4 To 41
Set rng = Worksheets(n).Range("A8:A46")
i = 0
WorkbookIM = Application.GetOpenFilename("Excel-dateien(*.xlsm),*xls,CSV(*.csv),*csv", _
MultiSelect:=True)
If IsArray(WorkbookIM) Then
For i = LBound(WorkbookIM) To UBound(WorkbookIM)
Workbooks.Open WorkbookIM(i)
Next i
End If
rng.Value = Range("A8:A46").Value
ActiveWorkbook.Close savechanges:=False
Next n
Application.ScreenUpdating = True
End Sub
Allerdings ich bekomme es nicht beschrieben, dass die Spalten in die neu geöffnete Tabelle eingefügt werden!? Wie mache ich dies? Vielen Dank für eure Hilfe!