per button in einem feld automatisch plus 1 - minus 1 rechnen
hallo zusammen
ich habe eine kleine frage und zwar geht es um folgendes:
ich möchtet einen button erstellen der mir automatisch beim anklicken in einem dafür definierten bereich die zahl +1 rechnet, sprich wenn ich auf den button klicke soll er mir automatisch zb. in A1 (vorhanden 10) +1 rechnen (ergebnis 11), bzw das gleiche mit -1
kennt sich jemand damit aus?
schonmal vielen dank.....
ich habe eine kleine frage und zwar geht es um folgendes:
ich möchtet einen button erstellen der mir automatisch beim anklicken in einem dafür definierten bereich die zahl +1 rechnet, sprich wenn ich auf den button klicke soll er mir automatisch zb. in A1 (vorhanden 10) +1 rechnen (ergebnis 11), bzw das gleiche mit -1
kennt sich jemand damit aus?
schonmal vielen dank.....
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 72202
Url: https://administrator.de/contentid/72202
Ausgedruckt am: 26.11.2024 um 05:11 Uhr
10 Kommentare
Neuester Kommentar
Hi,
wenn du mit Button nen Submit-Button meinst, dann könnte ich dir folgendes anbieten:
(Habe Zwecks leichterer Überprüfung jetzt get statt post genommen)
Hilft dir das weiter?
Ansonsten würde es -mir zumindest- weiterhelfen wenn ich wüsste was du gerne machen möchtest...
Gruss
Sess
wenn du mit Button nen Submit-Button meinst, dann könnte ich dir folgendes anbieten:
<?php
//testseite.php
$A1=$_GET['pos1'];
if ($A1=="")$A1=10;
$plus=$A1+1;
$minus=$A1-1;
echo "<html><body><form method=\"get\"><input type=\"hidden\" name=\"pos1\" value=\"$plus\"><input type=\"submit\" value=\"+\"></form>";
echo "<form method=\"get\"><input type=\"hidden\" name=\"pos1\" value=\"$minus\"><input type=\"submit\" value=\"-\"></form></body></html>";
?>
Hilft dir das weiter?
Ansonsten würde es -mir zumindest- weiterhelfen wenn ich wüsste was du gerne machen möchtest...
Gruss
Sess
Moin,
geht inetwa so (schnell und dreckig):
->Visual Basic Symbolleiste einblenden (rechtsklick auf Symbolleiste, Haken neben Visual Basic setzen)
->Die Steuerelemente-Toolbox (Hammer und Schraubendreher) öffnen
->Befehlsschaltfläche (Button-Symbol) anklicken
->Button auf Tabellenblatt platzieren
->rechtsklick auf den neuen Button->Code anzeigen
Und den Code einfügen:
(Das private sub.. und das end sub macht der gute Excel schon für dich).
Für Minus identisch mit zweitem Button, nur statt + -
Ich hoffe, die Antwort paßt zur Frage ;)
Gruß,
Henrik
geht inetwa so (schnell und dreckig):
->Visual Basic Symbolleiste einblenden (rechtsklick auf Symbolleiste, Haken neben Visual Basic setzen)
->Die Steuerelemente-Toolbox (Hammer und Schraubendreher) öffnen
->Befehlsschaltfläche (Button-Symbol) anklicken
->Button auf Tabellenblatt platzieren
->rechtsklick auf den neuen Button->Code anzeigen
Und den Code einfügen:
Private Sub CommandButton1_Click()
ActiveCell.Value = ActiveCell.Value + 1
End Sub
(Das private sub.. und das end sub macht der gute Excel schon für dich).
Für Minus identisch mit zweitem Button, nur statt + -
Ich hoffe, die Antwort paßt zur Frage ;)
Gruß,
Henrik
Hallo DJ-toaD!
Dazu musst Du eigentlich nur
sowie in der Tabelle noch
Die Änderungen im Code für andere Zellen / für -1 schaffst Du sicher alleine ...
Grüße
bastla
[Edit] Immerhin Platz 3 (von 3) ... [/Edit]
Dazu musst Du eigentlich nur
- die Symbolleiste "Formular" anzeigen ("Anzeige / Symbolleisten"), dort
- das Symbol "Schaltfläche" anklicken und
- einen Button in der Tabelle aufziehen; danach
- im Popup "Makro zuweisen" die Schaltfläche "Neu" verwenden, um ein neues Makro zu erstellen und
- zwischen "Sub Schaltfläche1_BeiKlick()" und "End Sub" folgenden Code eintragen:
Range("A1").Value = Range("A1").Value + 1
- Größe / Position / Beschriftung des Buttons ändern und dann auf irgend eine Zelle klicken, um die Markierung vom Button weg zu nehmen (wieder markieren kannst Du ihn übrigens per Strg+Klick).
Die Änderungen im Code für andere Zellen / für -1 schaffst Du sicher alleine ...
Grüße
bastla
[Edit] Immerhin Platz 3 (von 3) ... [/Edit]
Hallo DJ-toaD!
Etwa so:
bzw analog für die "ActiveCell"-Variante.
Falls auch noch eine Information des Benutzers gewünscht wäre:
Grüße
bastla
Etwa so:
If Range("A1").Value >= 1 Then Range("A1").Value = Range("A1").Value - 1
Falls auch noch eine Information des Benutzers gewünscht wäre:
If Range("A1").Value >= 1 Then
Range("A1").Value = Range("A1").Value - 1
Else
MsgBox "Das würde einen negativen Wert ergeben!"
End If
Grüße
bastla