Laufzeitfehler "13" Typen unverträglich

22/11/2010 - 17:58 von CL | Report spam
Hallo Zusammen,
bei dem folgenden Code bekomme ich einen Fehler. Fehler an Position
11. Hat scheinbar was mit Position 8 zu tun. Wenn ich nur "Set rg ws.UsedRange" dann funktioniert es.

1.Sub test()
2.Dim wb As Workbook
3.Dim ws As Worksheet
4.Dim rg As Range
5.Dim a As Range
6.Set wb = ThisWorkbook
7.Set ws = wb.Worksheets(1)
8.Set rg = ws.UsedRange.Offset(2,
0).Columns(3).Resize(ws.UsedRange.Rows.Count - 2, 1)
9.rg.Interior.Color = vbGreen
10.For Each a In rg
11. MsgBox a.Value
12.Next a
13. End Sub

Vielen Dank
MI
 

Lesen sie die antworten

#1 Claus Busch
22/11/2010 - 19:37 | Warnen spam
Hallo MI,

Am Mon, 22 Nov 2010 08:58:03 -0800 (PST) schrieb CL:

8.Set rg = ws.UsedRange.Offset(2, 0).Columns(3).Resize(ws.UsedRange.Rows.Count - 2, 1)


warum Offset und dann columns(3)? Warum nicht gleich
Set rg = ws.UsedRange.Columns(5).Resize(ws.UsedRange.Rows.Count - 2, 1)

10.For Each a In rg



Probiers mal mit:
For Each a In rg.Cells


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen