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

Forumthread: in der Zelle rechts daneben per VBA eine Formel ..

in der Zelle rechts daneben per VBA eine Formel ..
Tina
Hallo,
wie muss der Code lauten, wenn ich in der Spalte E einen Eintrag mache (egal in welcher Reihe), dass dann in der Spalte F direkt daneben eine Formel geschrieben wird? Z.B. E1+D1
Lieben Dank für eure Hilfe
Gruß Tina
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: in der Zelle rechts daneben per VBA eine Formel ..
15.07.2010 13:47:31
Beverly
Hi Tina,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
If Target.Count = 1 Then _
Cells(Target.Row, 6).Formula = "=E" & Target.Row & "+D" & Target.Row
End If
End Sub



Anzeige
Danke Beverly. Hat geholfen :-) o.w.t.
15.07.2010 14:06:24
Tina
.
AW: in der Zelle rechts daneben per VBA eine Formel ..
15.07.2010 13:57:21
Rudi
Hallo,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 And Target.Count = 1 Then
Application.EnableEvents = False
Target.Offset(, 1).FormulaR1C1 = "=rc[-2]+rc[-1]"
Application.EnableEvents = True
End If
End Sub

Gruß
Rudi
Anzeige
Dir auch danke Rudi. :-) o.w.t.
15.07.2010 14:07:10
Tina
.
;
Anzeige
Anzeige

Infobox / Tutorial

Automatisierung von Excel-Formeln mit VBA


Schritt-für-Schritt-Anleitung

Um in Excel eine Formel automatisch in der Zelle rechts neben einem Eintrag in Spalte E zu platzieren, kannst Du VBA (Visual Basic for Applications) verwenden. Folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu starten.

  2. Wähle im Projekt-Explorer das Arbeitsblatt aus, auf dem Du die Automatisierung einrichten möchtest.

  3. Füge den folgenden Code in das Codefenster ein:

    Private Sub Worksheet_Change(ByVal Target As Range)
       If Target.Column = 5 Then
           If Target.Count = 1 Then _
           Cells(Target.Row, 6).Formula = "=E" & Target.Row & "+D" & Target.Row
       End If
    End Sub
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Jetzt wird jedes Mal, wenn Du einen Eintrag in Spalte E machst, automatisch die Formel =E1+D1 in Spalte F eingefügt.


Häufige Fehler und Lösungen

  • Fehler: Die Formel wird nicht eingetragen.
    Lösung: Stelle sicher, dass Du den Code im richtigen Arbeitsblatt-Modul eingegeben hast. Der Code muss im Modul des spezifischen Arbeitsblatts stehen, nicht im allgemeinen Modul.

  • Fehler: Die Berechnung funktioniert nicht.
    Lösung: Überprüfe, ob die Berechnung in Excel auf "Automatisch" eingestellt ist. Gehe zu Formeln > Berechnungsoptionen und stelle sicher, dass "Automatisch" ausgewählt ist.


Alternative Methoden

Wenn Du keine VBA-Lösung verwenden möchtest, kannst Du auch eine Formel manuell in Spalte F einfügen, die auf die Werte in Spalte E und D verweist. Zum Beispiel:

  1. In Zelle F1 kannst Du die Formel =E1+D1 eingeben.
  2. Ziehe das Ausfüllkästchen in der unteren rechten Ecke der Zelle nach unten, um die Formel für die gesamte Spalte anzuwenden.

Diese Methode ist jedoch nicht so dynamisch wie die VBA-Lösung.


Praktische Beispiele

Hier sind einige praktische Beispiele für den Einsatz der VBA-Lösung:

  • Beispiel 1: Wenn Du in Zelle E2 den Wert 5 eingibst und in D2 den Wert 10, wird in F2 automatisch die Formel =E2+D2 eingetragen, was das Ergebnis 15 ergibt.
  • Beispiel 2: Wenn Du mehrere Werte in Spalte E eingibst, wird die Formel für jede Zeile in Spalte F entsprechend angepasst.

Tipps für Profis

  • Code anpassen: Du kannst den VBA-Code anpassen, um andere Berechnungen oder Formeln zu verwenden. Ändere einfach den Teil Cells(Target.Row, 6).Formula.
  • Fehlerbehandlung: Füge eine Fehlerbehandlung in Deinen VBA-Code ein, um unerwartete Eingaben zu vermeiden.
  • Event-Handling: Verwende Application.EnableEvents = False, um zu verhindern, dass das Worksheet_Change-Ereignis rekursiv ausgelöst wird, während Du die Formel setzt.

FAQ: Häufige Fragen

1. Was ist VBA?
VBA steht für Visual Basic for Applications und ist die Programmiersprache, die in Microsoft Office-Anwendungen verwendet wird, um automatisierte Aufgaben durchzuführen.

2. Ist VBA in allen Excel-Versionen verfügbar?
Ja, VBA ist in allen gängigen Excel-Versionen verfügbar, einschließlich Excel 2010, 2013, 2016, 2019 und Microsoft 365.

3. Kann ich die automatisierte Formel auch für andere Spalten verwenden?
Ja, Du kannst den VBA-Code anpassen, um Formeln für andere Spalten zu erstellen, indem Du die Target.Column-Bedingung änderst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige