Brett vorm Kopf: Range-Befehl

Forumthread: Brett vorm Kopf: Range-Befehl
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Brett vorm Kopf: Range-Befehl

Jochen

Hallo zusammen,
irgendwie habe ich gerade ein Brett vorm Kopf. Wer kann mir helfen, das zu beseitigen:
Problem:
Ich habe einen Bereich markiert und mit Strg+C kopiert und will ihn jetzt mit folgendem Code einfügen:
Spalten_Nr = 1
Sheets("Seite1").Range(Spalten_Nr, 162).Paste
Dabei bringt er mir immer einen "Laufzeitfehler 9". Wahrscheinlich paßt die Range-Zuordnung nicht, nur was mache ich falsch?
P.S.: Die Spalten_Nr soll hinterher hochgezählt werden, daher geht "A" für Spalte 1 nicht.
Danke schon mal sagt Euch
Josch

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

.Cells(162, Spalten_Nr).Paste o.T.

Josef
klappt nicht ....

Jochen
AW: klappt nicht ....

Reinhard
AW: klappt nicht ....

Jochen

.Cells(162, Spalten_Nr).Paste o.T.

19.02.2010 08:59:02

Josef

Gruß Sepp

klappt nicht ....

19.02.2010 09:33:14

Jochen

Danke für die Hilfe, aber leider klappt es nicht.
Nachdem ich von Hand einen Bereich (mehrere Zeilen und Spalten) markiert habe und Strg+C gedrückt habe versuche ich folgendes Makro auszuführen:


Sub Makro1()
Dim Spalten_Nr As Integer
Spalten_Nr = 1
Sheets("Seite1").Cells(162, Spalten_Nr).Paste
End Sub

Dabei bringt er mir nun einen Laufzeitfehler 438 (Objekt unterstützt diese Eigenschaft oder Methode nicht)
Irgendwie stehe ich auf dem Schlauch

AW: klappt nicht ....

19.02.2010 10:41:49

Reinhard

Hallo Jochen,

Option Explicit
Sub tt()
Dim Spalten_Nr
Spalten_Nr = 1
With Sheets("Tabelle1")
.Range("A1:B8").Copy
.Paste Destination:=.Cells(162, Spalten_Nr)
End With
End Sub
Sub tt2()
Dim Spalten_Nr
Spalten_Nr = 1
With Sheets("Tabelle1")
.Range("A1:B8").Copy Destination:=.Cells(162, Spalten_Nr)
End With
End Sub

Gruß
Reinhard

AW: klappt nicht ....

22.02.2010 11:01:29

Jochen

Hallo Reinhard,
danke für die Hilfe, nun funktioniert es.
Sorry für die späte Rückmeldung, aber leider bin ich nicht vorher dazu gekommen es zu testen.
Herzlichen Dank
Jochen

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!