Excel VBA Tabellenblätter hinzufügen/kopieren bei bestimmten Zellenwert

Soweit mir bekannt ist, gibt es keine Funktion, die automatisch einen Hyperlink öffnet und den Inhalt einer bestimmten Zelle des verlinkten Tabellenblattes abruft und kopiert. Sie können jedoch den Inhalt einer bestimmten Zelle eines anderen Tabellenblattes mithilfe einer Formel wie “=Tabelle2!A1“ abrufen, wobei “Tabelle2“ der Name des anderen Tabellenblattes und `A1` die Zelle ist, deren Inhalt Sie abrufen möchten.

Es ist aber möglich, mit VBA-Code einen Hyperlink zu öffnen und den Inhalt einer bestimmten Zelle des verlinkten Tabellenblattes abzurufen und zu kopieren. Um den Inhalt einer bestimmten Zelle des verlinkten Tabellenblattes abzurufen und zu kopieren, können Sie eine benutzerdefinierte VBA-Funktion erstellen.
Hier ist ein Beispiel für eine solche Funktion:

Function
ZellenwertAbrufen(TabellenblattName As String, ZellenAdresse As String) As Variant
' Diese Funktion gibt den Wert einer Zelle in einem bestimmten Tabellenblatt zurück
ZellenwertAbrufen = Worksheets(TabellenblattName).Range(ZellenAdresse).Value
End Function

Diese Funktion nimmt den Namen des Tabellenblattes und die Adresse der Zelle als Eingabe und gibt den Wert der Zelle zurück. Sie können diese Funktion dann in einer Formel verwenden, um den Wert der Zelle abzurufen und in eine andere Zelle zu kopieren.
Sie können dann die folgende Formel in einer Zelle des Übersichtstabellenblattes eingeben, um den Wert von Zelle A1 von Tabelle2 abzurufen (beispiel):

=ZellenwertAbrufen("Tabelle2", "A1")

Diese Formel ruft die benutzerdefinierte VBA-Funktion `ZellenwertAbrufen` auf und gibt den Namen des Tabellenblattes ("Tabelle2") und die Adresse der Zelle ("A1") als Eingabe an. Die Funktion gibt dann den Wert von Zelle A1 von Tabelle2 zurück, der in der Zelle des Übersichtstabellenblattes angezeigt wird, in der Sie die Formel eingegeben haben.

Zuerst sollte die benutzerdefinierte VBA-Funktion in Ihrem Excel-Dokument erstellt werden, bevor Sie diese in einer Formel wie oben verwenden können.

Hallo,

probiere mal folgenden Code. Falls deine Zielblätter nicht "Januar", "Februar",... heißen, muss der Name der Zielblätter noch entsprechend angepasst werden:

Sub Uebertrag()Dim i As IntegerDim LRow As LongWith ActiveSheet LRow = .Cells(.Rows.Count, "H").End(xlUp).Row For i = 1 To 12 .Range("H1:H" & LRow).AutoFilter Field:=1, Operator:= _ xlFilterValues, Criteria2:=Array(1, i & "/20/2020") If Application.Subtotal(3, .Range("H:H")) > 1 Then Sheets(MonthName(i)).UsedRange.ClearContents .Range("D1:N" & LRow).Copy Sheets(MonthName(i)).Range("A1") End If Next .AutoFilterMode = FalseEnd WithEnd Sub

Claus

Hallo,



du kannst in VBA die Hilfe und auch den Objektkatalog nutzen, wenn es bei Excel für Mac so etwas gibt. Außerdem ist (jedenfalls für PC) im Officeordner eine VBALISTE.xls mit 2 Tabellenblättern. Eins für Tabellenfunktionen und eins für VBA-Schlüsselwörter.

Falls du beides nicht findest, wende dich bitte ans Forum von Excel für Mac.



Mit freundlichen Grüßen

Claus

Hallo,

wenn du für alle Tabellenblätter den gleichen Scrollbereich festlegen möchtest, dann kopiere den Code von Claus in den Codebereich für "Diese Arbeitsmappe" (siehe Projektexplorer auf der linken Seite deines Screenshots).

Du scheinst den Code nicht nur verkehrt, sondern auch noch in den Codebereich für die Tabelle "L V G" geschrieben zu haben.

Warum begrenzt du den Scrollbereich nicht ohne VBA?

Dazu brauchst du nur alle Spalten und Zeilen die nicht verwendet werden sollen ausblenden und die Tabellenblätter schützen.

MfG

Mike

strg + H

suchen nach altem zellenwert > ersetzen durch neuen zellenwert!?

müsste gehen...