Range, Select und 1004

Ich möchte von einem Tabellenblatt in ein anderes verbundene Zellen kopieren.
Zum ersten Testen habe ich versucht, innerhalb des selben Tabellenblattes zu kopieren:
Range("a1:b5").Select
Selection.Copy
Range("a7").Select
ActiveSheet.Paste
Funktioniert einwandfrei, kopiert die verbundenen Zellen und die Formatierungen gleich mit.
Wenn ich jetzt aber versuche, mit der Range-Anweisung einen Bereich eines anderen, nicht aktiven Tabellenblattes zu kopieren, kommt immer die Fehlermeldung 1004, dass die select-Methode auf das range-Objekt nicht angewendet werden konnte.

Hinweis: Der Button mit dem Makro befindet sich in Tabelle2, und diese ist ausgewählt.
Sheets(1).Select
Range("a1:b5").Select ' Hier kommt dann die Fehlermeldung
Selection.Copy
Wie muss man den Code anpassen, um verbundene Zellen von Tabelle1 auf Tabelle2 zu kopieren?
mfg

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub commandbutton1_click() Dim auswahl1 As String Dim auswahlbereich1 As String Dim zeile1 As String Dim zielbereich1 As String v = Sheets(2).Range("A1").Value 'auswahl der zu kopierenden zeile aus den anderen ... snr = 2 * v - 1 '... tabellenblättern (nur jede zweite zeile) auswahl1 = snr 'umwandeln in string auswahlbereich1 = "b" + auswahl1 + ":af" + auswahl1 'auswahlbereich (text) bilden ' es müssen pro zelle 31 zellen kopiert werden (monat) ' ES MUSS DER GESAMTE BEREICH AUSGEWÄHLT WERDEN, WEIL VERBUNDENE ZELLEN MIT- ' KOPIERT WERDEN SOLLEN! For i = 3 To 13 'nur 11 Monate, also 11 Tabellenblätter zeile1 = 2 * (i - 2) - 1 'zusammensetzung des zielbereichs (text)... zielbereich1 = "c" + zeile1 '... in abängigkeit der sheet-nummer 'wieder nur jede zweite zeile kopieren Sheets(i).Range(auswahlbereich1).Copy Destination:=Sheets(2).Range(zielbereich1) Next i ''WENN IN ZELLE A1 EIN GRÖßERER WERT ALS 2 STEHT, KOMMT DIE FEHLERMELDUNG: ''Automatisierungsfehler ''Das aufgerufene Objekt wurde von den Clients getrennt. ''wenn in zelle A1 der wert 1 oder 2 steht, geht es! ''erst ab dem wert 3 geht's schief. Range("a1").Select End Sub

Eine Zeile des Tabellenblattes enthält Informationen über Kunde1 in Zeile1, Kunde2 in Zeile2 usw. Die Tabellenblättern 3 ... 13 stellen noch Monate dar. Es wird also in Tabellenblatt3 in Zeile1 das Verhalten von Kunde1 für Januar erfasst, dann in Tabellenblatt4 wieder Kunde1 in Zeile1 für Februar usw.
Das Tabellenblatt 2 soll die Übersicht werden. Der Benutzer wählt aus, welchen Kunden (also Zeile) er aus den Tabellenblättern 3 ... 13 kopieren möchte = Wert in Zelle A1.
Dazu baue ich mir als String den Auswahlbereich und den Zielbereich. Z.b. bekommt der String "Auswahlbereich" den Wert "b1:af1" zugewiesen (ohne "), wenn der Benutzer in A1 eine 1 eingegeben hat, oder "b5:af5", wenn eine 5 drinstand usw. Ähnliches gilt für den Zielbereich.
Jetzt sollte in der For - Next Schleife jedes der Tabellenblätter 3 ... 13 angesteuert werden, und der Auswahlbereich in das Übersichtsblatt Tabelle2 kopiert werden.
Ich hab das Makro mal auf den Kern reduziert. BEI DIESER EINFACHEREN KONSTRUKTION KOMMT DIE FEHLERMELDUNG ÜBER DEN CLIENT AB EINEM WERT VON 5 IN DER ZELLE A1!! Bei den Wert 1 ... 4 funktionert es.


Public Sub commandbutton1_click()
Dim auswahl As String
Dim auswahlbereich As String
Dim zeile As String
Dim zielbereich As String
auswahl = Sheets(2).Range("A1").Value
auswahlbereich = "b" + auswahl + ":af" + auswahl
For i = 3 To 13
zeile = i - 2
zielbereich = "c" + zeile
Sheets(i).Range(auswahlbereich).Copy Destination:=Sheets(2).Range(zielbereich)
Next i
Range("a1").Select
End Sub

Sub auswahl() Dim a As String Dim r As Integer Dim I As Integer r = Sheets(2).Range("C65536").End(xlUp).Offset(0, 0).Row Sheets(2).Range("C3" & ":AF" & r).ClearContents a = Sheets(2).Range("A1").Value For I = 3 To 13 Sheets(I).Range("A" & a & ":AF" & a).Copy Destination:=Sheets(2).Range("C65536").End(xlUp). _ Offset(2, 0) Next I End Sub

Sub auswahl() Dim a As String Dim r As Integer Dim I As Integer r = Sheets(2).Range("C65536").End(xlUp).Offset(0, 0).Row Sheets(2).Range("C1" & ":AF12").ClearContents a = Sheets(2).Range("A1").Value For I = 3 To 13 If Sheets(2).Range("C1").Value = "" Then Sheets(I).Range("A" & a & ":AF" & a).Copy Destination:=Sheets(2).Range("C1") Else Sheets(I).Range("A" & a & ":AF" & a).Copy Destination:=Sheets(2).Range("C65536").End( _ xlUp). _ Offset(1, 0) End if Next I End Sub

Public Sub commandbutton1_click() Dim auswahl As Long Dim i As Long With Sheets(2).Range("A1") If .Value = "" Or .Value = 0 Or Not IsNumeric(.Value) Then MsgBox ("Bitte eine Zahl grösser als 0 eingeben") Exit Sub End If auswahl = .Value End With For i = 3 To 13 Sheets(i).Cells(auswahl, 2).Resize(1, 30).Copy Destination:=Sheets(2).Cells(i - 2, 3) Next i Range("a1").Select End Sub

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Range, Select und 1004

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread