Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
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
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vba Hilfe

Forumthread: Vba Hilfe

Vba Hilfe
06.11.2005 09:04:23
Lucien
Hallo
Ich habe mir folgendes Makro zusammen gebastelt:
Dim ajoute As String
Dim i As Integer, Ligne As Long
ajoute = InputBox(("Combien voulez vous rajouter au stock ?"), " (AJOUTE AU STOCK) ", 0, 5000, 5000)
For i = 1 To 2
i = ajoute
Ligne = Range("H72").End(xlUp).Row + i
Range("H" & i).Value = "x"
Next
Excel macht aber nicht das was ich möchte.
Ich möchte dass wenn in die Inputbox 10 geschrieben wird,dass Excel dann ab der zelle "H72" 10 Zellen nach oben geht und in diese ein x schreibt, also "H72:H62" soll ein x stehen.
Wenn in die Inputbox 4 steht dann soll er ab Zelle "H72" 4 Zellen nach oben gehen und in diese ein x schreiben.
Was muss ich am Makro verändern?
Danke und gruss Lucien
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Vba Hilfe
06.11.2005 09:30:19
Erich
Hallo Lucien,
das ginge so:

Sub tst()
Dim ajoute As String
ajoute = InputBox(("Combien voulez vous rajouter au stock ?"), " (AJOUTE AU STOCK) ", 0, 5000, 5000)
Range("H72").Offset(-ajoute, 0) = "x"
' oder so:
Range("H" & 72 - ajoute).Value = "x"
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Vba Hilfe
06.11.2005 09:47:58
Lucien
Hallo Erich
Danke für deine Hilfe.Das klappt.
Wie kann ich folgendes noch verändern?
Wenn ich mit diesem makro nun 5 eintippe in die Inpubox zählt Excel die Zehl nach oben wie gesagt, ich möcht noch hinzu dass er ab Zeile(H72)ein X schreibt d.h wenn ich 5 in die Inputbox eingebe soll er von H72 bis H67 ein x schreiben.
Danke im voraus
Anzeige
AW: Vba Hilfe
06.11.2005 09:56:50
Erich
Hallo Lucien,
das ginge dann so:

Sub tst()
Dim ajoute As String
ajoute = InputBox(("Combien voulez vous rajouter au stock ?"), " (AJOUTE AU STOCK) ", 0, 5000, 5000)
Range(Range("H" & 72 - ajoute), Range("H72")).Value = "x"
End Sub

Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Vba Hilfe
06.11.2005 10:05:19
Lucien
Hallo Erich
Vielen Dank für deine Hilfe.
Klappt hervoragend
Schönen Sonntag noch
gruss Lucien
;

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