Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1448to1452
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
1448to1452
1448to1452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datenreihe mehrmal ausgeben (For schleife)

Datenreihe mehrmal ausgeben (For schleife)
12.10.2015 16:46:36
hachim
Hallo zusammen,
ich habe eine kleine Aufgabe die mit VBA gelöst werden MUSS :(.
leider bin ich kein Profi in dem Bereich. hoffe dass ihr mir helfen könnt.
ich habe eine spalte mit 24 werten (bezogen auf 24 stunden). diese spalte will ich auf einen andere datenblatt kopieren, jedoch für 72 stunden oder mehr. das heisst ich füge die werte bis 24 ein und wiederhole ich es ab zeile 25 bis 48 und dann nochmal ab zeile 49 bis 72.
also mit zwei for schleifen geht es nicht da nur eine variable inkrementiert wird.
PS: siehe beispieldatei (farblich markiert ist das gewünschte Ergebnis)
https://www.herber.de/bbs/user/100731.xlsm
freue mich auf euere Lösungsansätze
Grüße
Hachim

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

Betreff
Datum
Anwender
Anzeige
AW: Datenreihe mehrmal ausgeben (For schleife)
12.10.2015 17:55:24
hachim
sorry für das Doppelte Eintrag!
hoffe dass ich das Problem verständlich rübergebracht habe.....
Grüße
Hachim

AW: Datenreihe mehrmal ausgeben (For schleife)
12.10.2015 18:38:19
ransi
Hallo Hachim,
Schau mal ob ich das so richtig verstanden habe...
Sub machs()
    Dim arr As Variant
    Dim out As Variant
    Dim L As Long
    arr = Tabelle1.Range("a1").CurrentRegion
    With Tabelle2
        out = .Range("A1:B" & .Cells(.Rows.Count, 1).End(xlUp).Row)
        For L = 1 To UBound(out)
            out(L, 2) = arr(((L - 1) Mod 24) + 1, 2)
        Next
        .Range("A1:B" & .Cells(.Rows.Count, 1).End(xlUp).Row) = out
    End With
End Sub



ransi

Anzeige
AW: Datenreihe mehrmal ausgeben (For schleife)
12.10.2015 18:44:32
Michael
Hi zusammen,
ich hab's so verstanden: 
option explicit
Sub test()
Dim i As Long
Dim a As Variant
a = Tabelle1.Range("B1:B24")
For i = 0 To 6
Tabelle2.Range("B" & i * 24 + 1 & ":B" & i * 24 + 24) = a
Next i
End Sub
Schöne Grüße,
Michael

AW: Datenreihe mehrmal ausgeben (For schleife)
12.10.2015 18:56:04
Armin
Hallo Hachim,
so müsste es gehen: 
Sub test()
Dim i, j, k As Integer
For i = 1 To 173
Tabelle3.Cells(i, 2).Value = Tabelle1.Cells(j + 1, 2).Value
If i Mod 24 = 0 Then
j = 0
Else
j = j + 1
End If
Next i
End Sub
Grüße Armin

Anzeige
AW: Datenreihe mehrmal ausgeben (For schleife)
12.10.2015 23:36:07
hachim
Hallo zusammen,
vielen Dank euch allen.... :)
super coole Lösungen. ich habe die Lösung von Armin übernommen und funktioniert auch wie gewünscht.
nochmal vielen Dank für eure Hilfe und schnelle Reaktionen.
Grüße
Hachim

AW: Datenreihe mehrmal ausgeben (For schleife)
13.10.2015 21:23:02
hachim
Hallo zusammen,
vielen Dank euch allen.... :)
super coole Lösungen. ich habe die Lösung von Armin übernommen und funktioniert auch wie gewünscht.
nochmal vielen Dank für eure Hilfe und schnelle Reaktionen.
Grüße
Hachim

299 Forumthreads zu ähnlichen Themen

Zeichenkette per for-next-schleife erstellen
lauer

Hallo,
ich möchte mir eine Zeichenkette erstellen lassen.
Ich habe in einer Zelle (B11) den Anfang (1) angegeben und in der anderen (C11) steht das Ende (49).
Nun möchte ich, dass er mir in der E11 die Zeichenkette reinschreibt.
Also ich möchte dann in E11 stehen haben: 1,2,3,4,...
09.08.2008 19:06:00
Thread-ID: 1000538
5 Beiträge
Anzeige
eine Schleife in Webabfrage
mehmet

Hallo Forum,
ich habe mit dem Macrorecorder Webabfrage aufgezeichnet.
Diese habe ich ergänst mit der URL Adresse und Zellinhalte.
Hier die Aufzeichnung bzw. überarbeitete Version:
Sub TAF1() derLink = "http://www.dieseite.de/main. _ htm?tp=sa&flag=" Sheets("Tabelle1").Sele...
29.08.2008 09:30:05
Thread-ID: 1005675
2 Beiträge
Schleife um ein Makro bauen
Matthias

Hallo zusammen,
ich habe folgendes Makro, das per vlookup auf ein zweites Tabellenblatt greift:
Sub importSortKey() Range("A2").select ActiveCell.FormulaR1C1 = _ "=IF(RC[1]="""","""",VLOOKUP(RC[1],Sortierschlüssel!C:C[1],2))" End Sub
Zur Formel: RC[1] = Zelle B2;
Ich würde d...
01.10.2008 11:26:00
Thread-ID: 1013562
7 Beiträge
Anzeige
Schleife einbauen und variabler Tabellenname
Markus

Hallo zusammen,
nach langer Suche bin ich auf folgendes funkionierendes Makro gestoßen. Diese Makro möchte ich gerne ein wenig anpassen und dazu brauche ichEure Hilfe!
Sub PDF_Druck() Dim strAktuellerDrucker As String strAktuellerDrucker = Application.ActivePrinter Worksheets("Tabelle...
16.10.2008 19:25:00
Thread-ID: 1016959
3 Beiträge
Makro - einfache VBA Schleife für Excel
pc-doc@k-u-p.de

Hallo VBA MAkro Profis,
programmiere fast nie in VBA mehr Web js, php/mysql,
und brauche eine einfache VBA Schleife für Excel:
Ich möchte in mehreren Registerblättern einer Arbeitsmappe in der
Spalte D Zeile für Zeile checken ob
ein Wert in der Zelle steht
und wenn...
20.10.2008 11:51:00
Thread-ID: 1017619
8 Beiträge
momentanen Wert der For-Schleife anzeigen
Joachim

Hallo,
ich habe eine For-Schleife, die ca. 5600 mal durchlaufen wird. In der Schleife werden viele IFs abgeprüft, was die Schleife langsam macht.
FOR s = 2 to irow
IF ...
NEXT s
Ich würde gerne wissen, bei welchem Wert s die Schleife momentan ist.
Eine MsgBox unterbricht...
11.11.2008 10:02:24
Thread-ID: 1023432
4 Beiträge
Schleife in Formel
Jochen

Hallo,
kann ich mit einer Formel eine Schleife laufen lassen?
Meine Tabelle sieht etwa so aus:
Pos. Stückzahl
1 10
2 15
3
4 2
5 3
6
7
8 10
9 11
10
11
12 12
Meinergeb...
11.11.2008 14:25:00
Thread-ID: 1023549
9 Beiträge
Gesamtwert in Zell über Multiplikationsschleife...
Jessi

Hallo zusammen,
habe wieder mal eine Frage:
Ich habe eine Tabelle in der Spalte X und Y, ab der Zeile 5 Werte multipliziert werden und die Zeilen
5 bis einschließlich 88 und anschließend ab Zeile 160 bis einschließlich die Zeile 182 aufsummiert werden. Wie bekomme ich das am geschic...
10.12.2008 14:51:00
Thread-ID: 1031705
4 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
4
2
1
6
4
2
7
3
8
3
5
11
8
2
5
7
4
8
2
4
3
2
8
11
4