VBA Tab kopieren, benennen, und Daten aus Zellen in bestimmte Felder einfügen

Dazu braucht man kein VBA, das geht viel einfacher.

Es gibt DateiA.xlsx in der die Daten sind, zeilenweise angeordnet.

Nun machst Du Dir eine DateiB.xlsx mit den Tabellen in dem gewünschten Layout.

In diese DateiB müssen nun die Daten aus einer bestimmten Zeile, wenn man es direkt macht wäre es also z.B. so eine Formel

=[DateiA.xlsx]Tabelle1!$A$8

Im Prinzip müsste man also nur die 8 in der Formel durch eine andere Zeile ersetzen und fertig. Das ginge zwar, aber das macht man nicht.

Denn es geht viel besser. In der Datei B macht man sich noch eine Tabelle "Setup", in dieser schreibt man in z.B. A1 die Personalnummer oder den Namen oder irgendeine andere eindeutige ID und die sucht man in Datei A und bekommt die Zeilennummer

B1: =VERGLEICH(A1;[DateiA.xlsx]Tabelle1!$A:$A;0)

Und mit der kann man sich dann die Daten aus jeder Spalte holen.

A1: =INDEX([DateiA.xlsx]Tabelle1!$B:$B;Setup!B1)

Zum Schluß speichert man die DateiB als Vorlage mit der Endung .xltx ab und fertig. Braucht man nun neue "Zettel", dann macht man einen Doppellick auf die DateiB.xltx und Excel erstellt eine neue Datei, ID in Setup ändern, Datei mit dem Namen speichern, ausdrucken
fertig.

Andreas.

Hallo Nsmpio,

danke für die Nachricht.

Meine Antwort ist die gleiche wie in

deinem anderen Thread

MfG;

Gijs H.

Vielen Dank,

hab nun auch dies probiert und funktioniert einwandfrei.

LG

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.

Claus hat ja schon in diesem Thread was dazu geschrieben:

https://answers.microsoft.com/de-de...t-zählen/f6361ca6-bb6b-412b-ab34-5c9dfa6d6c11

Dem kann ich nur zustimmen, wenn eine Zelle verschiedene Zahlen / Buchtsaben zusammen enthalten ist eine einfache Formelsuche meist schwierig, bzw. bringt falsche Ergebnisse.

Entweder Du splittest die Daten korrekt in einzelne Zellen auf und erstellst dann (komplexe) Formeln die in den Spalten suchen/zählen, oder Du musst eine Analyse der Daten mit VBA machen.

Auch in VBA geht man den Weg die Daten nach Wörtern zu splitten und macht dann die Auswertung.

Andreas.