Range und cells

07/02/2010 - 17:57 von Peter | Report spam
Hallo zusammen,
ich habe folgenden Code, der aber nicht funktioniert. Es kommt die
Fehlermeldung "Typen unvertràglich". Was mache ich falsch?

Mein Code startet beim Activieren von Tabelle1
Ich vergleiche zwei Bereiche von Tabelle2 und möchte dann bei
Geichheit in die Zelle A1 der Tabelle1 die 111 reinschreiben.

Sub worksheet_activate()
dim i as integer
dim k as integer
i=1
k=2
if Worksheets("Tabelle2").Range(Worksheets("Tabelle2").Cells(i, 1),
Worksheets("Tabelle2").Cells(i, 3)) Worksheets("Tabelle2").Range(Worksheets("Tabelle2").Cells(k, 1),
Worksheets("Tabelle2").Cells(k, 3)) Then
Range("A1") = "111"
End If
End Sub

Gruß
Peter
 

Lesen sie die antworten

#1 Hajo_Zi
07/02/2010 - 20:40 | Warnen spam
Hallo Peter,

bei Range wird eine Buchstabenkombination und eine Zahl angegeben als nicht
, sondern & da es verkettet werden soll.
Falls beides Zahlen dann Cells.

Gruß Hajo
MVP für Microsoft Excel
Betriebssystem Vista Ultimate SP2 und Excel Version2007 SP2
http://Hajo-Excel.de/



"Peter" wrote:

Hallo zusammen,
ich habe folgenden Code, der aber nicht funktioniert. Es kommt die
Fehlermeldung "Typen unvertràglich". Was mache ich falsch?

Mein Code startet beim Activieren von Tabelle1
Ich vergleiche zwei Bereiche von Tabelle2 und möchte dann bei
Geichheit in die Zelle A1 der Tabelle1 die 111 reinschreiben.

Sub worksheet_activate()
dim i as integer
dim k as integer
i=1
k=2
if Worksheets("Tabelle2").Range(Worksheets("Tabelle2").Cells(i, 1),
Worksheets("Tabelle2").Cells(i, 3)) > Worksheets("Tabelle2").Range(Worksheets("Tabelle2").Cells(k, 1),
Worksheets("Tabelle2").Cells(k, 3)) Then
Range("A1") = "111"
End If
End Sub

Gruß
Peter
.

Ähnliche fragen