Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schieberegister auf z.B. Knopfdruck

Schieberegister auf z.B. Knopfdruck
18.02.2004 10:07:14
Thomas Maier
Ich habe einen Eingang der auf 1 oder 0 gesetzt wird.
Immer wenn er auf 1 gesetzt wird soll mein Ausgabewert um +1 erhöht werden.
Bei Wert 0 soll er gleich bleiben.

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

Betreff
Datum
Anwender
Anzeige
AW: Schieberegister auf z.B. Knopfdruck
18.02.2004 10:15:57
Harry
Hallo Thomas,
versuchs mal damit
Drück Alt+F11, für ein neues Modul ein und gib dort folgenden Code ein:

Sub test()
Dim wert_alt As Integer
Dim wert_neu As Integer
wert_alt = Range("a1").Value
wert_neu = wert_alt + 1
Range("a1").Value = wert_neu
End Sub

Danach ordnest Du einer Schaltfläche den Makro "test" zu
danach erhöht sich der Wert in Zelle A1 bei jedem Drücken um 1

Gruss
Harry
Einfacher?
18.02.2004 10:41:19
Jörg Gradert
Hallo Harry,
ich bin relativ neu in VBA, aber was spricht denn gegen

Sub test2()
Range("A1") = Range("A1") + 1
End Sub

?
Gruss Jörg
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige