Fehlermeldung

Hallo Foren-Gemeinde,
ich habe ein Problem mit einer Range-Ansprache. Der folgende Code-Schnipsel läuft auf den Fehler "Laufzeitfehler '1004': Die Methode 'Range' für das Objekt '_Worksheet' ist fehlgeschlagen" :

For Each rngEinheit In wksTwo.Range(Cells(intFirstRow + 1, 2), Cells(intLastRow2, 2))

Dabei ist rngEinheit als 'Range' definiert und wksTwo als 'Worksheet'. Außerdem ist wksTwo folgendes zugewiesen worden :

Set wksTwo = ThisWorkbook.Worksheets(strStärke)

Ändere ich den obigen Code-Schnipsel auf

For Each rngEinheit In wksTwo.Range("B8:B12")

so läuft er problemlos weiter.
Desweiteren habe ich ein Problem mit einem Vergleich. Bei

If rngEinheit.Value = rngTarget.Value Then

bekomme ich den Fehler "Laufzeitfehler '13': Typen unverträglich", obwohl auch rngTarget als Parameter mit 'Range' definiert wurde. Beim Debuggen ist mir außerdem aufgefallen, dass rngEinheit nur 1 Wert beinhaltet, während rngTarget als Matrix mit rngTarget(1,1) und rngTarget(1,2) angezeigt wird - wobei rngTarget(1,1) den gesuchten Wert enthält.
Ich bin momentan etwas ratlos und hoffe, Ihr könnt mir helfen.
Mit freundlichen Grüßen,
Dancer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal rngTarget As Range) Dim intI As Integer Dim rngEinheit As Range Dim wksOne As Worksheet, wksTwo As Worksheet Set wksOne = ThisWorkbook.Worksheets(strNeu) ' Arbeitsblatt "neue Einheiten" Set wksTwo = ThisWorkbook.Worksheets(strStärke) ' Arbeitsblatt "Stärkemeldung" wksOne.Unprotect ' Blattschutz aufheben intLastRow = wksOne.Cells(Rows.Count, 1).End(xlUp).Row ' letzte beschriebene Zeile _ feststellen intLastRow2 = wksTwo.Cells(Rows.Count, 1).End(xlUp).Row ' letzte beschriebene Zeile _ feststellen If Not Intersect(rngTarget, Range(Cells(intFirstRow - 1, intSpalteID), _ Cells(intLastRow, intLastWrittenColumn))) Is Nothing Then ' Klick im zulässigen Bereich Select Case rngTarget.Column ' gewählte Spalte Case intSpalteFunkruf ' Funkrufname With wksTwo For Each rngEinheit In .Range(.Cells(intFirstRow + 1, 2), .Cells( _ intLastRow2, 2)) If rngEinheit.Value = rngTarget.Value Then ' Funkrufname ist vorhanden Else End If Next rngEinheit End With Case Else End Select Else End If End Sub

Ausdruck Wert Typ rngEinheit.Value "Florian xxx" Variant/String rngTarget.Value Variant/Variant(1 to 1, 1 to 2) rngTarget.Value(1) Variant(1 to 2) rngTarget.Value(1,1) "Heros yyy" Variant/String rngTarget.Value(1,2) Leer Variant/Empty

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread