Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

automatisches Einfügen von Inputwerten

Forumthread: automatisches Einfügen von Inputwerten

automatisches Einfügen von Inputwerten
Inputwerten
Hallo Zusammen,
habe folgendes Problem. Ich habe eine Inputzelle, in der ich werte zwischen 0-99999 eintragen will. In einer anderen Zelle kommt mein Ergebnis heraus. Z.B. wenn ich in A1 den Wert 10 eingebe, kommt in Zelle B1 523,24 als Ergebnis einer Formel heraus.
Mein Ziel ist es eine Tabelle mit den Ergebnissen von 1-99999 zu erzeugen, die so ausschauen sollte:
Input Ergebnis
Spalte A Spalte B
10 523,24
11 624,25
usw..
ohne alle 99999 Inputzahlen eingeben zu müssen und jedesmal den Ergebniswert der Formel zu kopieren..
Gibt es hier die Möglichkeit mit einem Makro diesen Prozess ( in A1 Wert 1 eingeben, B1 als Wert wegkopieren, dann in A1 2 eingeben, B1 Wert kopieren, dann in A1 3 eingeben, B1 Wert kopieren usw..) zu automatisieren?
Wäre für jeden Tipp dankbar..
Grüße
Michael
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: automatisches Einfügen von Inputwerten
28.04.2010 17:52:55
Inputwerten
Hallo Michael,
was spricht dagegen, den fortlaufenden Ausgangswert und die Formel einfach nach unten zu ziehen? Natürlich in 2x2 Spalten, da 99999 Werte ja nicht in eine Spalte passen.
Gruß Ingolf
AW: automatisches Einfügen von Inputwerten
28.04.2010 17:59:47
Inputwerten
Hallo Ingolf,
das Problem dabei ist, dass es sich um komplexes Rechenmodel mit vielen Werten in unterschiedlichen Zellen, welche sich aufgrund der einen Inputzelle verändern handelt und in der einen Zelle das Endergebnis ausspuckt. D. h. ich kann es leider nicht einfach nach unten ziehen, sondern muss irgendwie versuchen die Eingabe der Inputwerte zu automatisieren und nach jeder Eingabe das Ergebnisfeld als Wert weg zu kopieren..
Gruß
Michael
Anzeige
AW: automatisches Einfügen von Inputwerten
28.04.2010 18:11:56
Inputwerten
habe irgendwie mal probiert die ersten 2 Schritte mit einem Makro aufzuzeichnen.. nur würde dies nun 99999 mal so weitergehen... bin langsam am verzweifeln ;-)
Zur Info ( in Tabelle 2 Spalte A habe ich die Inputwerte, in Spalte B sollten die Ergebnisse hineinkopiert werden) Inputzelle: Tabelle1 Zelle A1, Ergebniszelle: Tabelle 1 Zelle B1)
ActiveCell.FormulaR1C1 = "=Tabelle2!RC"
Range("B1").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Tabelle1").Select
Range("A1").Select
ActiveCell.FormulaR1C1 = "=Tabelle2!R[1]C"
Range("B1").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Anzeige
AW: automatisches Einfügen von Inputwerten
28.04.2010 18:48:37
Inputwerten
Hallo Michael,
versuch's mal hiermit: 

Sub Daten_retten()
Dim rngQuelle As Range
Dim rngZiel As Range
Dim lngBasisWert As Long
'Hier die Angaben für deine Formelzelle eintragen
'Die Zelle, in welche die Daten (1-99999) eingetragen werden
'muss sich direkt links davon befinden!
Set rngQuelle = Workbooks("Mappe1.xls").Sheets("Tabelle1").Range("B1")
'Hier die Angaben für die Spalte angeben, in welche die
'Rechenergebnisse geschrieben werden sollen. Es muss eine Spalte
'mit 50000 Zeilen sein. Die anderen 49999 Ergebnisse kommen
'in die Spalte rechts daneben!
'Die Zellen über den Datenspalten (A1+B1) enthalten
'bereits vor Ausführung des Makros eine Überschrift
Set rngZiel = Workbooks("Mappe1.xls").Sheets("Tabelle2").Range("A2:A50001")
'Die ersten 49999 Werte abarbeiten
For lngBasisWert = 1 To 49999
'Ausgangswert in Zelle schreiben
rngQuelle.Offset(0, -1) = lngBasisWert
'Excel rechnen lassen
Application.Calculate
'Ergebnis retten
rngZiel.Cells(50000, 1).End(xlUp).Offset(1, 0) = rngQuelle
Next 'lngBasisWert
'Den 50000sten Wert bearbeiten
'Ausgangswert in Zelle schreiben
rngQuelle.Offset(0, -1) = 50000
'Excel rechnen lassen
Application.Calculate
'Ergebnis in die unterste Zelle der ersten Spalte schreiben
rngZiel.Cells(50000, 1) = rngQuelle
'Zielspalte um 1 nach rechts versetzen
Set rngZiel = rngZiel.Offset(0, 1)
'Die restlichen 49999 Werte abarbeiten
For lngBasisWert = 50001 To 99999
'Ausgangswert in Zelle schreiben
rngQuelle.Offset(0, -1) = lngBasisWert
'Excel rechnen lassen
Application.Calculate
'Ergebnis retten
rngZiel.Cells(50000, 1).End(xlUp).Offset(1, 0) = rngQuelle
Next 'lngBasisWert
End Sub
Gruß Ingolf
Anzeige
AW: automatisches Einfügen von Inputwerten
29.04.2010 07:32:26
Inputwerten
Hallo Ingolf,
Danke für die Hilfe, aber irgendwie funktioniert es bei mir nicht..
er bringt mir beim Versuch den Makro zu starten den Laufzeitfehler 9: Index außerhalb des gültigen Bereichs bei der markierten Zeile. Keine Ahnung warum, Die Ergebniszelle(Formelzelle) ist in Tabelle1 B1 und die Inputdaten werden links davon in A1 eingetragen..
Sub Daten_retten()
Dim rngQuelle As Range
Dim rngZiel As Range
Dim lngBasisWert As Long
'Hier die Angaben für deine Formelzelle eintragen
'Die Zelle, in welche die Daten (1-99999) eingetragen werden
'muss sich direkt links davon befinden!
Set rngQuelle = Workbooks("Mappe1.xls").Sheets("Tabelle1").Range("B1")
Anzeige
AW: automatisches Einfügen von Inputwerten
29.04.2010 08:51:05
Inputwerten
Hallo Michael,
vielleicht musst du nur den Dateinamen anpassen. Oder heißt deine Datei tatsächlich "Mappe1.xls"?
Gruß Ingolf
AW: automatisches Einfügen von Inputwerten
29.04.2010 09:18:44
Inputwerten
Hallo Ingolf,
du hast recht.. Mit einem anderen Dateinamen funktionierts perfekt!
Vielen DANK! ist eine super Lösung..
Gruß
Michael
;

Forumthreads zu verwandten Themen

Wert aus Combobox zurückgeben in Textboxen
Peter

Hallo wertes Form
bin kurz vor der Vollende meinesWerkes
benötige aber noch die Hife aus dem Forum
Ich habe eine Combox19, die beim öffnen die 5000-26000 in 100 Steps an zeigt
Wenn ich den wert 0 bis 6999 eingebe soll in einer Textbox27 der wert 130 ausgegeben werden.
ab dem...
10.08.2008 20:06:00
Thread-ID: 1000671
7 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzeige
@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Es wird nur die Formel angezeigt, nicht der Text
Oswald

Hallo an die guten Geister,
hab mal wieder ein Problem.
In der angeängten Datei in B41 hatte ich das Problem das nicht der Text angezeigt wird sondern die Formel.
https://www.herber.de/bbs/user/54704.xls
Habe ich dadurch gelöst das ich das Selbe noch mal in einer anderen Datei...
18.08.2008 14:47:05
Thread-ID: 1002609
4 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Anzeige
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Anzeige
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Formeln und Text
Juergen

Hallo all zusammen,
ich habe wieder einmal eine Frage:
kann man Formeln und Texte kombinieren?
Ich habe über Winkel;Bogenmaß den tangens der Winkel berechnet und möchte nun in dem Kombinationsfeld ersichtlich machen welcher tangens zu welchem Winkel gehört.
Z.B 0,364 = tan 20°
23.09.2008 18:08:11
Thread-ID: 1011848
8 Beiträge
Exceldaten als Fliestext in Word einbinden?
Frank

Hallo zusammen,
ich habe eine halbe Excel und halbe Wordfrage :-)
Ich habe eine Exceltabelle mit diversen Zahlenmaterial. Das Zahlenmaterial wird ständig aktualisiert. Parallel dazu habe ich einen geschriebenen Langtext in Word, der eine Art ausführliche Erklärung zur Exceltabelle darst...
23.10.2008 07:08:00
Thread-ID: 1018498
3 Beiträge
Fehler bei Formel per Makro in Zelle eintragen
Born

Hallo Forum,
ich habe folgendes Problem:
Ich schreibe per Makro in Zellen eine Formel. Als Ergebnis bekomme ich jedoch nur die Fehlermeldung #NAME?. Wenn ich dann mit F2 in den Bearbeiten-Modus gehe und Enter drücke, kommt das richtige Ergebnis. Meine Formel scheint also richtig zu sein...
23.10.2008 10:15:00
Thread-ID: 1018538
11 Beiträge
in Ergebnis einer Formel Text mit ausgeben
Walter

Nochmals Hallo,
leider die Lösung vergessen, wie man in einer Berechnungsformel, nen fest fixierten Text ausgeben kann.
Beispielergebnis: 12 Bananen (12 ist errechnet, Bananen ist der feste Text.
War, glaube ich, ganz einfach :-(((
Danke + Gruß
Walter
23.10.2008 23:15:29
Thread-ID: 1018831
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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