Tabellen ohne Kopfzeile kopieren und ergänzen
23.07.2019 16:50:36
Gertrud
ich möchte gerne ein Makro schreiben, das andere Tabellen in anderen Exceldateien markiert (ohne die Kopfzeile) und dann damit die Tabelle in meinem aktuellen Exceldokument ergänzt bzw. die Tabelle erweitert. Die Tabellen sind alle gleich aufgebaut und haben die selben Spaltennamen. Im grundegenommen will ich also nur meine Tabelle mit den Werten der anderen Tabelle erweitern.
Ich habe durch google auch schon Code gefunden, weiß jedoch nicht wie ich ihn weiter anpassen soll.
Sub TblImport()
Dim vntPathAndFileNames As Variant 'kein String !
Dim strPathAndFile As String
Dim lngI As Long
Dim wbkMappe As Workbook
Dim wks As Worksheet
Dim wbkZiel As Workbook
Dim zaehlerspalten1 As Integer
Dim zaehlerspalten2 As Integer
Dim rngCopy As Range
Dim finalLocation As Variant
Application.ScreenUpdating = False
Set wbkZiel = ThisWorkbook
vntPathAndFileNames = Application.GetOpenFilename( _
FileFilter:="Excel Files (*.xlsx), *.xlsx", _
Title:="Zu importierende Dokumente auswählen", _
MultiSelect:=True)
If VarType(vntPathAndFileNames) = vbBoolean Then
MsgBox "Abgebrochen!"
Else
For lngI = LBound(vntPathAndFileNames) To UBound(vntPathAndFileNames)
strPathAndFile = vntPathAndFileNames(lngI)
Set wbkMappe = Application.Workbooks.Open(strPathAndFile)
For Each wks In wbkMappe.Worksheets
----[Ich nehme an hier müsste ich ergänzen]-----
Next
wbkMappe.Close False
Next
End If
Set wbkZiel = Nothing
End Sub
Gertrud
Anzeige