04.07.2020, 22:17
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:
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)Gruß Uwe
'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