Wie kann ich den Wert aus einer Zelle im VBA Code nutzen?

Willi1269 · 1. Juli 2024

Hallo zusammen,ich bin ziemlicher Neuling in Sachen VBA und versuche mich an ein paar Dingen.Aktuell will ich Zellen aus einer anderen Arbeitsmappe auslesen und in eine andere Eintragen.Das funktioniert auch soweit.Allerdings gebe ich aktuell an, welcher Zellenbereich ausgelesen werden soll.Kann ich diese Werte auch aus einer Tabelle auslesen und im Code nutzen?Sub Bereich_auslesen '** Dimensionierung der Variablen Dim pfad As String, datei As String, blatt As String, bereich As Range, zelle As Object '** Angaben zur auszulesenden Zelle pfad = "******" datei = "*****" blatt = "Anwesenheit"

oluwasegunfunmi ayod

Hallo

Wenn Sie das aktuelle Datum mithilfe von VBA in die angegebenen Spalten (A, N, V) und Zeilen (4-999) einfügen möchten, können Sie ein Makro erstellen, um dies zu erreichen. Hier ist ein Beispiel für einen VBA-Code, den Sie verwenden können:
Sub InsertCurrentDate()

Abblenden von WS als Arbeitsblatt
Dim rngA As Range, rngN As Range, rngV As Range, Zelle As Range

Set ws = ActiveSheet
Setzen Sie rngA = ws. Bereich("A4:A999")
Setzen Sie rngN = ws. Bereich("N4:N999")
Setzen Sie rngV = ws. Bereich("V4:V999")

Für jede Zelle in rngA
Zelle. Wert = Datum
Nächste Zelle

Für jede Zelle in rngN
Zelle. Wert = Datum
Nächste Zelle

Für jede Zelle in rngV
Zelle. Wert = Datum
Nächste Zelle

Ende Sub

Wenn Sie das aktuelle Datum mithilfe von VBA in die angegebenen Spalten (A, N, V) und Zeilen (4-999) einfügen möchten, können Sie ein Makro erstellen, um dies zu erreichen. Hier ist ein Beispiel für VBA-Code, den Sie verwenden können:

Sub InsertCurrentDate()

Abblenden von WS als Arbeitsblatt
Dim rngA As Range, rngN As Range, rngV As Range, Zelle As Range

Set ws = ActiveSheet
Setzen Sie rngA = ws. Bereich("A4:A999")
Setzen Sie rngN = ws. Bereich("N4:N999")
Setzen Sie rngV = ws. Bereich("V4:V999")

Für jede Zelle in rngA
Zelle. Wert = Datum
Nächste Zelle

Für jede Zelle in rngN
Zelle. Wert = Datum
Nächste Zelle

Für jede Zelle in rngV
Zelle. Wert = Datum
Nächste Zelle

Ende Sub

Gehen Sie folgendermaßen vor, um diesen VBA-Code in Ihrer Excel-Arbeitsmappe zu verwenden:

Drücken Sie ALT+F11, um den VBA-Editor (Visual Basic für Applikationen) zu öffnen.

Gehen Sie auf "Einfügen" > "Modul", um ein neues Modul einzufügen.

Kopieren Sie den oben bereitgestellten VBA-Code und fügen Sie ihn in das Modul ein.

Drücken Sie STRG+S, um die Arbeitsmappe zu speichern.

Schließen Sie den VBA-Editor.

Jetzt können Sie das Makro ausführen, indem Sie ALT + F8 drücken, das Makro mit dem Namen InsertCurrentDate auswählen und auf "Ausführen" klicken. Dadurch wird das aktuelle Datum in die angegebenen Zellen eingefügt.

Wenn Sie das Makro speziell durch Doppelklicken auf eine Zelle ausführen möchten, können Sie dies mithilfe des BeforeDoubleClick-Ereignisses des Arbeitsblatts tun. Diese Methode erfordert jedoch komplexeren VBA-Code und eine komplexere Anpassung. Lassen Sie es mich wissen, wenn Sie dabei Hilfe benötigen, und ich kann Ihnen weitere Anleitungen geben.

Alles Gute
Segunfunmi

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

ASKNiko

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 Busch

Hallo Corinna,

das geht so nicht. Du kannst in einer Zelle entweder Werte oder Formeln haben, aber nicht beides. Wenn du keine Bedingung formulieren kannst, warum das O dort drin ist, damit man diese Bedingung mit in die Formel aufnehmen kann, musst du VBA nutzen.

Claus

Claus Busch

Hallo,

eine Formel gibt dir einen Wert in der Zelle zurück, in der sie steht. Sie kann dir nicht einen Wert in eine andere Zelle schreiben.

Wenn du also in die zurückgegebene Zelle ein "X" einschreiben möchtest, dann musst du VBA zur Lösung des Problems verwenden.

Mit freundlichen Grüßen

Claus

Claus Busch

Hallo,

in deinen Zellen stehen weder korrekte Formeln noch korrekter VBA-Code. Zudem gehört VBA-Code in ein Modul und nicht in ein Blatt.

Beschreibe mal deine Daten und wie du sie auswerten willst.

Claus

Hi,

willkommen im Windows Forum!

Wie kann ich den Wert aus einer Zelle im VBA Code nutzen? - Similar Threads - Wert Zelle VBA	Forum	Datum
Excel VBA Zahl in Zelle X Hochzählen bis wert in Zelle Y 0 ist Excel VBA Zahl in Zelle X Hochzählen bis wert in Zelle Y 0 ist: Hallo zusammen,ich habe leider wenig VBA Erfahrung und bisherige Funde in anderen Foren konnten mir nicht helfen.Besteht die Möglichkeit, dass in der Zelle A2 der Zahlenwert in 0,01 Schritten...	Microsoft Office	15. September 2021
Excel Eindeutige ID mit mehren werten, wenn Wert aus anderer Zelle mit einer Zelle... Excel Eindeutige ID mit mehren werten, wenn Wert aus anderer Zelle mit einer Zelle...: Hallo Zusammen, folgende Situation: Ich habe im einen Tabellenblatt eine Datenbank mit mehren Rohdaten, wo jeder Datensatz eine eindeutige ID hat ein eindeutiges Jahr in einer Spalte hat einen...	Microsoft Office	8. Januar 2021
Wert in Zellen löschen in Abhängigkeit einer anderen Zelle Wert in Zellen löschen in Abhängigkeit einer anderen Zelle: Hallo zusammen, ich komme hier nicht weiter. Ich möchte für einen Kunden ein kleines Rechentool erstellen. Nun habe ich das Problen, dass in den Zellen C10/C11/C12 kein wert stehen darf, wenn...	Microsoft Office	4. Dezember 2020
VBA Excel Zellen ohne Wert nich auswählen VBA Excel Zellen ohne Wert nich auswählen: Hallo werte Gemeinschaft Mein Problem: Ich habe Tabellen in welcher in einer Spalte Werte in verschiedenen Zeilen stehen können. Zelle mit Inhalt sollen gefunden werden um die benötigten Werte...	Microsoft Office	13. Juli 2019
EXCEL VBA: Formel berechnen und Ergebnis als Wert in Zelle schreiben EXCEL VBA: Formel berechnen und Ergebnis als Wert in Zelle schreiben: hallo, ich muss in einer Excel-Datei sehr viele Berechnungen durchführen, was sehr viel Berechnungszeit braucht. Ich möchte deshalb die Formeln aus der Datei entfernen, in dem ein Makro die...	Microsoft Office	17. Mai 2019
Excel VBA – Werte in Zellen löschen beim Schliessen der Arbeitsmappe Excel VBA – Werte in Zellen löschen beim Schliessen der Arbeitsmappe: Ich habe eine Arbeitsmappe Muster.xlsm. Wie kann ich in der Tabelle 1 die Einträge in den Zellen A2:G2 beim Schliessen der Arbeitsmappe Muster.xlsm löschen	Microsoft Office	20. Februar 2019
Excel VBA – Mit CommandButton1_Click einen Wert in eine Zelle schreiben Excel VBA – Mit CommandButton1_Click einen Wert in eine Zelle schreiben: Ich habe einen Datenbereich von A4:V10550. Wie kann ich in die Zelle A2 einen Wert (z.B 1) schreiben, wenn ich CommandButton1_Click() anklicke und beim Autofilter in der Spalte A4:A10550 Werte...	Microsoft Office	20. Februar 2019

Wie kann ich den Wert aus einer Zelle im VBA Code nutzen?

Wie kann ich den Wert aus einer Zelle im VBA Code nutzen?

Datum per Doppelklick in mehreren Zellen

In mit Hyperlinks verlinkten Tabellen bestimmte Zellen auslesen

Excel Matrix etc..

ADRESSE bringt Bezug in Textform zurück, wie kann man diesen verwenden um die Zelle mit Wert zu füllen?

Zellen Kopieren mit Formelinhalt

User Advert

Wie kann ich den Wert aus einer Zelle im VBA Code nutzen? - Microsoft Office

Wie kann ich den Wert aus einer Zelle im VBA Code nutzen? - Similar Threads - Wert Zelle VBA

Excel VBA Zahl in Zelle X Hochzählen bis wert in Zelle Y 0 ist

Excel Eindeutige ID mit mehren werten, wenn Wert aus anderer Zelle mit einer Zelle...

Wert in Zellen löschen in Abhängigkeit einer anderen Zelle

VBA Excel Zellen ohne Wert nich auswählen

EXCEL VBA: Formel berechnen und Ergebnis als Wert in Zelle schreiben

Excel VBA – Werte in Zellen löschen beim Schliessen der Arbeitsmappe

Excel VBA – Mit CommandButton1_Click einen Wert in eine Zelle schreiben

Wie kann ich den Wert aus einer Zelle im VBA Code nutzen? solved