Office: Suche Hilfe bei meinem VBA Code

Helfe beim Thema Suche Hilfe bei meinem VBA Code in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, ich habe einen Code aufgezeichnet welcher mit daten von einer PW-geschützten datei in eine Übersicht einfügt. Die geschützte Datei... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von CaMa1511, 19. Mai 2012.

  1. CAMA1511
    CaMa1511 Erfahrener User

    Suche Hilfe bei meinem VBA Code


    Hallo zusammen,

    ich habe einen Code aufgezeichnet welcher mit daten von einer PW-geschützten datei in eine Übersicht einfügt. Die geschützte Datei soll nicht allen zugänglich gemacht werden, von daher schalte ich die aktuallisierung der verknüpfungen beim öffnen aus. Meine Frage nun, kann ich das öffnen der orginaldate sparen, diese datei wird quasi im hintergrung geöffnet, daten werden abgerufen und dann wird die datei wieder geschlossen. kann man sonst noch was an dem code anders machen vereinfachen oder so? bin für jeden Tipp dankbar.

    Hier der code:
    Code:
    
Sub Datenübernahme_Schicht1()
'
' Datenübernahme_Schicht1 Makro
' Makro am 29.04.2012 von MHS aufgezeichnet
'

'


Dim Datei As Workbook
Set Datei = Application.Workbooks.Open _
(Filename:="\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\Schichteinteilung bearbeiten.xls", _
Password:="C123")
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
Windows("Schichteinteilung Übersicht.xls").Activate
Range("B2").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!B2"
Range("C2").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!C2"
Range("D2").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!D2"
Range("B4").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!B4"
Range("C4").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!C4"
Range("D4").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!D4"
Range("E4").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!E4"
Range("F4").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!F4"
Range("B5").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!B5"
Range("B7").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!B7"
Range("C7").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!C7"
Range("B8").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!B8"
Range("C8").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!C8"
Range("B10").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!B10"
Range("C10").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!C10"
Range("D10").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!D10"
Range("E10").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!E10"
Range("F10").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!F10"
Range("B12").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!B12"
Range("C12").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!C12"
Range("D12").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!D12"
Range("E12").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!E12"
Range("F12").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!F12"
Range("B14").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!B14"
Range("C14").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!C14"
Range("D14").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!D14"
Range("E14").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!E14"
Range("F14").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!F14"
Range("B16").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!B16"
Range("C16").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!C16"
Range("D16").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!D16"
Range("E16").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!E16"
Range("F16").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!F16"
Range("B18").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!B18"
Range("C18").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!C18"
Range("D18").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!D18"
Range("E18").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!E18"
Range("F18").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!F18"
Range("B20").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!B20"
Range("D20").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!D20"
Range("E20").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!E20"
Range("B22").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!B22"
Range("D22").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!D22"
Range("E22").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!E22"
Range("B24").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!B24"
Range("B26").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!B26"
Range("B33").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!B33"
Range("B35").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!B35"
Range("C35").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!C35"
Range("D35").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!D35"
Range("E35").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!E35"
Range("F35").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!F35"
Range("B37").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!B37"
Range("C37").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!C37"
Range("D37").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!D37"
Range("E37").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!E37"
Range("F37").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!F37"
Range("B39").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!B39"
Range("C39").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!C39"
Range("D39").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!D39"
Range("E39").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!E39"
Range("F39").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!F39"
Range("B41").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!B41"
Range("C41").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!C41"
Range("D41").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!D41"
Range("E41").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!E41"
Range("F41").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!F41"
Range("B43").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!B43"
Range("C43").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!C43"
Range("D43").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!D43"
Range("E43").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!E43"
Range("F43").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!F43"
Range("B45").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!B45"
Range("B46").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!B46"
Range("C46").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!C46"
Range("E46").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!E46"
Range("B47").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!B47"
Range("C47").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!C47"
Range("E47").Value = "='\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\[Schichteinteilung bearbeiten.xls]Schicht 1'!E47"
Workbooks("Schichteinteilung bearbeiten.xls").Save
Workbooks("Schichteinteilung bearbeiten.xls").Close SaveChanges:=True
ThisWorkbook.Saved = True
End Sub
     
    CaMa1511, 19. Mai 2012
    #1
  2. EXL121150
    Exl121150 Erfahrener User
    Hallo!
    Normalerweise braucht man in Excel die Quelldatei, aus der man Daten bezieht nicht zu öffnen, falls man die Pfade auf die einzelnen Quellzellen so angibt, wie Du das getan hast. Ich weiß allerdings nicht, wie sich das Ganze verhält, wenn die Quelldatei passwortgeschützt ist.

    Nachfolgend habe ich Deinen Code, so wie er war, vereinfacht. Sonst aber habe ich daran nichts verändert. Insbesondere müsstest Du testweise ausprobieren, was passiert, wenn man trotz Passwort die Quelldatei nicht explizit öffnet. Für diesen Test brauchst Du nur die Zeilen
    Code:
      Set Datei = Application.Workbooks.Open(Filename:=QuellPfad & QuellDateiName, Password:="C123")
....
....
  With Workbooks("Schichteinteilung bearbeiten.xls")
    .Save
    .Close SaveChanges:=True
  End With
    in Kommentarzeilen (jeweils am Zeilenanfang ein sogenanntes Hochkomma einfügen) umzuwandeln.

    Nachfolgend der vereinfachte Code:
    Code:
    Option Explicit
Sub Datenübernahme_Schicht1()
'
' Datenübernahme_Schicht1 Makro
' Makro am 29.04.2012 von MHS aufgezeichnet
'
  Dim QuellPfad As String, QuellDateiName As String, QuellBlatt As String
  Dim Datei As Workbook, Zellen As Variant, Zelle As Variant
  '---
  QuellPfad = "[URL="file://\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\"]\\HECSWFILE03.grp.gambro.net\Global-Data\conqdat\[/URL]" & _
              "Datenerfassung C 3\Personal\Schichteinteilung\Schichteinteilung alle Schichten\"
  QuellDateiName = "Schichteinteilung bearbeiten.xls"
  QuellBlatt = "='" & QuellPfad & "[" & QuellDateiName & "]Schicht 1'"
  '---
  Set Datei = Application.Workbooks.Open(Filename:=QuellPfad & QuellDateiName, Password:="C123")
  ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
  Windows("Schichteinteilung Übersicht.xls").Activate
  Zellen = Array("B2", "C2", "D2", _
                 "B4", "C4", "D4", "E4", "F4", _
                 "B5", _
                 "B7", "C7", _
                 "B8", "C8", _
                 "B10", "C10", "D10", "E10", "F10", _
                 "B12", "C12", "D12", "E12", "F12", _
                 "B14", "C14", "D14", "E14", "F14", _
                 "B16", "C16", "D16", "E16", "F16", _
                 "B18", "C18", "D18", "E18", "F18", _
                 "B20", "D20", "E20", _
                 "B22", "D22", "E22", _
                 "B24", _
                 "B26", _
                 "B33", _
                 "B35", "C35", "D35", "E35", "F35", _
                 "B37", "C37", "D37", "E37", "F37", _
                 "B39", "C39", "D39", "E39", "F39", _
                 "B41", "C41", "D41", "E41", "F41", _
                 "B43", "C43", "D43", "E43", "F43", _
                 "B45", _
                 "B46", "C46", "E46", _
                 "B47", "C47", "E47")
                 
  For Each Zelle In Zellen
    Range(Zelle).Value = QuellBlatt & "!" & Zelle
  Next Zelle
  
  With Workbooks("Schichteinteilung bearbeiten.xls")
    .Save
    .Close SaveChanges:=True
  End With
  ThisWorkbook.Saved = True
End Sub
     
    Exl121150, 19. Mai 2012
    #2
  3. CAMA1511
    CaMa1511 Erfahrener User
    Moin moin,

    vielen Dank für deine schnelle Antwort. Der code sieht so wirklich viel einfacher aus!

    Ja das Prob bei der Sache ist wirklich das PW. Da die Quelldatei PW geschützt ist, und ich die Datei nicht öffne, verlangt quasi das Macro vor jedem einfügen des Links das PW.
    Das habe ich dan auch nicht hin bekommen. Wenns da ne lösung für gibt, das man die Quelldatei nicht öffnen muss wär das natürlich ideal.
    DA müsste quasi immer das PW eingefügt werden....

    Gibts dafür evtl ne lösung?

    Vielen Dank!!!
     
    CaMa1511, 20. Mai 2012
    #3
  4. CAMA1511
    CaMa1511 Erfahrener User

    Suche Hilfe bei meinem VBA Code

    Hallo,

    also das Makro ist super und funktioniert prima...

    Allerdings wenn ich das öffnen der PW-geschützten Datei umgehen möchte, wird bei jeder einzelnen Verknüpfung die PW-Abfrage. Gibt man dieses ein, werden die Werte eingetragen...
    Kann man das auch noch mit einem codezusatz umgehen? brauche hilfe bekomme es nicht hin ?!

    Thx
    Gruß
    cama
     
    CaMa1511, 21. Mai 2012
    #4
  5. MIRIKI
    miriki Erfahrener User
    Mal andersherum betrachtet: Wenn Du eine Datei mit einem Paßwort schützt, würde es Dir gefallen, wenn es einen Mechanismus gibt, der die Werte unter Umgehung des Paßworts dann trotzdem auslesen könnte? Wahrscheinlich eher nicht, oder?

    Du wirst, soweit ich das sehe, nur die Möglichkeiten haben:
    a) Datei öffnen (1x Paßwort), Werte herauskopieren und Datei wieder schließen.
    b) Datei nicht öffnen, Paßwort bei jedem Zugriff.

    Denn: Genau genommen wird auch bei einem Link in die Datei diese Datei geöffnet, um den Wert zu aktualisieren. Das passiert aber so weit "im Hintergrund", daß man es nicht wirklich mehr als "Datei öffnen" ansieht. Aber ist doch klar, oder: Wenn ich einen Kugelschreiber aus einer Schublade nehmen will, muß ich die Schublade öffnen, auch wenn das Öffnen (und Schließen) der Schublade nicht mein eigentliches Ziel ist. Ich gehe dabei mal davon aus, daß das Heraushacken der Rückwand in diesem Ablauf keine Anwendung finden soll... ;-)

    Gruß, Michael
     
    miriki, 22. Mai 2012
    #5
    1 Person gefällt das.
  6. CAMA1511
    CaMa1511 Erfahrener User
    Ich wollte quasi das PW jedes mal mit dem Macro eingeben. Das öffnen der Quelldatei wollte ich so verhindern.
    Naja wenns nicht machbar ist, dann lebe ich halt damit jetzt...

    Klar könnte ich das PW aus der Quelldatei raus nehmen, aber einige Zellen/Spalten dieser Datei sind nicht für jedermann gedacht..

    danke für eure antworten
     
    CaMa1511, 22. Mai 2012
    #6
Thema:

Suche Hilfe bei meinem VBA Code

Die Seite wird geladen...

  1. Suche Hilfe bei meinem VBA Code - Similar Threads - Suche Hilfe VBA

  2. Excel VBA Suche mit Hilfe Command Buttons anzeigen

    in Microsoft Excel Hilfe
    Excel VBA Suche mit Hilfe Command Buttons anzeigen: Hallo Ich habe eine UserForm erstellt, welche mit voneinander Abhängige Comboboxen sucht. Dabei wurde mir schon geholfen in diesen Forum. Ich würde mir gerne das Ergebnis mithilfe eines...

  3. Excel VBA Suche mit Hilfe von Comboboxen in Anhängigkeiten

    in Microsoft Excel Hilfe
    Excel VBA Suche mit Hilfe von Comboboxen in Anhängigkeiten: Hallo Ich bin unerfahren im Bereich VBA und versuche mich aber grade an einer (für mich) sehr komplexen Aufgabe. Ich würde gerne eine Suche über eine UserForm mit 4 Comboboxen erstellen....

  4. VBA Hilfe von Profis: Zeilen nach Kriterien suchen und in anderem Blatt einfügen

    in Microsoft Excel Hilfe
    VBA Hilfe von Profis: Zeilen nach Kriterien suchen und in anderem Blatt einfügen: Liebe Excel VBA-Profis in diesem Forum, ich hoffe hier auf Hilfe zu treffen. Ich arbeite gerade an einem Provisionstool welches als Endergebnis die jeweilige Abrechnung / Mitarbeiter auswirft....

  5. Suche Hilfe beim VBA Code zum Daten übertragen

    in Microsoft Excel Hilfe
    Suche Hilfe beim VBA Code zum Daten übertragen: Hallo Leute, ich habe ein code um Daten von einem Tabellenblatt "Material & Kosten" in dieses tabellenblatt "Angebot" zu übertragen. Alles funktioniert Tadellos. Die Eintragungen sollen...

  6. Suche Hilfe bei einem VBA Code --> Prüfen ob Zelle Leer, dann Makro ausführen

    in Microsoft Excel Hilfe
    Suche Hilfe bei einem VBA Code --> Prüfen ob Zelle Leer, dann Makro ausführen: Hallo, suche mal wieder Hilfe bei einem Code. Und zwar möchte ich eine Abfrage einbauen, ob eine Zelle Leer ist, und wenn sie leer ist dann mit dem code weitermachen, wenn sie nicht leer ist,...

  7. Suche VBA Hilfe beim Excelarbeitsblatt in PDF Speichern

    in Microsoft Excel Hilfe
    Suche VBA Hilfe beim Excelarbeitsblatt in PDF Speichern: Hallo zusammen, ich mächte per Knopfdruck ein Tabellenblatt in PDF abspeichern. Der Pfad wo die PDFDatei gespeichert werden soll ist vorgegeben und der Name der Datei soll aus (Angebot)...

  8. Suche VBA Hilfe beim Kopieren bestimmter Zellen bzw. nur kopieren wenn was drinne ist

    in Microsoft Excel Hilfe
    Suche VBA Hilfe beim Kopieren bestimmter Zellen bzw. nur kopieren wenn was drinne ist: Hallo Forumsgemeinde! Ich suche mal wieder Hilfe bei einer Datei wo ich als Kleinunternehmen angebote schreiben kann. In den ersten zwei tabellenblättern stehen quasi preislisten. wenn ich hier...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Akzeptieren Weitere Informationen...
    Information ausblenden