Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1852to1856
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1852to1856
1852to1856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

einfache Schleife, Formelergebnisse kopi

einfache Schleife, Formelergebnisse kopi
09.11.2021 11:28:28
Fred
Hallo Excel Profis,
irgendwie stehe ich heute mal wieder auf dem Schlauch.
Ich möchte in Sheet("Zeit").range("AD1") nacheinander die Formelergebnisse (ohne Formel) einer "Liste",- die sich in
Sheet("Plan"), der Spalte "H" ab Zeile 3 befindet
nacheinder eintragen.
Nach jedem einzelnen Eintrag soll die -- MsgBox "weiter", vbOKOnly -- aufgerufen werden.
Zum besseren Verständins: https://www.herber.de/bbs/user/149023.xlsm
Kann mal bitte ein Profi draufschauen und mir das kurze Makro schreiben?!
Gruss
Fred

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

Betreff
Datum
Anwender
Anzeige
AW: einfache Schleife, Formelergebnisse kopi
09.11.2021 11:33:27
{Boris}
Hi Fred,

Sub til()
Dim C As Range
For Each C In Tabelle15.Range("H3:H48")
Tabelle9.Range("AD1") = C
MsgBox "weiter", vbOKOnly
Next C
End Sub
VG, Boris
AW: einfache Schleife, Formelergebnisse kopi
09.11.2021 11:42:16
Fred
Hallo Boris,
Das Makro - ergänzt mit 

end1 = Sheets("Plan").Cells(Rows.Count, 1).End(xlUp).Row


Dim C As Range
end1 = Sheets("Plan").Cells(Rows.Count, 1).End(xlUp).Row
For Each C In Tabelle15.Range("H3:H" & end1)
Tabelle9.Range("AD1") = C
MsgBox "weiter", vbOKOnly
Next C
passt!
Vielen DANK!!
Gruss
Fred
Anzeige
Als "Anwender" der Mappe...
09.11.2021 11:47:29
{Boris}
Hi Fred,
...würde ich Dich allerdings steinigen ;-)), muss man doch tatsächlich 48 mal OK klicken - ohne jede "Ausstiegsklausel" ;-)
Wenn Du in Deinem geänderten Code mal aus Versehen in Spalte A des Blattes "Plan" mal einen Eintrag in A20000 tätigst - oh je...
VG, Boris
AW: Als "Anwender" der Mappe...
09.11.2021 13:24:29
Fred
Hallo Boris,
ich habe zwar schon sehr oft und insgesamt wohl viele viele Stunden unnötiges als auch fehlerhaftes mit Makros und deren Sinn geschustert, aber die Nummer mit 48x auf OK klicken, wird es nicht geben :-)
Ich war heute Vormittag nicht ganz bei der Sache,- viele Ablenkungen und Irritationen zu Hause. Daher die Anfrage, ob mir jemand "einen Schub" für die wohl sehr einfach gestrickte Schleife geben kann.
Die MsgBox wird durch die Aufrufe von zwei weiteren Makros ersetzt,- und das Sheet ansich wird mit vielen Daten gefüllt .....
Aber vielen Dank für den "Wink mit dem Zaunpfahl",- 48x klicken ....
Gruss
Fred
Anzeige

104 Forumthreads zu ähnlichen Themen

VBA - Berechnung ohne Formeleintrag
kasi

Hallo liebe Excelprofis,
im Grunde bin ich jemand der lieber allein etwas herausfindet als jemanden um Hilfe zu bitten, aber ich weiß jetzt einfach nicht weiter :-(
Nach 6 Tagen rumforschen in allen möglichen Foren geb ich mich geschlagen und will nun doch hier fragend mein Glück versuc...
18.02.2009 02:59:00
Thread-ID: 1051668
4 Beiträge
Anzeige
Schleife mit WENN, DANN
Mandy

Hi,
wie kann ich denn eine Schleife machen die die Spalte duchläuft und überprüft:
Wenn B5 und C5 nicht leer ist, dann A5 = "100" `Startwert
Wenn B6 und C6 nicht leer ist, dann A5 * 1,25
Wenn B7 und C7 nicht leer ist, dann A6 * 1,25
Wenn B8 und C8 nicht leer ist, dann A8...
05.04.2009 10:32:59
Thread-ID: 1066896
5 Beiträge
For-Schleife in Makro
Lukas

Hallo zusammen..
Habe hier ein Makro programmiert, welches mir zwei Texte miteinander verknüpft .
In diesem Beispiel wird der bestehende Text des Feldes A28 und A29 miteinander verknüfpt,
in ein "temporäres" nicht benutzes Feld gespeichert und schliesslich in das Feld A28 zurück ko...
23.06.2009 11:32:02
Thread-ID: 1083729
4 Beiträge
Anzeige
For Schleife Spalte auf bestimmten Inhalt prüfen
Jeron

Hallo zusammen,
ich habe ein scheinbar sehr einfaches Problem:
Ich suche über ein Userform in Combobox1 einen Wert aus.
Dann möchte ich über einen Commandbutton, dass der Wert im Tabellenblatt "Couponbelegung" Spalte a
gesucht wird und wenn er gefunden wird, soll in der gleichen...
17.09.2009 18:10:07
Thread-ID: 1103675
5 Beiträge
Versand Tabellenblatt ohne Formel OHNE VBA
Stef@n

Hallo
auf Basis der Antworten des Threads
https://www.herber.de/forum/messages/1117576.html
habe ich folgenden Code, der auch einwandfrei funktioniert ! (Mail wird erst versandt, wenn in
der Zelle O10 der Text "VERKAUF" steht.
Nur eine Nachfrage:
Es wird das Blatt kop...
16.11.2009 15:07:38
Thread-ID: 1117637
9 Beiträge
next for schleife zahlen überspringen
outbreak7

Hallo Leute,
ich habe folgende next for schleife um verschiedenen labels innerhalb einer userfrom unsichtbar zu machen
For w = 3 To 28
Me("Label" & w).Visible = False
Next w
gibt es denn eine möglichkeit das die labels 6 und 13 in der schleife übersprungen werden? will n...
12.05.2010 18:37:55
Thread-ID: 1156867
3 Beiträge
Schleife in der Schleife (Fortsetzung)
Martin

Hallo Erich,
ich schaffe es einfach nicht auf deinen Beitrag zu ID 1156864 zu antworten... dein Code funktioniert super! Jetzt habe ich aber noch ein "optisches" Problem: In der Hilfstabelle wird für jedes Währungspaar ein Datum reinkopiert in dem Format 19.05.2010. Da dies die x-Achse der...
20.05.2010 10:40:18
Thread-ID: 1157987
11 Beiträge
For Next Schleife Abbruchvariable innen erhöhen
Svent

Hallo, ich habe ein Problem, bei welchem ich über VBA in einer Tabelle in einer For-Next-Schleife Zeilen einfügen muß, die Schleife soll aber bis zum Ende der Tabelle gehen. Folgende Lösung arbeitet nicht zufriedenstellend, wenn zeilen eingefügt werden. Die Variable Last_row wird wird unten in...
09.08.2010 18:18:14
Thread-ID: 1171309
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
6
4
3
11
4
8
2
10
6
4
9
8
10
2
3
3
3
8
8
2
3
4
7
3