Zugriff auf anderes Workbook

Udo · 2008-01-16T18:53:00+00:00

Hallo, ich möchte mittels eine Function auf eine anderes Workbook zugreifen und dort Zellen verketten. Dazu gibts die Function: Function Verketten(SourceWorkB As Workbook) As String Verketten = "=CONCATENATE([Symbolik.xls]Emu!R14C1,[Symbolik.xls]Emu!R14C2)" 'das geht, da ich die Namen des Workbook und Worksheet direkt angebe. ' Ich möchte aber die VariablenNamen aus den Übergabeparametern verwenden, ungefähr so Verketten = "=CONCATENATE([SourceWorkB]Emu!R14C1,[SourceWorkB]Emu!R14C2)" geht aber nicht, da die Datei SourceWorkB nicht gefunden wird. Danke im vorraus Udo Berger

Hallo Udo,
die Entscheidung, ob die beiden Zellen per String (=Zelladresse) oder als Bereichsobjekt (Range) als Parameter
übergeben werden sollten, hängt vor allem davon ab, was beim Aufruf leichter fällt.
Wenn es Range-Parameter sind, kann die Angabe des Workbooks und des Wo0rksheets entfallen.
Jeder Bereich kennt das Blatt und die Mappe, zu denen er gehört.
( Das könntest du abfragen mit MsgBox rngA.Parant.Name und rngA.Parant.Parant.Name )
Deine Funktion sähe dann so aus:


Function VerketteR(rngZ1 As Range, rngZ2 As Range) As String
VerketteR = rngZ1 & rngZ2
' oder anderer, umfangreicherer Code
End Function

Wenn die Zelladressen Parameter sein sollen:
Gehören beide Zellen immer im selben Blatt? Wenn nicht, wären auch zwei Mappen- und zwei Blatt-Parameter sinnvoll.
Gehören beide Zellen immer im selben Blatt, sähe das etwa so aus:


Function VerketteS(strWbName As String, strWsName As String, _
strR1 As String, strR2 As String) As String
With Workbooks(strWbName).Worksheets(strWsName)
VerketteS = .Range(strR1) & .Range(strR2)
' oder anderer, umfangreicherer Code
End With
End Function

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Hallo Udo,
was du hinter "Habe alles Mögliche ausprobiert, geht aber nichts."
geschrieben hast, geht sicher nicht.
Da müsstest du dich noch ein wenig damit beschäftigen, wie man in VBA Zellen anspricht.
Beispiele dafür gibt es in der VBA-Hilfe und hier im Forum in Hülle und Fülle.
Ich hatte dir geschrieben:
Die Entscheidung, ob die beiden Zellen per String (=Zelladresse) oder als Bereichsobjekt (Range) als Parameter
übergeben werden sollten, hängt vor allem davon ab, was beim Aufruf leichter fällt.
Wo willst du die Funktion nutzen?
Willst du sie von einer VBA-Routine aus aufrufen? Oder in einer Tabelle?
Wenn aus VBA: Wie werden die zu verkettenden Zellen vor dem Aufruf festgelegt?
Hast du die Zellen als Bereiche (Ranges) vorliegen oder nur die Zelladressen?
In dieser Mappe (als Verketter1.xls speichern) findest du für beide Funktionen Beispiele:
https://www.herber.de/bbs/user/49147.xls
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Forumthread: Zugriff auf anderes Workbook

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Zugriff auf anderes Workbook

Forumthread: Zugriff auf anderes Workbook

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread