Excel VBA Format Tabellenblätter

Hallo Senta,
vielen Dank für die Rückmeldung. Ich werde es ausprobieren und
gebe ihnen dann ein Feedback.
Viele Grüße
Andreas

Hallo

Ich bin Sneha und helfe Ihnen gerne bei Ihrer Frage.

Wenn Sie mehrere Arbeitsblätter mit demselben Design haben und allen eine Schaltfläche an derselben Position hinzufügen möchten, können Sie VBA verwenden, um diesen Prozess zu automatisieren. Dazu können Sie die folgenden Schritte ausführen:

1) Öffnen Sie den Visual Basic-Editor (VBE), indem Sie Alt + F11 drücken.
2) Wählen Sie im VBE das Menü "Einfügen" und klicken Sie dann auf "Modul", um ein neues Modul zu erstellen.
3) Fügen Sie im Modul den folgenden Code hinzu:

Sub AddButtonToAllSheets()
Dim ws As Worksheet ' Variable für Arbeitsblatt deklarieren

' Durchlaufen aller Arbeitsblätter in der Arbeitsmappe
Für jedes ws in ThisWorkbook.Worksheets
' Hinzufügen einer Schaltfläche zum Arbeitsblatt
Mit ws. Schaltflächen.Hinzufügen(100, 100, 50, 50)
. caption = "My Button" ' Set button caption
. OnAction = "MyButtonClick" ' Schaltflächenaktion festlegen
Ende mit
Weiter ws
Ende Sub

Sub MyButtonClick()
MsgBox "Button klickte!" ' Meldung anzeigen, wenn auf die Schaltfläche geklickt wird
Ende Sub

4) Wählen Sie im VBE das Menü "Ausführen" und klicken Sie dann auf "Sub / UserForm ausführen", um den Code auszuführen.

Dieser Code durchläuft alle Arbeitsblätter in der Arbeitsmappe, fügt jedem von ihnen an der Position (100, 100) eine Schaltfläche hinzu und legt die Beschriftung der Schaltfläche auf "My Button" und ihre Aktion auf die Unterroutine "MyButtonClick" fest. Wenn auf die Schaltfläche geklickt wird, wird die Unterroutine "MyButtonClick" ausgeführt und zeigt die Meldung "Schaltfläche geklickt!" an.

Sie können den Code nach Bedarf anpassen, um die Position, Beschriftung und Aktion der Schaltflächen zu ändern, die den Arbeitsblättern hinzugefügt werden. Nachdem Sie die Schaltflächen hinzugefügt haben, können Sie sie wie gewünscht verschieben und in der Größe ändern, um sie an das Design der anderen Schaltflächen auf den Arbeitsblättern anzupassen.

Wenn Sie die Schaltfläche alternativ manuell zu allen Arbeitsblättern hinzufügen möchten, können Sie wie folgt vorgehen:

1) Drücken Sie auf dem Arbeitsblatt, auf dem sich die Schaltfläche derzeit befindet, Strg + C, um die Schaltfläche zu kopieren.
2) Drücken Sie auf jedem der anderen Arbeitsblätter Strg + V, um die Schaltfläche einzufügen.
3) Klicken Sie auf jede der eingefügten Schaltflächen, und ziehen Sie sie an die gewünschte Position, um sie dem Design der anderen Schaltflächen auf dem Arbeitsblatt anzupassen.

Bei dieser Methode müssen Sie die Schaltfläche manuell hinzufügen und auf jedem der Arbeitsblätter positionieren, sie ist jedoch möglicherweise einfacher und schneller als die Verwendung von VBA, wenn Sie nur über eine kleine Anzahl von Arbeitsblättern verfügen.

Wenn Sie weitere Fragen haben oder Hilfe benötigen, zögern Sie bitte nicht, mich wissen zu lassen. Ich bin hier, um nach besten Kräften zu helfen.

Geben Sie der Gemeinschaft etwas zurück. Helfen Sie der nächsten Person, die dieses Problem hat, indem Sie angeben, ob diese Antwort Ihr Problem gelöst hat. Klicken Sie unten auf Ja oder Nein.

Alles Gute
Sneha

Diese Antwort ist automatisch übersetzt worden. Daher kann sie grammatikalische Fehler oder fremde Ausdrücke enthalten.

Haloo Sneha,
das hat funktioniert Dankeschön! das
Wenn ich jetzt den Code geändert haben möchte, dass Logo automatisch
auf alle Tabellenblättern eingefügt aber aus einem bestimmten
Pfad. Ich habe diesen Code benutzt, er läuft auch durch, aber die Logos werden nicht eingefügt.
Kannst du noch mal helfen?
Danke und Viele Grüße
Andreas
Sub InsertPictureOnAllWorksheets()
Dim ws As Worksheet Dim pic As Shape
' Set the file path of the picture you want to insert
Dim picFilePath As String picFilePath = ""\\Mac\Home\Desktop\Logo gespiegelt rot 2.png""
' Insert the picture on the active worksheet
Set pic = ActiveSheet.Shapes.AddPicture(picFilePath, msoFalse, msoTrue, 0, 0, PicWidth, PicHeight)
' Iterate over all of the worksheets in the workbook
For Each ws In ThisWorkbook.Worksheets
' Insert the picture on the current worksheet
Set pic = ws.Shapes.AddPicture(picFilePath, msoFalse, msoTrue, 0, 0, PicWidth, PicHeight)
Next ws
End Sub

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

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.