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