Zugriff auf anderes Workbook

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Function CONC(strWKB As String, strWKS As String) As String CONC = _ "=CONCATENATE([" & strWKB & "]'" & strWKS & _ "'!R14C1,[" & strWKB & "]'" & strWKS & "'!R14C2)" End Function Sub TestFunction() MsgBox CONC("TestWks.xls", "Tabelle1") End Sub

Function Verkette1(SourceWorkB As Workbook) As String With SourceWorkB.Worksheets("Emu") Verkette1 = .Cells(14, 1) & .Cells(14, 2) End With End Function Function Verkette2(strWBName As String) As String With Workbooks(strWBName).Worksheets("Emu") Verkette2 = .Cells(14, 1) & .Cells(14, 2) End With End Function Sub tst() MsgBox Verkette1(ThisWorkbook) MsgBox Verkette2(ThisWorkbook.Name) End Sub

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

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zugriff auf anderes Workbook

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

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread