Supportnet / Forum / Tabellenkalkulation

Mein Problem: aus mehreren Dateien immer die gleichen benannten Bereiche in neue Datei nacheinander einfügen. Mit einer Datei geht es, aber mit mehreren weiss ich nicht weiter. So sieht' jetzt aus: Private Sub CommandButton4_Click() 'Dialogbox Datei Öffnen MsgBox "Bieter-Datei öffnen" UsrRsp = Application.Dialogs(xlDialogOpen).Show("") Select Case UsrRsp Case -1 'Gesichert Case 0 'Abgebrochen End Select 'Abbrechen und Mehrfachauswahl sollen berücksichtigt werden! Workbooks(2).Activate Application.CutCopyMode = False Range("Bieter").Select Selection.Copy Workbooks(1).Activate Range("BieterA").Select ActiveSheet.Paste Workbooks(2).Activate Application.CutCopyMode = False Range("AusführungDat").Select Selection.Copy Workbooks(1).Activate Range("BieterAAusführungDat").Select ActiveSheet.Paste Workbooks(2).Activate Application.CutCopyMode = False Range("ErstellDat").Select Selection.Copy Workbooks(1).Activate Range("BieterAErstellDat").Select ActiveSheet.Paste Workbooks(2).Activate Application.CutCopyMode = False Range("EPreis").Select Selection.Copy Workbooks(1).Activate Range("BieterAEpreis").Select ActiveSheet.Paste Application.CutCopyMode = False Workbooks(2).Close Savechanges:=False 'Das war der 1.Bieter, es sollen beliebig viele folgen, im Preisspiegel mit den benannten Bereichen "BieterA" bis "BieterJ". Range("BieterB").Select ActiveWorkbook.Save End Sub

• Zelle einfügen über VBA mithilfe msgBox
• Seitenumbrüche in Excel-sheet einfügen per VBA
• Symbol mit VBA automatisch erstellen und einfügen
• Excel: Benannten Bereich auf mehreren Arbeitsblättern nutzen?