Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1372to1376
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
1372to1376
1372to1376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Code 13x hintereinander ausführen

VBA Code 13x hintereinander ausführen
01.08.2014 12:38:20
Max
Hallo meine schlauen Füchse,
ich habe nochmal eine Frage.
Ich habe einen Makro geschrieben:
Cells(65000, 1).End(xlUp).Offset(1, 0).Select
Selection = Worksheets("upload_data").Range("b18")
Cells(65000, 3).End(xlUp).Offset(1, 0).Select
Selection = Worksheets("upload_data").Range("c18")
... ganz viele weitere Übertragungen
Dieser Makro soll nach Knopfdruck 14x ausgeführt werden. Ich habe keine Lust, jeden einzelnen Teil des Makros per Copy-Paste 14x hintereinander zu kopieren, geht das evtl. auch einfacher?
Beste Grüße und vielen Dank im Voraus!

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Code 13x hintereinander ausführen
01.08.2014 12:42:41
Hajo_Zi
warum schreiben wir Beiträge wenn Du Sie doch nicht beachtest
Sub mal()

Dim InI As Integer

For InI = 1 To 23

Cells(65000, InI).End(xlUp).Offset(1, 0) = Worksheets("upload_data").Cells(18, InI + 1)

Next

End Sub

AW: VBA Code 13x hintereinander ausführen
01.08.2014 12:59:42
Max
Okay, vielen Dank allen erstmal. Würde ich auf anhieb das finden was ich suche, würde ich gewiss hier nicht nachfragen ;)
Mein Wunsch wäre folgender, vielleicht habe ich das nicht ganz präzise formuliert. Mein Code sieht derzeit wiefolgt aus:
Cells(65000, 1).End(xlUp).Offset(1, 0).Select
Selection = Worksheets("upload_data").Range("b18")
Cells(65000, 1).End(xlUp).Offset(1, 0).Select
Selection = Worksheets("upload_data").Range("b18")
Cells(65000, 1).End(xlUp).Offset(1, 0).Select
Selection = Worksheets("upload_data").Range("b18")
Cells(65000, 1).End(xlUp).Offset(1, 0).Select
Selection = Worksheets("upload_data").Range("b18")
Cells(65000, 1).End(xlUp).Offset(1, 0).Select
Selection = Worksheets("upload_data").Range("b18")
Cells(65000, 1).End(xlUp).Offset(1, 0).Select
Selection = Worksheets("upload_data").Range("b18")
Cells(65000, 1).End(xlUp).Offset(1, 0).Select
Selection = Worksheets("upload_data").Range("b18")
Cells(65000, 1).End(xlUp).Offset(1, 0).Select
Selection = Worksheets("upload_data").Range("b18")
Cells(65000, 1).End(xlUp).Offset(1, 0).Select
Selection = Worksheets("upload_data").Range("b18")
Cells(65000, 1).End(xlUp).Offset(1, 0).Select
Selection = Worksheets("upload_data").Range("b18")
Cells(65000, 1).End(xlUp).Offset(1, 0).Select
Selection = Worksheets("upload_data").Range("b18")
Cells(65000, 1).End(xlUp).Offset(1, 0).Select
Selection = Worksheets("upload_data").Range("b18")
Cells(65000, 1).End(xlUp).Offset(1, 0).Select
Selection = Worksheets("upload_data").Range("b18")
Das ist 14x derselbe "Befehl" der ausgeführt werden soll. Das ganze möchte ich aber eben nicht so 14x hintereinander programmiert haben, sondern es soll 14x ausgeführt werden und anschließend geht man im Makro weiter, weil noch weitere 14xEr Schleifen folgen.
Grüße Max ;)

Anzeige
AW: VBA Code 13x hintereinander ausführen
01.08.2014 13:13:45
Hajo_Zi
Hallo Max,
Du hast Extra im ersten Beitrag anderen Code gepostet, da Du den Code selber an Deine Bedingungen anpassen möchtest, also mache es auch. Ich bin raus.
Gruß Hajo

AW: VBA Code 13x hintereinander ausführen
01.08.2014 12:49:25
Daniel
Hi
um den selben Codeteil mehrfach hintereinander auszuführen, verwendet man eine For-Next-Schleife.
Müssen Werte variiert werden, so berechnet man diese aus dem Schleifenzähler (hier die Spalte des zu kopierenden Bereichs)
Sub Makro1
Dim x as long
for x = 0 to 13
Cells(65000, 1).End(xlUp).Offset(1, 0) = Worksheets("upload_data").Range("b18").Offset(0, x) _
.value
Next
End Sub
In diesem Fall würde aber folgende Befehle ausreichen, um alle 14 Werte auf einmal zu kopieren: 
Worksheets("upload_data").Range("B18").Resize(1, 14).Copy
Cells(Rows.Count, 1).End(xlup).Offset(1, 0).PasteSpecial xlpastevalues, Transpose:=True

das entspricht folgender Aktion ein Excel:
- im Blatt "upload_data" den Zellbereich B18:O18 kopieren
- als Wert mit der Option "Transponieren" im aktuellen Blatt am Tabellenende einfügen (Inhalte einfügen - Werte + Transponieren)
dh du brauchst hier keine Schleife sondern kannst alle Werte auf einmal übertragen.
Gruß Daniel

Anzeige
Zu den BasisKenntnissen JEDER ...
01.08.2014 12:50:18
Luc:-?
…PgmierSprache gehören auch zyklische, d.h. wiederkehrende, PgmAbläufe, auch (Pgm-)Schleifen genannt, Max!
Gruß, Luc :-?

AW: VBA Code 13x hintereinander ausführen
01.08.2014 13:15:52
Max
Hat sich erledigt!
Entschuldige bitte Hajo!

310 Forumthreads zu ähnlichen Themen

mehrere Makros in ein Makro kopieren
jenny

Hey, wie kann ich mehrere Makros in ein Makro kopieren?
Angenommen ich hab Makro 01 und 02 und will die in ein Makro kopieren, dass Update heisst. Funktioniert das:
Sub Update Sub01 End Sub
Sub02
..
End Sub
End Sub
Also kann ich einfach bei editieren das ganze...
01.10.2008 19:00:57
Thread-ID: 1013736
2 Beiträge
Anzeige
Makros nacheinander ausführen
Philipp

Hallo Leute, dies ist mein erster Eintrag in einem Excel-Forum ever, also hallo erstmal! ;-)
Ich hoffe auf Eure Hilfe zu einem VBA Problem. Habe schon ähnliche Einträge in anderen Foren gefunden, jedoch keine lösung, die bei mir funktioniert.
Problem ist folgendes:
Ich habe verschie...
18.06.2009 11:33:36
Thread-ID: 1082519
3 Beiträge
Makro in neue Arbeitsmappe ausführen
Fred

Hallo zusammen
Ich komme mal wieder nicht weiter. Ich habe unten ein Makro zusammen gestrickt was auch prima funktioniert und weiss jetzt nur nicht wie ich es anstellen soll das im hintergrund eine vorhandene Arbeitsmappe geöffnet wird dann in der Mappe ein neues Tabellenblatt mit dem unten...
07.07.2009 17:11:23
Thread-ID: 1086973
5 Beiträge
Anzeige
Makro warnung obwohl kein Makro vorhanden...
Torsten

Hallo zusammen,
ich habe in einer Exceldatein mal ein Marko gehabt. In der Zwischenzeit habe ich das Marko gelöscht, die Warnmeldung, dass die Datei Makros enthält, kommt aber immer noch.
Kann man das irgendwie abschalten?
Grüsse
Torsten
07.08.2009 08:37:53
Thread-ID: 1094191
8 Beiträge
Makro in Makro schreiben lassen ?
alexander

Hallo,
mein Problem:
Ich habe ein Makro zur Massenpflege von verschiedenen Dateien erstellt. Nun möchte ich aber, das mir das Makro beim abändern der einzelnen Dateien einen bestimmten Code (ein weiteres Makro) in die Tabellenblattmodule der einzelnen Dateien schreibt. Sprich, das die v...
10.08.2009 10:16:27
Thread-ID: 1094632
24 Beiträge
vba Code ausführen, bei Wechsel zu Excel
Karsten

Hallo und guten Abend,
ich wechsel von einer Internetseite mit der Tastenkombination Alt Tab zu Excel.
Bislang habe ich den vba Code einem Button zugewiesen und über diesen ausgeführt.
Nun soll dieser vba Code ausgeführt werden, wenn Excel den Focus erhält, wenn das entsprechende Ar...
14.08.2009 21:53:59
Thread-ID: 1096096
6 Beiträge
Formel per Makro einfügen - Ausführen fehlerhaft
Dennis

Hallo Gemeinde,
nachdem mir gestern hier so toll geholfen wurde, bin ich mir sicher, dass ihr mir auch bei dem Problem helfen könnt :)
Also, ich füge per Makro eine Formel (=SUMMEWENN(AI:AI;A11;AR:AR)) in Tabellenblatt 1 ein, ein paar mal untereinander (A11 variiert dabei). Funktionier...
09.09.2009 15:28:39
Thread-ID: 1101555
5 Beiträge
Makros beim Speichern eliminieren
Chris

Hallo Excelianer
Also, folgendes Problem
Ich habe eine Datei, die per Makro einige Berechnungen ausführt. Am Ende der ganzen Berechnungen speichert sich die Datei mit SaveAs. Das heisst: Das Tool an sich wird nicht überschrieben.
Die "SaveAs"-Datei ist eine reine Werte-Datei. Mein...
16.09.2009 16:39:45
Thread-ID: 1103283
3 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
1
6
2
4
2
7
23
5
4
2
4
2
3
10
5
3
1
3
11
2
6
15
4
3
5