Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1512to1516
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Methode 'Range' Objekt '_Worksheet' fehlgeschlagen

Methode 'Range' Objekt '_Worksheet' fehlgeschlagen
01.09.2016 15:10:50
Martin
Hallo Leute,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Methode 'Range' Objekt '_Worksheet' fehlgeschlagen
01.09.2016 16:46:11
Bastian
Lad mal eine Bsp. Datei hoch
Gruß Basti
komische Range-Angabe
01.09.2016 17:25:46
Uduuh
Hallo,
Range(Activecell, ActiveCell.Offset(13, 4)).Copy wksKennzahlen.Range("C18")
oder
activecell.resize(14,5).copy wkskennzahlen.range("c18")
Gruß aus’m Pott
Udo

AW: Methode 'Range' Objekt '_Worksheet' fehlgeschlagen
01.09.2016 17:22:15
Bastian
Hey Oder so
Gruß Basti

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
With wksKalkulation
Set zelle = .Range("A1:X1000").Find(varSuche, LookIn:=xlValues) 'Aktuelles Quartal in  _
Range suchen
If zelle Is Nothing Then MsgBox varSuche & " nicht gefunden": Exit Sub
.Range(zelle.Offset(2, 0), zelle.Offset(15, 4)).Copy wksKennzahlen.Range("C18")
End With
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige