Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Mehrere Zellen durch Wert dividieren

Mehrere Zellen durch Wert dividieren
Tessmann
Hallo!
Wie kann ich eine Fläche von Zellen so formatieren, dass alle Werte die ich eingebe sofort durch 1,16 geteilt werden!!
Gebe ich also 116 ein, gibt excel 100 aus!
Vielen Dank!
Anzeige
AW: Mehrere Zellen durch Wert dividieren
Christoph
Hi Tessmann,
das ist eine Aufgabe für Worksheet_Change.
beschränke den Target-Bereich auf deinen relevanten Bereich und lass die Eingaben durch 1,16 teilen.
Gruß
Christoph
Auch für Hajo, ich kriegs nicht hin
Jörg
Hallo Christoph, hallo Hajo
ich VBA Anfänger habe mich mal versucht.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a1:a3]) Is Nothing Then
'Target = Target.Value / 1.16
[B1]= Target.Value / 1.16
End If
End Sub

so funktioniert es, aber wenn ich stattdessen die Kommentarzeile einbaue, schaut selbst.
Wie also kann Target nach der Eingabe ein neuer Wert zugewiesen werden?
Löst etwa die Division erneut das Worksheet_Change Ereignis aus, so dass immer weiter dividiert wird?
Die Zahl läuft sichtlich nach unten, was aber führt zum Abbruch der Berechnung und letztendlich zur Anzeige eines Ergebnisses und keinem Fehlerwert?
Gruss Jörg
Anzeige
AW: Auch für Hajo, ich kriegs nicht hin
Hajo_Zi
Hallo Jörg
ja
Application.EnableEvents = False
' dein code
Application.EnableEvents = True
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro SP 3


Anzeige
Danke Hajo, habs begriffen ,Gruss Jörg oT
Jörg
AW: Mehrere Zellen durch Wert dividieren
08.04.2004 18:31:04
Hajo_Zi
Hallo Tessmann
siehe auch mal in Forums FAQ.
Das Forum lebt auch von den Rückmeldungen.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro SP 3


Anzeige
AW: Mehrere Zellen durch Wert dividieren
th.heinrich
hallo Tessmann,
vorname ist erwuenscht.
in C1 steht 1,16
in B1 A1/$C$1 und formel runterkopieren. spalte C kannst Du ausblenden.
gruss thomas
AW: warum neuer thraed ? mt.
Hajo_Zi
Hallo Thomas
da bin ich wohl nicht unschuldig. Ich hatte ja drauf hingewiesen das zwei so unterschiedliche Problem nicht in einem Beitrag angesprochen werden sollten.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro SP 3


Anzeige
sorry, soweit hatte ich nicht durchgezappt....
th.heinrich
hallo Hajo,
es ehrt Dich diese buerde zu tragen ;-))
zumal sich Tesse noch nicht gemeldet hat.
frohe ostern von thomas
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Werte in Excel durch einen bestimmten Wert dividieren


Schritt-für-Schritt-Anleitung

Um mehrere Zellen in Excel durch einen bestimmten Wert zu dividieren, kannst Du entweder eine Formel verwenden oder VBA (Visual Basic for Applications) nutzen. Hier sind die Schritte für beide Methoden:

1. Mit einer Formel:

  • Gebe in die Zelle ein, in der das Ergebnis erscheinen soll, die folgende Formel ein:
    =A1/1.16
  • Ziehe die rechte untere Ecke der Zelle nach unten, um die Formel auf weitere Zellen anzuwenden.
  • Wenn Du eine gesamte Spalte dividieren möchtest, kannst Du die Formel in die erste Zelle der Spalte eingeben und sie dann nach unten kopieren.

2. Mit VBA:

  • Öffne den VBA-Editor mit ALT + F11.
  • Füge das folgende Skript in das entsprechende Arbeitsblatt ein:
    Private Sub Worksheet_Change(ByVal Target As Range)
       If Not Intersect(Target, Range("A1:A3")) Is Nothing Then
           Application.EnableEvents = False
           Target.Value = Target.Value / 1.16
           Application.EnableEvents = True
       End If
    End Sub
  • Dieses Skript teilt jede Eingabe in den Zellen A1 bis A3 automatisch durch 1,16.

Häufige Fehler und Lösungen

  • Problem: Die Division führt zu einer unendlichen Schleife.

    • Lösung: Stelle sicher, dass Application.EnableEvents = False vor der Zuweisung und Application.EnableEvents = True danach gesetzt ist, um zu verhindern, dass das Worksheet_Change-Ereignis erneut ausgelöst wird.
  • Problem: Die Formel zeigt Fehlerwerte an.

    • Lösung: Überprüfe, ob die Zellen, die Du dividieren möchtest, tatsächlich Zahlen enthalten. Stelle sicher, dass die Zellen formatiert sind und keine leeren Werte oder Text enthalten.

Alternative Methoden

Es gibt verschiedene alternative Methoden, um in Excel zu dividieren:

  • Excel-Funktion: Verwende die SUMME-Funktion, um eine Summe von Werten zu berechnen und diese dann durch die Anzahl der Zellen zu dividieren:

    =SUMME(A1:A10)/ANZAHL(A1:A10)
  • Array-Formeln: Du kannst auch Array-Formeln verwenden, um mehrere Zellen gleichzeitig zu dividieren, indem Du die Eingabe mit CTRL + SHIFT + ENTER bestätigst.


Praktische Beispiele

  1. Alle Werte in einer Spalte durch 1000 teilen:

    • Wenn Du eine gesamte Spalte, z.B. B, durch 1000 teilen möchtest, kannst Du die Formel in C1 eingeben:
      =B1/1000
    • Ziehe die Formel nach unten, um sie auf die gesamte Spalte anzuwenden.
  2. Summe und Durchschnitt in einer Formel:

    • Um die Summe der Werte in A1 bis A10 durch die Anzahl der Zellen zu teilen, kannst Du folgende Formel verwenden:
      =SUMME(A1:A10)/ANZAHL(A1:A10)

Tipps für Profis

  • Verwende benannte Bereiche: Wenn Du oft mit den gleichen Zellbereichen arbeitest, benenne sie, um die Formeln klarer zu gestalten.
  • Fehlerüberprüfung: Nutze die Funktion WENNFEHLER, um Fehlerwerte in Deinen Formeln zu vermeiden:
    =WENNFEHLER(A1/1.16, "Fehler")
  • VBA optimieren: Halte Deinen VBA-Code sauber und kommentiere, um die Lesbarkeit zu verbessern.

FAQ: Häufige Fragen

1. Wie kann ich alle Zellen in einer Spalte durch eine Zahl teilen? Du kannst einfach die Formel in die erste Zelle der Spalte eingeben und nach unten ziehen, um sie auf alle Zellen anzuwenden.

2. Was passiert, wenn ich eine nicht-numerische Eingabe mache? Wenn Du eine nicht-numerische Eingabe machst, wird Excel einen Fehler anzeigen. Stelle sicher, dass alle Zellen, die Du dividieren möchtest, Zahlen enthalten.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige