Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1220to1224
1220to1224
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Durch Tastenkombination in Zelle (+1) addieren

Forumthread: Durch Tastenkombination in Zelle (+1) addieren

Durch Tastenkombination in Zelle (+1) addieren
Korbi
Hallo,
ich bin nicht sonderlich erfahren im umgang mit excel. Hab zwar mal nen Starterkurs gemacht, bin aber nicht im täglichen umgang damit. Sowas vergisst man schnell wieder.
Ich muss für die Schule einen Fragebogen auswerten. Dieser hat 18 Fragen, und zu jeder Frage hat man von *Stimme voll und ganz zu* bis zu *Weiß nicht* 5 Antwort Möglichkeiten. Anstatt dass ich jetzt bei jedm Bogen die bereits vorhandene Zahl durch eine um 1 größere ersetze, würd ich gern auf die entsprechende Zelle in meiner Excel Datei gehen, und durch eine Tastenkombination automatisch (+1) zu dem bereits vorhandenen Wert hinzuzählen.
Ich hoffe, dass ich euch mein Problem einigermaßen schildern konnte und ihr mir weiterhelfen könnt!
Schonmal vielen Dank, ihr erspart mir viel Arbeit ;)
LG
Korbi
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Durch Tastenkombination in Zelle (+1) addieren
11.07.2011 21:41:44
Josef

Hallo Korbi,
das geht z. B. mit folgendem Code (achte darauf, was wohin gehört!).
Mit [Alt]+[Pfeil nach oben] bzw. [Alt]+[Pfeil nach unten] wird der Zellwert erhöht/vermindert.
' **********************************************************************
' Modul: DieseArbeitsmappe  Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.OnKey "%{UP}"
  Application.OnKey "%{DOWN}"
End Sub


Private Sub Workbook_Open()
  Application.OnKey "%{UP}", "'addOne 1'"
  Application.OnKey "%{DOWN}", "'addOne -1'"
End Sub


' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub addOne(ByVal Value As Long)
  On Error Resume Next
  If TypeName(Selection) = "Range" Then
    Selection(1, 1) = Selection(1, 1) + Value
  End If
End Sub



« Gruß Sepp »

Anzeige
Eigenschaft als Variable? owT
12.07.2011 09:03:37
Rudi
AW: Eigenschaft als Variable? owT
12.07.2011 21:07:50
Josef

Hallo Rudi,
sehe darin kein Problem Value ist ja kein Schlüsselwort und .Value ist eine Eigenschaft eines Objektes, wüsste also nicht, was dabei Schwierigkeiten machen sollte!

« Gruß Sepp »

Anzeige
;

Forumthreads zu verwandten Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Wert nach Änderung einer Zelle schreiben
Markus

Hallo Leute,
ich werde Excel nie wirklich verstehen. Habe wieder eine Frage: Bei Veränderung des Wertes einer Zelle möchte ich einen Wert in eine andere Zelle schreiben (klingt einfach - gelingt mir nicht!):
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrorHandle...
01.10.2008 18:26:00
Thread-ID: 1013729
31 Beiträge
in Zellen Schreiben wenn Kriterium erfüllt
Nikolay

Guten Tag verehrte Damen und Herren,
lieber Namensvetter,
ich habe derweilen ein kleines Problem. Ich gestalte schon seit einigen Jahren meine persönliche Buchführung mit Excel.
Von Jahr zu Jahr wird das ganze komplizierter. Nun stehe ich vor einem Problem, welches ich selbst nicht...
05.10.2008 14:57:00
Thread-ID: 1014252
4 Beiträge
In Zelle mit Namen schreiben
fga

Hallo
Ich habe ein Tabellenblatt. In dem Blatt habe ich für die Spalten einen Namen definiert. Ebenso für die Zeilen. (links oben im Namensfeld)
Z.B.:
..... Sh1 Sh2 Sh3
Rh1
Rh2
Rh3
Nun möchte ich über den Namen der Zeile und Spalte die betreffende Zelle lesen,...
08.10.2008 15:27:04
Thread-ID: 1015078
12 Beiträge
Textbox Werte in Zellen schreiben
pritt

Hallo zusammen, ich komme nicht so richtig klar: Ich habe eine Userform mit 4 Textboxen, die zu Laufzeit vom User mit Werten gefüllt werden. Wenn alle 4 Textboxen gefüllt sind, sollen diese Werte in 4 verschiedene Zellen eines Tabellenblatts geschrieben werden. Folgenden Code habe ich bisher er...
13.11.2008 12:59:19
Thread-ID: 1024171
7 Beiträge
Anzeige
Daten aus Sheet suchen und in Zelle schreiben
Robert

Hallo Excel Profis!
Ich stehe mal wieder als VBA Laie vor einem riesen Berg.
Ich habe auf "Sheet 2" eine Liste mit Quartalsdaten.
Ich suche eine Möglichkeit, wie Excel nun in diesem Sheet nach den jeweils passenden Daten eines
Quartals sucht und diese dann auf "Sheet 1" überträg...
20.11.2008 12:36:00
Thread-ID: 1026379
9 Beiträge
Checkbox in Zelle schreiben
Markus

Hallo
Wie kann ich erreichen, daß zwei Checkboxen in einer Userform in die Zellen ein (G) schreiben und wenn ich die Checkboxen das Häcken entferne auch das (G) nicht mehr drin ist.
Wäre es auch möglich, daß wenn Checkbox1 ein Häcken hat Checkbox2 keines mehr hat.
Checkbox1 in Zelle...
30.01.2009 22:42:52
Thread-ID: 1045549
4 Beiträge
Anzeige
Schleife nächste Zelle +1
Michael

Hallo!
Wie schaff ich es in die letzte zelle zu gehen und den wert + 1 in die nächste zelle zu schreiben,
Muss ich dann mit offset arbeiten?
Mein Code!
Gruß Michael
Sub zeileLetztePlusEins() Dim zeile As Integer Dim zeileMax As Integer Dim WertZeile As Long With Sheets("...
02.02.2009 09:39:26
Thread-ID: 1046079
7 Beiträge
Anzeige
Text aus mehreren Zellen in eine Zelle schreiben.
Wolle

Hallo Forum,
möchte Texte aus mehreren Zellen in eine Zelle schreiben. Diese "Gesamtzelle" muss ich mit Strg+V nach Word kopieren können.
Ich denke mit Formeln ist da nichts zu machen, sondern mit VBA?
Könnt Ihr helfen.
Danke und Gruß
Wolle
https://www.herber.de/bbs/user...
31.03.2009 08:34:39
Thread-ID: 1065488
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Durch Tastenkombination in Excel Zelle (+1) addieren

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke im Menü auf „Einfügen“ und wähle „Modul“.

  3. Kopiere den folgenden VBA-Code in das Modul:

    Option Explicit

Private Sub Workbook_Open()
   Application.OnKey "%{UP}", "'addOne 1'"
   Application.OnKey "%{DOWN}", "'addOne -1'"
End Sub

Sub addOne(ByVal Value As Long)
   On Error Resume Next
   If TypeName(Selection) = "Range" Then
       Selection(1, 1) = Selection(1, 1) + Value
   End If
End Sub

  4. Schließe den VBA-Editor und speichere die Datei als Makro-aktivierte Arbeitsmappe (*.xlsm).

  5. Teste die Tastenkombination:

    • Wähle eine Zelle aus und drücke ALT + Pfeil nach oben, um den Wert um 1 zu erhöhen.
    • Drücke ALT + Pfeil nach unten, um den Wert um 1 zu verringern.

Häufige Fehler und Lösungen

  • Fehler: Die Tastenkombination funktioniert nicht.

    • Lösung: Stelle sicher, dass die Datei als Makro-aktivierte Arbeitsmappe (*.xlsm) gespeichert ist.

  • Fehler: Der Wert wird nicht aktualisiert.

    • Lösung: Überprüfe, ob die Zelle tatsächlich einen numerischen Wert enthält.

Alternative Methoden

Eine weitere Möglichkeit, Werte in Excel zu addieren, ist die Verwendung der Funktion „=WERT+1“ in einer anderen Zelle. Du kannst auch die Autoausfüll-Funktion verwenden, um eine Zahlenreihe zu erstellen. Markiere eine Zelle mit einer Zahl und ziehe den Ausfüllpunkt nach unten oder zur Seite.

Praktische Beispiele

  • Wenn du eine Liste mit Antworten hast, kannst du in der Zelle unter der ersten Antwort =A1 + 1 eingeben, um den Wert um 1 zu erhöhen.
  • Du kannst auch die Tastenkombination „Strg + C“ und „Strg + V“ verwenden, um Werte schnell zu kopieren und dann manuell zu erhöhen.

Tipps für Profis

  • Nutze Tastaturkürzel wie STRG + Z, um Änderungen rückgängig zu machen, falls du einen Fehler gemacht hast.
  • Du kannst mehrere Zellen auswählen und die Tastenkombination „ALT + Pfeil nach oben“ oder „ALT + Pfeil nach unten“ verwenden, um die Werte in allen ausgewählten Zellen gleichzeitig zu erhöhen oder zu verringern.

FAQ: Häufige Fragen

1. Wie kann ich die Tastenkombination anpassen? Du kannst die Tastenkombinationen im VBA-Code ändern, indem du die %{UP} und %{DOWN}-Teile anpasst.

2. Funktioniert das in jeder Excel-Version? Ja, diese Methode sollte in den meisten modernen Excel-Versionen funktionieren, solange du VBA verwenden kannst.

3. Kann ich die Zelle automatisch färben, wenn ich den Wert ändere? Ja, du kannst zusätzlich einen weiteren VBA-Code hinzufügen, um die Füllfarbe der Zelle zu ändern, wenn der Wert erhöht oder verringert wird.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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