Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Marko fehler, Daten kopieren | Herbers Excel-Forum


Betrifft: Marko fehler, Daten kopieren von: david.a2k
Geschrieben am: 23.07.2012 10:49:39

Hallo,

ich möchte die Daten eines Tabellenblatt eines Excel Sheets in das Tabellenblatt eines anderen Eccel Sheets kopieren. Vorher müssen aber die vorhandenen Daten gelöscht werden, da die neuen Daten weniger zeilen haben könnten.

Bei diesem Makro Code kommt immer eine Fehlermeldung in der letzten Zeile:
die Paste Methode des Worksheet Objektes konnte nicht ausgeführt werden.

Sub Basisdaten_einfuegen()

    Dim quelle As Variant
    Dim ziel As Variant
    Set ziel = ActiveSheet
    DateiÖffnen
    Set quelle = ActiveSheet
    
    ActiveSheet.UsedRange.Select
  
    quelle.UsedRange.Copy
     ziel.Activate
    Sheets("Basisdaten").Select
    Cells.Select
    Selection.Clear
   Cells.Select
    ActiveSheet.Paste
______________________________________________________________
Function DateiÖffnen()
Dim quelle As Variant
  'MsgBox "Bitte wählen Sie eine Datei aus"
    quelle = Application.GetOpenFilename("Microsoft Excel-Dateien,*.xls")
    Workbooks.Open Filename:=quelle, UpdateLinks:=1
End Function


Kann mir jemand helfen?

Danke und Gruß
David

  

Betrifft: AW: Marko fehler, Daten kopieren von: UweD
Geschrieben am: 23.07.2012 11:18:11

Hallo

ich hab es mal umgeschrieben:

Sub Basisdaten_einfuegen()

    Dim quelle As Variant
    Dim ziel As Variant
    Set ziel = Sheets("Basisdaten")
    ziel.Cells.Clear
    DateiÖffnen
    Set quelle = ActiveSheet
    
    quelle.UsedRange.Copy ziel.Cells
End Sub
Function DateiÖffnen()
Dim quelle As Variant
  'MsgBox "Bitte wählen Sie eine Datei aus"
    quelle = Application.GetOpenFilename("Microsoft Excel-Dateien,*.xls*")
    Workbooks.Open Filename:=quelle, UpdateLinks:=1
End Function
Gruß UweD


  

Betrifft: AW: Marko fehler, Daten kopieren von: david.a2k
Geschrieben am: 23.07.2012 11:28:20

Super, danke für die Hilfe!

Gruß David


Beiträge aus den Excel-Beispielen zum Thema "Marko fehler, Daten kopieren"