Thema Datum  Von Nutzer Rating
Antwort
21.12.2021 09:25:41 Newbie
NotSolved
21.12.2021 10:14:54 Der Steuerfuzzi
NotSolved
21.12.2021 12:41:01 Gast98171
NotSolved
22.12.2021 14:04:45 Der Steuerfuzzi
NotSolved
Rot Ersatz für ExecuteExcel4Macro
 23.12.2021 11:44:51 volti
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
23.12.2021 11:44:51		 Views:
602		 Rating:
     
Antwort:
  Ja
Thema:
Ersatz für ExecuteExcel4Macro

Hallo,

wenn es gar nicht anders geht, evtl. die Datei doch im Hintergrund öffnen.

Und damit sie nicht bei jedem Wert neu geöffnet wird, die Zellen (Werte) in einer Schleife kopieren.

Hierbei kommagetrennt und |-getrennt Zielbereich|Quellbereich die Bereiche angeben.

 

Hier ein Beispiel:

Code:
 
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24		  
Private Sub HoleEinzelDaten()
' Sub kopiert einzelne Zellen und Bereiche aus "geschlossener" Datei
  Dim sQFilename As String, sQPath As String, sQBlatt As String
  Dim WShZ As Worksheet, WShQ As Worksheet
  Dim i As Long, sBers() As String

  sQPath = "C:\Users\volti\Desktop\Test\"     ' Quellpfad
  sQFilename = "Testmappe.xlsx"               ' Quellmappe
  sQBlatt = "Tabelle2"                        ' Quellblatt

  Set WShZ = ThisWorkbook.Sheets("Tabelle1")  ' <<<anpassen>>>
  sBers = Split("A1|B5 C3|B6 A5:B6|B10:C11")  ' Ziel/Quellbereiche


  With GetObject(PathName:=sQPath & sQFilename)
      Set WShQ = .Sheets(sQBlatt)
      For i = 0 To UBound(sBers)
          WShZ.Range(Split(sBers(i), "|")(0)).Value = _
          WShQ.Range(Split(sBers(i), "|")(1)).Value
      Next i
      .Close SaveChanges:=False

  End With
End Sub
 
_________
viele Grüße
Karl-Heinz

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
21.12.2021 09:25:41 Newbie
NotSolved
21.12.2021 10:14:54 Der Steuerfuzzi
NotSolved
21.12.2021 12:41:01 Gast98171
NotSolved
22.12.2021 14:04:45 Der Steuerfuzzi
NotSolved
Rot Ersatz für ExecuteExcel4Macro
 23.12.2021 11:44:51 volti
NotSolved