Zusammenhängende Zellenblöcke kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub aufr() Dim z1 As Range, b1 As Range, z2 As Range, b2 As Range Dim WB1 As Workbook, WB2 As Workbook Dim ws1 As Worksheet, ws2 As Worksheet Set WB1 = Workbooks("Mappe1.xls") Set WB2 = Workbooks("Mappe2.xls") Set ws1 = WB1.Worksheets("Tabelle1") Set ws2 = WB2.Worksheets("Tabelle1") Set z1 = ws1.[a1] Set z2 = ws2.[b3] Call blablab(z1, z2, b1, b2) b1.Copy b2 End Sub

Sub blablab(Ur_Zelle As Range, Zielzell As Range, _ UBereich As Range, ZBereich As Range) Dim r&, c& r = Ur_Zelle.End(xlDown).Row - 1 c = Ur_Zelle.End(xlToRight).Column - 1 Set UBereich = Range(Ur_Zelle, Ur_Zelle.Offset(r, c)) Set ZBereich = Range(Zielzell, Zielzell.Offset(r, c)) End Sub

Hi Günther,
ich glaube ich habe mich etwas ungünstig ausgedrückt. Ich habe etwas Programmiererfahrung in Java und mir ist der Grundgedanke des objektorientierten Programmierens durchaus klar, allein mit VBA haperte es noch.
In Java erstelle ich ein Objekt und habe dann automatisch ein Handle darauf mit dem ich Arbeiten kann, während in Excel die Objekte: Tabellen/Dateien/Zellen schon vorher da sind und ich mir dann irgendwie ein Handle darauf besorgen muss, eh ich damit arbeiten kann. Wenn ich mir aber ein Handle in einer Subroutine/Funktion besorge und das dann als Rückgabewert meiner Funktion verwende:

FUNKTION xy(...) AS WORKSHEET

und im Hauptprogramm:

DIM ws AS WORKSHEET
SET ws=xy(...)

müsste ich auf das Objekt doch auch aus meinem Hauptptogramm zugreifen können.
In meinem Programm durch suche ich alle Worksheets in einem Workbook nach einem bestimmten Eintrag (mit FOR EACH worksheet in übergebenem Workbook...)
Wenn ich dann dieses Worksheet gefunden habe sichere ich es in einer Variable vom Typ Worksheet und gebe diese zurück, bzw. erhalte dann Fehler 1004.

Jetzt zu meinen Schwierigkeiten mit dem Verständnis deines Programms: Du erstellst im Hauptprogramm ein leeres Objekt vom Typ Range (Urbereich), übergibst es an die Subroutine und überschreibst es dann mit dem richtigen Rangeobjekt und dann ist es auch im Hauptprogramm geändert (wegen Übergabe als Referenz : byRef ?!)

Vielen Dank und viele Grüße
Philipp

Hallo Philipp,

sorry, jetzt hat's aber etwas gedauert mit einer Antwort.
>Jetzt zu meinen Schwierigkeiten mit dem Verständnis deines Programms: Du erstellst im
>Hauptprogramm ein leeres Objekt vom Typ Range (Urbereich), übergibst es an die
>Subroutine und überschreibst es dann mit dem richtigen Rangeobjekt und dann ist es auch
>im Hauptprogramm geändert (wegen Übergabe als Referenz : byRef ?!)

Ja.

Alles ByRef, z1 und z2 sind bereits definierte Range-Objekte
b1 und b2 die Rückgaben aus der Funktion.
Ist natürlich nicht astrein, weil z1 und z2 ausreichen würden,
wollte das wegen der besseren Übersichtlichkeit trennen
und hab wohl nur für Verwirrung gesorgt.... :-))
Call blablab(z1, z2, b1, b2)

>müsste ich auf das Objekt doch auch aus meinem Hauptptogramm zugreifen können.
Ja:
Angenommen, in der Arbeitsmappe, in der sich dieser Quellcode befindet,
muss einmal in irgend einer Tabelle Hurra in Zelle a1 stehen
(alles ohne Fehlerbehandlung):


Sub MachMal()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = ThisWorkbook ' oder Workbooks("NameEinerGeoeffnetenMappe")
MsgBox MySheet(wb).Name
End Sub


Function MySheet(wb) As Worksheet
Dim ws As Worksheet
For Each ws In wb.Worksheets
If ws.[a1] = "Hurra" Then
Set MySheet = ws
Exit Function
End If
Next
End Function

' [a1] = kurzschreibweise für Range("a1")

Viel Spass

Günther

Beliebteste Forumthreads (12 Monate)

Zusammenhängende Zellenblöcke kopieren

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zusammenhängende Zellenblöcke kopieren

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread