Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Berechnungsloop mit Ausgabe der Werte in verschiedene Zellen
zurück: Ein und Ausblenden wenn Suchwert zutrifft weiter: menu & symbolleiste in 2007 & 2010 Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
26. Aug 2010, 18:36
Rufname:

Berechnungsloop mit Ausgabe der Werte in verschiedene Zellen - Berechnungsloop mit Ausgabe der Werte in verschiedene Zellen

Nach oben
       Version: Office 2003

Hallo,

leider bin ich absoluter Anfänger auf dem Gebiet der Makroprogrammierung. Confused

Folgendes Problem:
Ich habe eine Berechnung, die abhängig ist von einem Wert. Dieser Wert steht in einem bestimmten Feld (z.B. C1).
Nun habe ich leider erfolglos probiert, ein Makro zu erstellen, dass mir aus einer Liste mit Zahlen (z.B. A1:A200) jede einzelne dieser Zahlen in dieses Wertefeld C1 einsetzt, die Berechnung läuft und dann das Ergebnis, welches in Feld D1 erscheint, in die Felder B1 bis B200 schreibt bzw. kopiert.

Am Ende würde also in B1 das Ergebnis von der Berechnung mit A1 stehen, in B2 das Ergebnis von A2, usw.

Wäre klasse, wenn mir jemand auf die Sprünge helfen könnte. Smile

Vielen Dank schonmal im Voraus!
Gast



Verfasst am:
26. Aug 2010, 19:23
Rufname:


AW: Berechnungsloop mit Ausgabe der Werte in verschiedene Ze - AW: Berechnungsloop mit Ausgabe der Werte in verschiedene Ze

Nach oben
       Version: Office 2003

Machs mal so


Code:

Sub test4()

lrow = Cells(Rows.Count, 1).End(xlUp).Row
rng = ThisWorkbook.Sheets(1).Range(Cells(1, 1), Cells(lrow, 1))


For i = LBound(rng) To UBound(rng)

Cells(i, 2).Value = rng(i, 1) * 3.87  ' z.B. rng(i) * 25;  deine Rechnung mit diesem wert

Next


End Sub


grüßli
Gast



Verfasst am:
26. Aug 2010, 20:13
Rufname:

AW: Berechnungsloop mit Ausgabe der Werte in verschiedene Ze - AW: Berechnungsloop mit Ausgabe der Werte in verschiedene Ze

Nach oben
       Version: Office 2003

Danke schonmal,

das Problem ist, dass die Rechnung alles andere als trivial ist (Berechnung über sehr große Matrix) und von dieser Variable, die in C1 steht, abhängt.
Das Ergebnis ist ein einzelner Wert, der dann in D1 steht.

Nun soll jeder der 200 Werte von A1:A200 nacheinander in C1 eingesetzt werden und das jeweilige Ergbenis in B1:B200 ausgegeben werden.

Gibt es da eine Lösung dazu? Confused
Gast



Verfasst am:
26. Aug 2010, 21:26
Rufname:

AW: Berechnungsloop mit Ausgabe der Werte in verschiedene Ze - AW: Berechnungsloop mit Ausgabe der Werte in verschiedene Ze

Nach oben
       Version: Office 2003

Um es noch zu präzisieren:
Ich kann deshalb die Rechnung nicht in die Zelle pressen, da von dieser Variable, die in C1 steht, sehr viele weitere Rechnungen abhängig sind.

Ich habe mir schon versucht, ein einfaches Makro aufzunehmen in dieser Art und Weise, das klappt auch, aber wie kann ich auf dieses Makro noch eine Schleife einfügen, dass es mir die Werte von A1:A200 bzw. B1:B200 durchläuft?

Code:
Sub Berechnung()

   
    Range("A1").Select
    Selection.Copy

    Range("C1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Calculate
   
    Range("D1").Select
    Selection.Copy
   
    Range("B1").Select
    ActiveSheet.Paste
   
End Sub


Danke für eure Hilfe!
Gast



Verfasst am:
26. Aug 2010, 21:27
Rufname:


AW: Berechnungsloop mit Ausgabe der Werte in verschiedene Ze - AW: Berechnungsloop mit Ausgabe der Werte in verschiedene Ze

Nach oben
       Version: Office 2003

dann machs so
Code:

Sub test4()

lrow = Cells(Rows.Count, 1).End(xlUp).Row
rng = ThisWorkbook.Sheets(1).Range(Cells(1, 1), Cells(lrow, 1))


For i = LBound(rng) To UBound(rng)
cells(1,3).value = rng(i,1)

Cells(i, 2).Value = cells(1,4)

Next


End Sub


greußli
Gast



Verfasst am:
26. Aug 2010, 21:40
Rufname:

AW: Berechnungsloop mit Ausgabe der Werte in verschiedene Ze - AW: Berechnungsloop mit Ausgabe der Werte in verschiedene Ze

Nach oben
       Version: Office 2003

Danke, allerdings kommt dann
"Laufzeitfehler 1004 - Anwendungs oder objektdefinierter Fehler"

Confused
Gast



Verfasst am:
26. Aug 2010, 21:41
Rufname:

AW: Berechnungsloop mit Ausgabe der Werte in verschiedene Ze - AW: Berechnungsloop mit Ausgabe der Werte in verschiedene Ze

Nach oben
       Version: Office 2003

Genauer, er meldet bei dieser Zeile einen Fehler:

Code:
rng = ThisWorkbook.Sheets(1).Range(Cells(1, 1), Cells(lrow, 1))
Gast



Verfasst am:
26. Aug 2010, 21:50
Rufname:

AW: Berechnungsloop mit Ausgabe der Werte in verschiedene Ze - AW: Berechnungsloop mit Ausgabe der Werte in verschiedene Ze

Nach oben
       Version: Office 2003

Dann probiere mal

rng = Thisworkbook.range("A1:A200")
Gast



Verfasst am:
26. Aug 2010, 21:53
Rufname:

AW: Berechnungsloop mit Ausgabe der Werte in verschiedene Ze - AW: Berechnungsloop mit Ausgabe der Werte in verschiedene Ze

Nach oben
       Version: Office 2003

mist sheets(1) vergessen

rng=Thisworkbook.sheets("Tabelle1").Range("A1:A200") ' den Namen ggfs. anpassen.
Gast



Verfasst am:
26. Aug 2010, 21:58
Rufname:

AW: Berechnungsloop mit Ausgabe der Werte in verschiedene Ze - AW: Berechnungsloop mit Ausgabe der Werte in verschiedene Ze

Nach oben
       Version: Office 2003

Hey,
nun kommt schonmal kein Fehler mehr, danke!

Allerdings nimmt er einfach immer nur den Wert von D1, ohne neu zu berechnen.

D.h. ich habe nun in B1:B200 immer den gleichen Wert stehen...
Gast



Verfasst am:
26. Aug 2010, 22:03
Rufname:

AW: Berechnungsloop mit Ausgabe der Werte in verschiedene Ze - AW: Berechnungsloop mit Ausgabe der Werte in verschiedene Ze

Nach oben
       Version: Office 2003

Ok, habe nun Berechnung auf automatisch gestellt und es klappt!! Smile

Vielen Dank für deine kompetente Hilfe...

Gäbe es noch einen Befehl damit er zwischen diesen beiden Zeilen die Berechnung durchführt?

Code:
cells(1,3).value = rng(i,1)
[b]- hier Berechnung -[/b]
Cells(i, 2).Value = cells(1,4)
Gast



Verfasst am:
26. Aug 2010, 22:04
Rufname:

AW: Berechnungsloop mit Ausgabe der Werte in verschiedene Ze - AW: Berechnungsloop mit Ausgabe der Werte in verschiedene Ze

Nach oben
       Version: Office 2003

dann klicke mal das Makro schrittweise mit F8 durch und überprüfe, ob die richtigen werte in c1 eingetragen werden. vielleicht kommt der rechner nicht richtig mit, wenn du so umfangreiche berechnungen hast.
Gast



Verfasst am:
26. Aug 2010, 22:06
Rufname:


AW: Berechnungsloop mit Ausgabe der Werte in verschiedene Ze - AW: Berechnungsloop mit Ausgabe der Werte in verschiedene Ze

Nach oben
       Version: Office 2003

nimm " calculate "
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Werte aus Liste raussuchen 8 KARL 1217 30. Apr 2014, 18:10
Holger1968 Werte aus Liste raussuchen
Keine neuen Beiträge Excel Formeln: aus verschiedenen Zellen eine Hyperlink erstellen? 2 MrMr 1905 28. Okt 2004, 19:43
MrMr aus verschiedenen Zellen eine Hyperlink erstellen?
Keine neuen Beiträge Excel Formeln: Gelbe Zellen zählen! 6 Axis_Sonnenflieger 4453 27. Okt 2004, 14:50
Axis_Sonnenflieger Gelbe Zellen zählen!
Keine neuen Beiträge Excel Formeln: Blattschutz: bestimmte Zellen zum Löschen freigeben 6 Christiane 1203 21. Okt 2004, 07:17
lala Blattschutz: bestimmte Zellen zum Löschen freigeben
Keine neuen Beiträge Excel Formeln: Werte aus Liste mit Validation in Zelle 1 Gast 2516 18. Okt 2004, 15:20
icke Werte aus Liste mit Validation in Zelle
Keine neuen Beiträge Excel Formeln: Werte in Zellen?!? 3 Kiamolo 2818 18. Okt 2004, 10:01
Kiamolo Werte in Zellen?!?
Keine neuen Beiträge Excel Formeln: Gleich Zellen farblich markieren 3 badoldman 2712 05. Okt 2004, 16:14
fl618 Gleich Zellen farblich markieren
Keine neuen Beiträge Excel Formeln: werte innerhalb eines bestimmten bereichs suchen 3 infantil88 3545 17. Sep 2004, 10:54
Arnim werte innerhalb eines bestimmten bereichs suchen
Keine neuen Beiträge Excel Formeln: werte in neue tabelle mit neuen spalten kopieren 1 Timo 1723 03. Sep 2004, 07:37
ae werte in neue tabelle  mit neuen spalten kopieren
Keine neuen Beiträge Excel Formeln: Zellen zusammenfassen 4 annett 1318 12. Aug 2004, 11:35
annett Zellen zusammenfassen
Keine neuen Beiträge Excel Formeln: Doppelte Werte zusammen zeihen mit mehreren kriterien max5-6 1 Fruchtzwerk 1101 21. Jun 2004, 16:39
Gast Doppelte Werte zusammen zeihen mit mehreren kriterien max5-6
Keine neuen Beiträge Excel Formeln: ANZAHL in einer bestimmten Schriftfarbe formatierter Zellen 12 curious 1933 21. Jun 2004, 13:56
Gast ANZAHL in einer bestimmten Schriftfarbe formatierter Zellen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS