Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
16.10.2025 13:18:36
Übersicht von Excel Konstanten
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
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA mit Schleife??

Forumthread: VBA mit Schleife?

VBA mit Schleife?
11.05.2005 21:48:04
Knak
Hallo
Ich habe eine Berechnung geschrieben welche zu gross zum hochladen ist.
Mappe ist deshalb vereinfacht.
Gesamtpreis ergibt sich aus einer Rechnung.Dieser ändert sich wenn ich die Werte ändere-ist ja klar
Ich möchte alle Gesamtpreise (die durch Veränderungen entstehen)fortlaufend im TAbellenblatt2 auflisten.
Wie kann ich das machen? Mit einer Schleife?
DAnke im vorraus
mfg chensi
https://www.herber.de/bbs/user/22474.xls
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA mit Schleife?
11.05.2005 22:04:48
Reinhard
Hallo Knak?
ungetestet:Alt*F11, Doppelklick auf DieseArbeitsmappe, reinkopieren:

Private Sub Workbook_Open()
speicher = Worksheets("Gesamtpreis").[D7]
End Sub

Doppelklick auf Tabelle2/1
Dim speicher

Private Sub Worksheet_Change(ByVal Target As Range)
If Worksheets("Gesamtpreis").[D7] = speicher Then Exit Sub
zei = Range("a65536").End(xlUp).Row + 1
Cells(zei, 1) = speicher
speicher = Worksheets("GP").[D7]
End Sub

Gruß
Reinhard
Anzeige
AW: VBA mit Schleife?
11.05.2005 22:23:19
J.Knak
Danke für die schnelle Antwort.
Es funktioniert leider nicht.
Die Werte werden nicht im Tabellenblatt2 ausgegeben.
Können Sie vielleicht noch mal reinschauen?
Ich brauche das Makro dringend wäre echt nett...
mfg J.Knak
AW: VBA mit Schleife?
11.05.2005 23:21:13
Reinhard
Hallo J,
irgendwie änder das mal, das hat irregeleitet.
Tabelle1 (Gesamtpreis)
Tabelle2 (Tabelle1) ?was soll das brigen ausser Verwirrung die Zeit kostet
jedenfalls gehört folgender Code in die Tabelle Gesamtpreis:
Dim speicher

Private Sub Worksheet_Change(ByVal Target As Range)
If [D7] = speicher Then Exit Sub
zei = Worksheets("Tabelle1").Range("a65536").End(xlUp).Row + 1
Worksheets("Tabelle1").Cells(zei, 1) = speicher
speicher = Worksheets("Gesamtpreis").[D7]
End Sub

Gruß
Reinhard
Anzeige
AW: VBA mit Schleife?
11.05.2005 23:40:23
JKnak
Jetzt passts!
Sorry wegen der Benennung!
Vielen Dank noch mal!
mfg Jens
;

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