Thema Datum  Von Nutzer Rating
Antwort
30.11.2017 12:52:58 David
NotSolved
Blau brauche dringend Hilfe :-(
 30.11.2017 13:13:41 Gast12963
NotSolved
30.11.2017 17:25:47 Mackie
NotSolved

Ansicht des Beitrags:
Von:
Gast12963		 Datum:
30.11.2017 13:13:41		 Views:
497		 Rating:
     
Antwort:
  Ja
Thema:
brauche dringend Hilfe :-(

Ich benötige für das u.a. Makro eine Anpassung das er die Kopierten Daten in das Aktive Tabellenblatt kopiert
und nicht ein extra Tabellenblatt erstellt ich hoffe ihr könnt mir helfen
ich muss die liste bis heute Abend fertig haben :-(.


Sub Grundmakro2()
Dim WBZiel As Workbook, ExportDatei As Variant
Dim WBQuelle As Workbook, WSZiel As Worksheet
    
Set WBZiel = ThisWorkbook
    
   'DateiÖffnen Dialog anbieten
   ExportDatei = Application.GetOpenFilename("Micrsoft Excel-Dateien (*.xlsx),*.xls", , "Bitte die Datei xyz.xls öffnen ...")
   ExportDatei = CStr(ExportDatei)
   If ExportDatei = "Falsch" Then Exit Sub
    
   'öffnen der ausgewählten Datei
   Set WBQuelle = Workbooks.Open(ExportDatei)
    
   'Kopieren der Tabelle „Tabelle1“ aus Datei „xyz“
   Set WSZiel = WBZiel.Worksheets.Add(After:=WBZiel.Sheets(WBZiel.Sheets.Count))
   WBQuelle.Worksheets("Planungsreport").Cells.Copy WSZiel.Cells(1)
    
   WBQuelle.Close False
   Set WBZiel = Nothing
   Set WBQuelle = Nothing: Set WSZiel = Nothing

End Sub


 

Sub Grundmakro2()
Dim ExportDatei
Dim WSZiel As Worksheet: Set WSZiel = ActiveSheet

   
   'DateiÖffnen Dialog anbieten
   ExportDatei = Application.GetOpenFilename("Micrsoft Excel-Dateien (*.xlsx),*.xls", , "Bitte die Datei xyz.xls öffnen ...")
   If ExportDatei = "Falsch" Then Exit Sub
     
   'öffnen der ausgewählten Datei
   Workbooks.Open (ExportDatei)
   Sheets("Planungsreport").Cells.Copy WSZiel.Cells(1)
   ActiveWorkbook.Close False

End Sub

 

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
30.11.2017 12:52:58 David
NotSolved
Blau brauche dringend Hilfe :-(
 30.11.2017 13:13:41 Gast12963
NotSolved
30.11.2017 17:25:47 Mackie
NotSolved