EXCEL VBA INDIREKT

Forumthread: EXCEL VBA INDIREKT
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: EXCEL VBA INDIREKT

EXCEL VBA INDIREKT

16.02.2025 17:18:25

Kalli

Ich muss einen Wert aus Tabelle "1!e28" in Tabelle "2!e12" kopieren.
Und das mit weiteren 10 Tabellen.
Dazu benutze ich die Formel "=INDIREKT(D6&"!e28")", wobei der Name
der Tabelle "1" mit "Function tn() : tn = ActiveSheet.Name : End Function"
in Zelle "D6" der Tabelle "2" kopiert wird.
Wie kann ich diesen Umweg einsparen? "D6" durch die Function ersetzen,
funktioniert nicht.

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: EXCEL VBA INDIREKT

16.02.2025 17:34:05

{Boris}
AW: EXCEL VBA INDIREKT

17.02.2025 13:23:10

Ulf
AW: EXCEL VBA INDIREKT

17.02.2025 14:06:40

GerdL

AW: EXCEL VBA INDIREKT

16.02.2025 17:34:05

{Boris}

Hi,

was hat INDIREKT() mit VBA zu tun?
Wenn Du kopieren möchtest, brauchst Du keine Funktionen (wie INDIREKT).
Zeig doch mal bitte ne kleine Beispieldatei.

VG, Boris

AW: EXCEL VBA INDIREKT

17.02.2025 13:23:10

Ulf

50 ways

=INDIREKT(BLATT(1) &"!e28")

=INDIREKT(BLATT("1") &"!e28")

=INDIREKT(fnblatt("1") &"!e28")

=INDIREKT(fnblatt(2;-1) &"!e28")

Public Function fnBlatt(ByVal strName As String, Optional bAktivesBlatt As Boolean = False) As String

    If bAktivesBlatt Then

        fnBlatt = ActiveSheet.Name

    Else

        fnBlatt = Sheets(strName).Name

    End If

End Function