Makro zickt

[Kuwer]

Hallo Andreas,

meine Antwort war eher ironisch gemeint, denn man kann selbstverständlich genauso gut auf Blätter der eigenen Arbeitsmappe zugreifen.
Z.B. dann so:

Sub Uebertragen(Optional Aufraeumen As Boolean)
  'Pfad zur Zieldatei festlegen:
  Const MasterDat As String = "C:\Users\andre\Desktop\Übersicht.xlsm" '<= Anpassen!
  Dim wsQuelle As Worksheet
  Dim lngZeile As Long, rngTmp As Range
  Static wsZielTabelle As Worksheet
  If Aufraeumen Then
    If Not wsZielTabelle Is Nothing Then
      'wsZielTabelle.Parent.Close savechanges:=True
      Set wsZielTabelle = Nothing
    End If
  Else
    'legt fest, dass das aktive Blatt als Quelle dient
    Set wsQuelle = ActiveSheet
    If wsZielTabelle Is Nothing Then
      'Masterdatei öffnen
      'Set wsZielTabelle = Workbooks.Open(MasterDat).Worksheets("Übersicht") '<= anpassen!
      'oder intern
      Set wsZielTabelle = ActiveWorkbook.Worksheets("Übersicht") '<= anpassen!
    End If
    'Daten übernehmen
    With wsZielTabelle
      'freie Zeile finden
      Set rngTmp = .Cells.Find("*", , , , xlByRows, xlPrevious)
      If Not rngTmp Is Nothing Then
        lngZeile = rngTmp.Row + 1
      Else
        lngZeile = 2
      End If
      'Daten aus angegebenen Zellen in Ziel schreiben
      .Cells(lngZeile, 1).Value = wsQuelle.Range("G131").Value
      .Cells(lngZeile, 2).Value = wsQuelle.Range("G132").Value
      .Cells(lngZeile, 3).Value = wsQuelle.Range("G135").Value
    End With
  End If
End Sub

Gruß Uwe