Hallo zusammen,

ich habe folgendes Problem:
Ich möchte von einem Sheet Werte in ein anderes schieben. Diese sollen im 2. Sheet in der ersten Zeile in der nächsten freien Spalte stehen.
Ist A1 also schon besetzt soll der Wert in B1 stehen.

Ich habe jetzt erstmal eine Schleife geschrieben, welche mir die erste freie Zelle suchen soll, dabei erscheint aber folgende Fehlermeldung:

"Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen"

Der Code schaut folgendermaßen aus:
[CODE]

intRow = 1
intCol = 1

With Worksheets("Tabelle1")

Do While Range(intCol, intRow).Value <> ""
            Range(intCol, 11).Select
            intCol = intCol + 1
        Loop
End With
End Sub [/CODE]