VBA Hilfe Mitarbeiter

Hallo zusammen,
ich habe eine Datei die Täglich gefüllt wird mit Personaldaten ( Stammdaten personal).
Diese Datei ist in K:\Transfer\Allgemein\Karl\Mitarbeiterzusammenfassung.xlsm drin.
Ich möchte jetzt jeweils die Daten
K:\Transfer\Allgemein\Schichtleiter\Mitarbeiterzusammenfassung.xlsm
verknüpft haben.
Excel Arbeit:
Jetzt soll beim Öffnen der "Schichtleiter Datei"(K:\Transfer\Allgemein\Schichtleiter\Mitarbeiterzusammenfassung.xlsm ) folgendes tun:
Excel öffnen, dabei holt er sich die Daten von :
K:\Transfer\Allgemein\Karl\Mitarbeiterzusammenfassung.xlsm Tabellenblatt:"2017"
A1 bis NC75
und anschließend soll nur noch
Spalte A
Zeile 1
Zeile 59 bis 71
Zeile 74
Zeile 75
die Festen ( da Formeln in der K:\Transfer\Allgemein\Karl\Mitarbeiterzusammenfassung drin stehen ) Werte stehen.
Wäre sowas überhaupt möglich ?
Zuerst hatte ich die Daten ausgeblendet und einen Blattschutz gehabt. Aber das möchte ich jetzt nicht mehr.
Danke an Alle
Karli

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Karl,
da du weitere Informationen nicht zur Verfügung stellen willst, hier mal ein Ansatz.
Dateipfad und Name der Ausgabetabelle anpassen!

' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub getData()
Dim objWB As Workbook, objXL As Object
Dim varValues As Variant, varOutput() As Variant
Dim lngIndex As Long, lngR As Long, lngC As Long
Dim strFile As String, strTab As String, strRef As String

strFile = "E:\Forum\Test\Karl\Mitarbeiterzusammenfassung.xlsm"  'Dateiname -ANPASSEN!
strTab = "2017" 'Tabellenname
strRef = "A1:NC75" 'Bereich

Set objXL = CreateObject("Excel.Application")
Set objWB = objXL.Workbooks.Open(strFile)

With objWB
  varValues = .Sheets(strTab).Range(strRef)
  .Close False
End With

objXL.Quit

Redim varOutput(1 To 16, 1 To UBound(varValues, 2))

For lngIndex = 1 To UBound(varValues, 1)
  Select Case lngIndex
    Case 1, 59 To 71, 74, 75
      lngR = lngR + 1
      For lngC = 1 To UBound(varValues, 2)
        varOutput(lngR, lngC) = varValues(lngIndex, lngC)
      Next
    Case Else
  End Select
Next

ThisWorkbook.Sheets("Tabelle1").Range("A1").Resize(UBound(varOutput, 1), UBound(varOutput, 2)) = varOutput

Set objWB = Nothing
Set objXL = Nothing
End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread