Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1820to1824
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

Range für das Objekt Worksheet fehlgesch

Range für das Objekt Worksheet fehlgesch
23.03.2021 23:59:07
Axel
Hallo und guten Abend,
ich habe ein blödes Problem:
HIer ein Auszug aus meinem Code:

  • Dim wbSteuerung As Workbook
    Dim wsTrsheets As Worksheet
    Set wbSteuerung = Workbooks("Importsteuerung.xlsm")
    Set wsTrsheets = wbSteuerung.Worksheets("TrSheets")
    letztezeile = wsTrsheets.UsedRange.Rows.Count
    trsArr = wsTrsheets.Range(Cells(1, 1), wsTrsheets.Cells(letztezeile, 2))

  • In der letzten Zeile erscheint ein Fehler, wenn ich gerade in einem anderen Workbook bin. Dabei habe ich gedacht, mit dem Code in der letzten Zeile hätte ich eine klare Anweisung gegeben, welches Workbook ich meine. Weiß jemand zufällig, was ich falsch gemacht habe?
    Wenn ich die Zuordnung zum Arbeitsblatt halt total falsch gemacht hätte, würde es ja garnicht funktionieren.
    Schon mal Danke fürs lesen.

    6
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    Sieh dir Cells an! 1mal fehlt was! Gruß owT
    24.03.2021 00:40:35
    Luc:-?
    :-?

    AW: Sieh dir Cells an! 1mal fehlt was! Gruß owT
    24.03.2021 05:27:32
    Hajo_Zi
    das erste Cells bezieht sich auf die aktuelle Tabbel und das zweite auf wsTrsheets, das geht nicht.
    Bild
    Homepage

    AW: Sieh dir Cells an! 1mal fehlt was! Gruß owT
    24.03.2021 07:57:21
    Axel
    Moin, schon mal danke für eure Antworten.
    Kennt ihr das? Ihr start auf den Code und könnt den Fehler nicht finden? Mir geht es gerade so. Ich finde den Fehler nicht auch wenn du mir sagst, dass die ersten Cells sich auf die aktuelle TAbelle bezieht.
    Mit wsTrsheets.Range(Cells(1, 1) habe ich doch korrekt die Tabelle angesteuert, oder nicht?

    Anzeige
    AW: Sieh dir Cells an! 1mal fehlt was! Gruß owT
    24.03.2021 08:11:07
    peterk
    Hallo
    
    trsArr = wsTrsheets.Range(wsTrsheets.Cells(1, 1), wsTrsheets.Cells(letztezeile, 2))
    


    AW: Sieh dir Cells an! 1mal fehlt was! Gruß owT
    24.03.2021 08:45:47
    Axel
    Vielen Dank euch allen, jetzt habe ich es. Tomaten auf den Augen ;-).

    Benutze ein With-Statement …
    24.03.2021 08:10:36
    RPP63
    … dann sollte es klarer sein:
    wsTrsheets
    trsArr = .Range(.Cells(1, 1), .Cells(letztezeile, 2))
    End With
    
    Gruß Ralf

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige