Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Formelergebnis als Zahl in anderer Zelle speichern

Formelergebnis als Zahl in anderer Zelle speichern
12.03.2015 12:00:25
Jan
Hallo, ich benötige Hilfe für folgenden Sachverhalt:
Ich habe ein Tabellenblatt erstellt, in dem mir in Zelle D24 ein Formelergebnis angezeigt wird. Dieses Ergebnis kann durch die Veränderung verschiedener Parameter unterschiedliche Werte annehmen.
Besteht die Möglichkeit mit einem entsprechenden VBA-Code die berechneten Ergebnisse aus Zelle D24 fortlaufend als Zahlenwert z.B. in Spalte I zu speichern, damit ich diese für die Erstellung einer Grafik nutzen kann?

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formelergebnis als Zahl in anderer Zelle speichern
12.03.2015 12:13:57
EtoPHG
Hallo Jan,
Kopiere diesen Code in die Tabellenklasse:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$D$24" Then
Application.EnableEvents = False
Cells(Rows.Count, 9).End(xlUp).Offset(1) = Target
Cancel = True
Application.EnableEvents = True
End If
End Sub
Jedesmal, wenn du jetzt auf D24 doppelklickst, wird der gegenwärtige Wert ans Ende der Spalte I angefügt.
Gruess Hansueli

Anzeige
AW: Formelergebnis als Zahl in anderer Zelle speichern
12.03.2015 12:19:09
Jan
Genau so sollte es sein!
Vielen Dank Hansueli

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Formelergebnis als Zahl in anderer Zelle speichern


Schritt-für-Schritt-Anleitung

  1. Öffne Dein Excel-Dokument und gehe zu dem Arbeitsblatt, in dem sich die Zelle D24 befindet.

  2. Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  3. Finde Deine Tabelle: Im Projekt-Explorer auf der linken Seite, suche das Arbeitsblatt, in dem Du den Code einfügen möchtest.

  4. Füge den Code ein: Doppelklicke auf das gewünschte Arbeitsblatt und füge den folgenden Code in das Codefenster ein:

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        If Target.Address = "$D$24" Then
            Application.EnableEvents = False
            Cells(Rows.Count, 9).End(xlUp).Offset(1) = Target
            Cancel = True
            Application.EnableEvents = True
        End If
    End Sub
  5. Schließe den VBA-Editor: Speichere Deine Änderungen und schließe den Editor.

  6. Teste die Funktion: Gehe zurück zu Deinem Arbeitsblatt und doppelklicke auf die Zelle D24. Der aktuelle Wert sollte automatisch in die nächste freie Zelle der Spalte I eingefügt werden.


Häufige Fehler und Lösungen

  • Fehler: Der Wert wird nicht gespeichert
    Lösung: Stelle sicher, dass der Code korrekt in die Tabellenklasse eingefügt wurde und dass Du auf die richtige Zelle doppelklickst.

  • Fehler: Excel stürzt ab oder reagiert nicht
    Lösung: Überprüfe, ob die Zeile Application.EnableEvents = True korrekt platziert ist, um sicherzustellen, dass Ereignisse wieder aktiviert werden.


Alternative Methoden

Wenn Du keine VBA-Lösungen verwenden möchtest, kannst Du auch die Funktion WENN in Kombination mit KOPIEREN und EINFÜGEN WERTE nutzen, um Werte manuell zu speichern. Diese Methode ist jedoch weniger automatisiert und erfordert mehr manuelle Eingriffe.


Praktische Beispiele

Angenommen, Du hast in D24 den Wert 100. Wenn Du nun auf D24 doppelklickst, wird dieser Wert in die Spalte I eingefügt. Wenn Du dann den Wert in D24 auf 150 änderst und erneut doppelklickst, wird 150 in die nächste Zelle in Spalte I eingefügt. So kannst Du eine Historie der Werte führen, die Du für die Erstellung von Grafiken nutzen kannst.


Tipps für Profis

  • Datenanalyse: Nutze die gespeicherten Werte in Spalte I, um Diagramme zu erstellen und Trends zu analysieren.
  • Automatisierung: Erweitere den VBA-Code, um zusätzliche Bedingungen oder Zeitstempel hinzuzufügen, die Dir helfen, die Daten noch besser zu organisieren.
  • Sicherung: Vergiss nicht, regelmäßig Sicherungskopien Deiner Excel-Datei zu erstellen, insbesondere wenn Du mit VBA arbeitest.

FAQ: Häufige Fragen

1. Frage
Kann ich den Code so anpassen, dass die Werte in einer anderen Spalte gespeichert werden?
Antwort
Ja, ändere einfach die Zahl 9 in Cells(Rows.Count, 9) auf die entsprechende Spaltennummer.

2. Frage
Wie kann ich den VBA-Code deaktivieren?
Antwort
Um den VBA-Code zu deaktivieren, kannst Du ihn einfach aus dem Codefenster löschen oder kommentieren, indem Du ein ' vor die Codezeilen setzt.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige