Methode 'Range' Objekt '_Worksheet' fehlgeschlagen
01.09.2016 15:10:50
Martin
ich habe mich jetzt seit einigen Stunden mit dem Thema beschäftigt, finde allerdings keine passende Lösung für mein Problem.
Ich möchte gerne die berechneten Kennzahlen vom Datenblatt "Kalkulation" passend zum Quartal (1-4) in das Datenblatt "Kennzahlen" übertragen.
Mit einem Knopfdruck will ich automatisch die aktuellen Daten bekommen. Zuerst muss das Programm die Zelleninhalte auf das aktuelle Quartal durchsuchen, danach den richtigen Bereich kopieren und schlussendlich in das andere Tabellenblatt einfügen.
Hier der Code, ich kann den Zelleninhalt erfolgreich finden, allerdings lässt mich das Programm _ die Daten nicht mehr kopieren:
Option Explicit
Private Sub cmb_aktuell_Click()
Dim wksKalkulation As Worksheet
Dim wksKennzahlen As Worksheet
Dim varDate As Integer
Dim varSuche As String
Dim zelle As Range
Set wksKalkulation = ThisWorkbook.Worksheets("Kalkulation")
Set wksKennzahlen = ThisWorkbook.Worksheets("Kennzahlensystem")
varDate = DatePart("q", Date) 'Aktuelles Quartal
varSuche = "QUARTAL " & varDate 'Zu suchender Text
Worksheets("Kalkulation").Select 'Tabellenblatt Kalkulation öffnen
For Each zelle In Worksheets("Kalkulation").Range("A1:X1000").Cells
If zelle.Text = varSuche Then 'Text der aktiven Zelle mit varSuche vergleichen
zelle.Activate
Exit For
End If
Next
ActiveCell.Offset(2, 0).Select
wksKalkulation.Range(Cells(ActiveCell.Row, ActiveCell.Column), ActiveCell.Offset(13, 4)). _
Copy wksKennzahlen.Range("C18")
End Sub