|
Hallo Zusammen,
könnte mir bitte jemand bei meinem Code weiterhelfen bzw. eine Alternative vorschlagen? Ich bekomme folgende Fehlermeldung: Laufzeitfehler 1004: Anwendungs- oder objektdefinierter Fehler
Letzter Part:
Im zweiten Tabellenblatt ("aktuell") sind in den Spalten J11 bis W11 Formeln hinterlegt,
und in der Spalte A11 bis I11 stehen Daten (auf das sich die Formeln beziehen).
Ich möchte im zweiten Tabellenblatt (Name:"Daten"), dass das Makro die Formeln von J11 bis W11 so weit runterzieht bis die Daten von Spalte A bis I reichen.
Manuell ist es wirklch aufwendig, immer die Formeln runterziehen:-(.
Sub Schaltfläche1_KlickenSieAuf()
Dim WBToOpen As Workbook
Dim strNameVormonat As String
Dim strVormonatsdat As String
Dim lngLetzte As Long 'letzte Zeile
strVormonatsdat = Range("B32").Text 'Pfad
strNameVormonat = Range("B33").Text 'Name der Datei
Set WBToOpen = Workbooks.Open(strVormonatsdat & "\" & strNameVormonat)
'AB HIER FUNKTIONIERT ES NICHT:
With Worksheets("Daten")
'letzte Zeile auffinden:
lngLetzte = .UsedRange.Rows.Count + .UsedRange.Row - 1
'Formel aus J11 runterkopieren:
.Range(.Cells(11, 10), Cells(lngLetzte, 10)).Formula = .Cells(11, 10).Formula
'Alternativ Formel aus J11 runterkopieren (Falls Überschriften in 1. Zeile):
'.Range(.Cells(2, 12), Cells(lngLetzte, 12)).Formula = .Cells(2, 12).Formula
End With
End Sub
Danke für eure Hilfe!
|