Zellenwert um 1 erhöhen

Forumthread: Zellenwert um 1 erhöhen

17.06.2002 10:58:41

Anton Gast

Hi,

ich möchte folgendes erreichen: Um eine einfache Anrufstatistik zu realisieren, habe ich in meiner Telefonnummernliste eine Spalte für die getätigten Anrufe. Bei jedem Anruf soll der entsprechende Wert um 1 erhöht werden. Das sollte sich mit einem winzigen Programm evt. auch mit Bordmitteln erreichen lassen. Kann mir jemand einen Tipp geben?

mfg Anton Gast

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Zellenwert um 1 erhöhen

17.06.2002 11:26:06

Kl@us-M.
zelle klicken ändert andere zelle

17.06.2002 11:29:43

axel.meyer

Re: Zellenwert um 1 erhöhen

17.06.2002 11:26:06

Kl@us-M.

So ganz verstehe ich die Aufgabenstellung nicht: Wählst Du aus Excel heraus eine Tel.-Nr. bzw. bei oder nach welchem Ereignis soll der Wert erhöht werden ???
Als Lösungsansatz: Range("A1").Value = Range("A1").Value + 1
Vielleicht solltest Du das Prob nochmal etwas genauer beschreiben.

Gruss
Klaus-Martin

zelle klicken ändert andere zelle

17.06.2002 11:29:43

axel.meyer

hi anton,

dieses programm kannst du dir hier herauskopieren und für deine mappe anpassen. das geht wie folgt: code mit maus markieren, kopieren über "Strg + c", deine excelmappe öffnen, "Alt + F11" drücken (damit kommst du in die entwicklungsumgebung), jetzt sollte links oben ein fenster "Projekt - VBAProjekt" sein (sonst "Strg + r" drücken), in diesem fenster doppelklick auf diejenige tabelle, in der du dieses wert-erhöhen erreichen willst, es erscheint im großen fenster ein weißes blatt, hier den cursor drauf und "Strg + v".

anpassen des codes:
dieser code erhöht den wert einer zelle deren adresse du noch anpassen mußt. gedacht ist das makro so: du klickst auf eine zelle vor/nach der telephonnummer, hierfür vielleicht eine extra spalte einrichten, die nur zum anklicken ist, da das ändern der "klickzellen" immer ein inaktivieren des makros voraussetzt (auch die adresse dieser zelle mußt du noch im code ändern) und schon erhöht sich der wert in der zelle.

die anzuklickende zelle:
If Target.Column = 3 And Target.Row >= 5 Then

hier ist bisher eine 3 eingetragen für die spalte, es bezieht sich also auf spalte c, und zwar ab der 5. reihe, also C5 bis C...
in deinem code mußt du also sowohl die 3 als auch die 5 für deine zwecke anpassen.

Range("F" & Target.Row).Value = Range("F" & Target.Row).Value + 1

in dieser spalte (zeile hat er sich gemerkt) wird der wert erhöht, also F. auch hier mußt du F für deine zwecke anpassen.

viel spaß,
gruß, axel

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um den Zellenwert in Excel um 1 zu erhöhen, kannst du entweder eine einfache Formel oder ein VBA-Makro verwenden. Hier sind die Schritte für beide Methoden:

Methode 1: Mit einer Formel

Gehe zu der Zelle, die du erhöhen möchtest.
Gib folgende Formel ein:
```
=A1 + 1
```
Dabei ersetzt du A1 durch die Adresse der Zelle, die du erhöhen möchtest.

Methode 2: Mit VBA

Öffne deine Excel-Datei und drücke Alt + F11, um die VBA-Entwicklungsumgebung zu öffnen.
Doppelklicke auf die Tabelle, in der du den Zellenwert um 1 erhöhen möchtest.

Füge den folgenden Code ein:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 3 And Target.Row >= 5 Then
       Range("F" & Target.Row).Value = Range("F" & Target.Row).Value + 1
   End If
End Sub

Hierbei musst du den Spalten- und Zeilenbezug anpassen, je nach deinen Bedürfnissen.

Häufige Fehler und Lösungen

Fehler: Der Zellenwert wird nicht erhöht.
- Lösung: Stelle sicher, dass der VBA-Code im richtigen Arbeitsblatt eingefügt wurde und dass die Bedingungen im If-Statement korrekt sind (z.B. die richtige Spalte und Zeile).
Fehler: Die Formel funktioniert nicht.
- Lösung: Überprüfe, ob du die Formel korrekt eingegeben hast und dass die Zelle, auf die du verweist, tatsächlich einen numerischen Wert enthält.

Alternative Methoden

Wenn du den Zellenwert um einen bestimmten Prozentsatz erhöhen möchtest, kannst du folgende Formel verwenden:

=A1 * (1 + Prozentsatz)

Dabei ersetzt du Prozentsatz durch den gewünschten Wert (z.B. 0,1 für 10%).

Für das Erhöhen von Werten in einer gesamten Spalte kannst du die Formel einfach nach unten ziehen.

Praktische Beispiele

Zellenwert um 1 erhöhen:
- Wenn in Zelle A1 der Wert 5 steht und du die Formel =A1 + 1 in Zelle B1 eingibst, wird in B1 der Wert 6 angezeigt.
Zellenwert um einen Prozentsatz erhöhen:
- Wenn in Zelle A2 der Wert 100 steht und du die Formel =A2 * 1.1 in Zelle B2 eingibst, wird in B2 der Wert 110 angezeigt (10% Erhöhung).

Tipps für Profis

Nutze die Funktion =SUMME() in Kombination mit der Erhöhung, um Werte in einer gesamten Spalte um 1 zu erhöhen.
Experimentiere mit benutzerdefinierten VBA-Funktionen, um komplexere Berechnungen durchzuführen.
Halte deine Arbeitsblätter organisiert, indem du Makros in separaten Modulen speicherst.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Zellen gleichzeitig um 1 erhöhen?
Du kannst eine Formel in eine ganze Spalte eingeben und dann die Formeln nach unten ziehen. Alternativ kannst du ein VBA-Makro anpassen, um mehrere Zellen auf einmal zu bearbeiten.

2. Funktioniert das auch in älteren Excel-Versionen?
Ja, die oben beschriebenen Methoden funktionieren in den meisten Excel-Versionen, einschließlich Excel 2010 und neuer. Achte darauf, dass VBA in deiner Excel-Version unterstützt wird.

Beliebteste Forumthreads (12 Monate)