Visual Basic Befehl IF Range >0 ergibt den Laufzeitfehler13, Typen unverträglich

Hallo Chris

Es hat soweit geklappt, doch immer wenn ich den Befehl ausführe geht ein Visual Basic Fenster auf mit der Meldung:

Laufzeitfehler "1004".:

Fehler der Methode "NumberFormat" des Objekts "Range".

Kannst du mir vielleicht nochmals weiter helfen?

Besten Dank

Claudio

Hallo Claus,

ich habe Deinen Vorschlag aufgegriffen und entsprechend eingesetzt. Daraufhin erhielt ich zunächst die Fehlermeldung: Typen unverträglich

Nach einer Anpassung von mir bekomme ich nunmehr das gewünschte Ergebnis.

Der geänderte Code:

Sheets(.Range("A" & x).Value).Range(.Range("B" & x).Value)

Nochmals vielen Dank für Deine Hilfe!

Volker

Wo ich gerade noch am verstehen von dem Ganzen bin, ist mir noch eine kleine Schwierigkeit aufgefallen.
<br />Und zwar kann man so wie es momentan Programmiert ist, ja nur den Inhalt einer Zelle übertragen.
<br />Kann man die Programmierung so ändern das man auch einen Bestimmten Zellenbereich übertragen kann ?
<br />Ich habe es z.B. schon über den Range Befehl versucht aber das ist "Typen Unverträglich". Mit Sicherheit weist du wahrscheinlich sofort das das nicht klappt, allerdings habe ich wie gesagt noch nicht viel Ahnung davon.
<br />Danke für deine / Eure Hilfe und Antwort.
<br />MfG Niels
<br />

Hallo Claus,



danke erstmals für die schnelle Antwort. Es funktioniert aber leider noch nicht.

LRow bekommt den richtigen Wert für die letzte Zeile, das Ausgeben funktioniert aber noch nicht.

Ich habe erst deine Version probiert, dann noch eine andere um die Range zu bestimmen...



LRow = .Cells(Rows.Count, "E").End(xlUp).Row

'cb_jahr.RowSource = Range("E3:E" & LRow)

cb_jahr.RowSource = Range(.Cells(3, 5), .Cells(LRow, 5))



Er schimpft jedes mal und meint "Typen unverträglich". Muss ich den Datentyp von LRow vielleicht ändern? Bzw. wie weiß ich denn in VBA welchen Typ eine Variable bekommt, man muss sie ja nicht zwangsläufig definieren, oder?



Grüße,

Katharina

Hallo Julian,

füge folgenden Code in das Codemodul von Blatt "Tabelle1" ein:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim dest As Range

If Target.Address(0, 0) = "C4" Then

    With Sheets("Tabelle2")

        If Len(.Range("D1")) = 0 Then

            Set dest = .Range("D1")

        Else

            Set dest = .Cells(.Rows.Count, "D").End(xlUp)(2)

        End If

        dest = Target

    End With

End If

End Sub

Claus